Kesioncms過濾評論的敏感詞


                                  作者:author 添加日期:2012-05-29 [留言]


                                  首先添加過濾的關鍵詞組,這個地方需要你手動設置,若你希望在后臺一并完成設置,則在數據庫中添加一個字段即可。
                                  在Comment.asp上段定義變量的地方我們定義過濾的變量
                                  Dim delwords:delwords="口吃,藥" & #39;可以自己定義過濾的關鍵詞,使用","分開
                                  然后找到Sub WriteSave() 下邊大約504行(因為已經加了上面的Dim delwords,行數+1)
                                  添上過濾判斷
                                  & #39;2012add過濾 by mbaun
                                    If FoundInArr(delwords, C_Content, ",") = True Then
                                    If Flag="NotAjax" Then
                                    Response.Write "<script>alert(& #39;留言失敗!& #39;);history.back();</script>"
                                    Else
                                    Response.Write("留言失!")
                                    End If  
                                    Response.End
                                    End if
                                  & #39;add結束
                                  這兒我們使用了一個FoundInArr函數,此函數非官方的FoundInArr,我們需要在本頁末段定義函數。
                                  上面完成的是發表留言判斷,下面還有個蓋樓(引用)提交,找到Sub QuoteSave()
                                  在If Anonymous=1 Then上邊一行我們添加如下代碼
                                  & #39;2012add過濾 by mbaun
                                    If FoundInArr(delwords, Content, ",") = True Then
                                      KS.Die "<script>alert(& #39;評論失敗!& #39;);</script>"
                                    End if
                                  & #39;add結束
                                  最后在頁面末端End Function后我們定義函數FoundInArr
                                  Function FoundInArr(strArr, strToFind, strSplit)
                                    Dim arrTemp, i
                                    FoundInArr = False
                                    If InStr(strArr, strSplit) > 0 Then
                                     arrTemp = Split(strArr, strSplit)
                                     For i = 0 To UBound(arrTemp)
                                     If InStr(LCase(Trim(strToFind)), LCase(Trim(arrTemp(i))))> 0 Then
                                     & #39;If LCase(Trim(arrTemp(i))) = LCase(Trim(strToFind)) Then
                                      FoundInArr = True:Exit For
                                     End If
                                     NExt
                                    Else
                                     If LCase(Trim(strArr)) = LCase(Trim(strToFind)) Then FoundInArr = True
                                    End If
                                  End Function
                                   
                                   

                                  相關產品

                                   
                                   
                                   
                                  首頁 |  產品報價 | 網站地圖 | 經銷商


                                  版權所有 違者必究 蜀ICP備05010098號 未經授權 禁止轉載 地址:成都市一環路南二段6號
                                  電話:028-85257669 85259337 傳真:028-85259337 郵箱:cdpjm@163.com
                                  国产真实乱系列2孕妇|国产av综合一区二区三区|日韩中文字幕日本有码|免费无码黄网站在线看