我的博文

防灌水及垃圾留言的改动

2007-09-26 14:21 阅读(490) 评论(1) 分类:录

最近,灌水机软件在网络里的活动非常活跃,往往是一些无聊的六合彩、性用品之类的广告,前一阵子河南紫田网络机房被关的起因就是一个个人网站的毫无人气的论坛里面充满了大量灌水机留下的“牛皮癣”留言,被网监看到勒令要求关闭这个网站而引起的。

华夏的评论部分最近被灌水机盯上了,一个星期内留下了2000多条垃圾留言,删到我手酸,最后聪明了一下,编了一个程序来删除垃圾留言,留下非垃圾的部分。在这里分享一下思路:首先判断留言部分有没有字符串“http”,如果有并且多于1条,那么99%是灌水机留言,剩下的1%也是想发广告类评论的人。其他判断也是可以加的,一般也是抓住灌水留言的特点。代码如下:


Function CheckTheChar(TheChar,TheString)
if inStr(TheString,TheChar) then
 for n =1 to Len(TheString)
  if Mid(TheString,n,Len(TheChar))=TheChar then CheckTheChar=CheckTheChar+1
 Next
end if
End Function

If CheckTheChar("http",comment_text) > 1 or CheckTheChar("www",comment_text) > 1 then
。。。。

End If

 
另外也增加了评论时间间隔的限制,这样就相对安全了。

 

我要评论

loading...

0条评论