最近有某些素质极差的人疯狂的用一款叫款叫 博客群发王 软件,到处散播垃圾广告。已经引起了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 For
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="垃圾广告 -> 滚!"

*表格内容提交检查代码段指的是从以下这段开始,至于你愿意加在哪一项检查判断之后,那是你自己安排的事了。
程序代码:

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

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