吾爱咖啡屏蔽评论中的垃圾留言 -

最近有某些素质极差的人疯狂的用一款叫款叫博客群发王软件，到处散播垃圾广告。已经引起了blogger的公愤。警告某些垃圾制造者，再不住手，惹上官司可不是好玩的。估计垃圾制造者已经开始抓狂了发不了垃圾链接，干脆对本站进行垃圾文字留言。很不幸，隅又更新了，增加了黑名单功能。看来这些死缠烂打的垃圾制造者要黔驴技穷了

目前很多开发者的网站都已经有了对应办法。
L-Blog1.08用户可以到开发者loveyuki网站速打补丁：http://www.loveyuki.com/blogview.asp?logID=1012
PJblog^2用户可以到番茄的网站速打补丁：http://www.tblog.com.cn/

博客群发王我没有办法获得，不知道它究竟通过什么办法绕过了注册码验证。补丁可以屏蔽这个软件发送的大量垃圾评论。但L-Blog1.08的补丁似乎还是没有办法彻底禁止垃圾散播者粘贴网址，只能去除链接。Evan( http://www.fir8.net )的版本有过一个屏蔽无聊链接的函数，可以用到评论模块中来。可以进一步限制评论中的垃圾链接。而黑名单功能源于路痴心的轨迹（http://www.52ju.com/）可以通过黑名单限制评论内容。在此感谢以上二位了。
另外还有一种办法（我认为效果应该也不错）：参见 http://www.31fei.com/blog/blogview.asp?logID=131&cateID=0

我的代码具体如下： 本方法仅适用于L_blog1.08
1.在 Function.asp 增加 Check_rubbish 函数

程序代码：

[ 复制代码 ]

'屏蔽黑名单中内容
Function Check_rubbish(msg_str)
    Dim r,char
    char=split(rubbish,",")'逗号表示分隔符
    Check_rubbish = true
    For r = 0 to ubound(char)
        If instr(lcase(msg_str),lcase(char(r)))>0 Then
            Check_rubbish = false
            Exit Function
        End If
    Next
End Function

2.在 commond.asp 增加变量（不要怪我下手狠，超过一个链接的评论都会被限制）

程序代码：

[ 复制代码 ]

'定义留言或评论URL数量
Dim MaxUrl,MaxHttp,Max3W
IF session("memStatus")<>"Admin" AND session("memStatus")<>"SupAdmin" Then
   MaxUrl=1 '最多可以在一个评论中加多少个  [url ]
   MaxHttp=1 '最多可以在一个评论中加多少个 http://
   Max3W=1 '最多可以在一个评论中加多少个 www
Else
   MaxUrl=50
   MaxHttp=50
   Max3W=50
End IF
'定义黑名单
Dim rubbish
rubbish="色情电影,www.466sf.com"

3.在 blogcomm.asp Form内容提交检查代码段加入以下判断分支代码

程序代码：

[ 复制代码 ]

'屏蔽垃圾留言(2006/04/20)
        ElseIF Strurls(Request.Form("message"),"[url")>MaxUrl or Strurls(Request.Form("message"),"http://")>MaxHttp or Strurls(Request.Form("message"),"www")>Max3W or Check_rubbish(CheckStr(Request.Form("message")))=False Then
            msg_Title="出现错误"
            msg_Content="<a href=""javascript:history.go(-1);"">垃圾广告－> 滚！</a>"

有些朋友称加了代码后出错/无效。实际上是把代码加错地方了。
*表格内容提交检查代码段指的是从以下这段开始，至于你愿意加在哪一项检查判断之后，那是你自己安排的事了。

程序代码：

[ 复制代码 ]

IF CheckStr(Request.Form("message"))=Empty OR CheckStr(Request.Form("comm_memName"))=Empty Then

加上黑名单后垃圾制造者就不可能屡次得手了。效果好不好呢，静待其变。隅做支撑的，有的就是耐心。

引用通告地址 (4)：
复制引用地址

http://www.5icafe.com/trackback.asp?tbID=231
复制引用地址

http://www.5icafe.com/trackback.asp?tbID=231&CP=GBK