Z-BLOG屏蔽敏感关键字功能的代码

Sun 30 October 2005

Z-BLOG屏蔽敏感关键字功能的代码

作者: 月光

下面是ZBLOG屏蔽评论中敏感关键字的程序代码，主要用于替换文章评论中的敏感关键字。

只需要修改一个文件c\_system\_event.asp，将其中的objComment.Content=Request.Form(\"inpArticle\")修改为objComment.Content=WordFilter(Request.Form(\"inpArticle\"))

然后在c\_system\_event.asp文件尾部加入代码：

Function WordFilter(strInput)
        Dim i　    
        Dim strOutput　 
        Dim strFilter　   
        strFilter = Split(\"关键字1,关键字2,关键字3\", \",\")　
        strOutput = strInput　  
        For i = 0 To UBound(strFilter)　       
            strOutput = Replace(strOutput, strFilter(i), String(Len(strFilter(i)),\"×\"))　 
            Next　  
        WordFilter = strOutput　
End Function

相关文章

Category: 月光博客2005