关于信息评论非法关键字过滤
在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
页:
[1]