当前位置: 首页 > 琐碎心情 > 正文

几天没看自己的BLOG,吓我一跳

发现垃圾广告性的评论特多
还好LOVEYUKI的BLOG有防的方法
空间都被占满了,真是郁闷
广告竟然达到1000多,比偶发的日志还多,会员200多,访问30多万,数据库达到18多M,我的空间就10M,想不通了

最近发生太多的事情,唉~~~~~~~~~~~~~~~
感觉放弃QQZONE,赶紧做自己的BLOG好点

以下是引用:http://www.5icafe.com/blogview.asp?logID=231

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

有些朋友称加了代码后出错/无效。实际上是把代码加错地方了。
*表格内容提交检查代码段指的是从以下这段开始,至于你愿意加在哪一项检查判断之后,那是你自己安排的事了。
程序代码: [ 复制代码 ]
IF CheckStr(Request.Form(“message”))=Empty OR CheckStr(Request.Form(“comm_memName”))=Empty Then

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

本文固定链接: http://blog.duoday.com/2006/112.html | 奇风's Blog

该日志由 于2006年05月11日发表在 琐碎心情 分类下, 你可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。

原创文章转载请注明: 几天没看自己的BLOG,吓我一跳 | 奇风's Blog

几天没看自己的BLOG,吓我一跳:等您坐沙发呢!

发表评论

电子邮件地址不会被公开。 必填项已用 * 标注
? razz sad evil ! smile oops grin eek shock ??? cool lol mad twisted roll wink idea arrow neutral cry mrgreen
快捷键:Ctrl+Enter