关于信息评论非法关键字过滤

goldeagle

在commoncode.asp文件中加上一下代码

Function isFit(strcontent)
isFit=False
If Not IsNull(strcontent)  Then
ManageRubbish=split(GuestBook_ManageRubbish,chr(13))
for i=lbound(ManageRubbish) to ubound(ManageRubbish)
If InStr(strcontent,ManageRubbish(i))>0 Then isFit=True
Next
End if
End function

在NewsCommentok.asp中加上。这段代码放在

if IsAdsContent(pj_content)=True then
        pass=0'含有广告信息
else
        pass=1
end if

后面

if isFit(pj_content)=True then
‘’垃圾信息处理
Else
将信息写入数据表
End if

不明白的请Email:cs@guhantai.com

125355003