Blog更新日记060707(屏蔽垃圾)

新版似乎仍没加入屏蔽功能,因此采用了ResTools自己修改的屏蔽模块,其作用是假设垃圾发布者都会填写超过三个以上的http://,以此作为特征码进行屏蔽。


评论垃圾屏蔽:修改根目录blogcomm.asp
if len(post_Message)>blog_commLength then
ReInfo(0)="评论发表错误信息"
ReInfo(1)="评论超过最大字数限制<br/><a href=""javascript:history.go(-1);"">单击返回</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if








'====================== 屏蔽垃圾评论 ================================
Dim GGPos
GGPos=InStr(post_Message, "http://")
if GGPos>0 then
GGPos=InStr(GGPos+7, post_Message, "http://")
if GGPos>0 then
GGPos=InStr(GGPos+7, post_Message, "http://")
if GGPos>0 then
ReInfo(0)="评论发表错误信息"
ReInfo(1)="你涉嫌发布垃圾广告。<br/><a href=""javascript:history.go(-1);"">单击返回</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if
end if
end if
'====================== 屏蔽垃圾评论 ===========================


留言垃圾屏蔽,修改/Plugins/GuestBook/bookaction.asp
if hiddenreply=1 then hiddenreply=true else hiddenreply=false
if memName=empty and hiddenreply then
showmsg "留言发表错误信息","必须登陆才可以发表隐藏留言<br/><a href=""javascript:history.go(-1);"">单击返回</a>","ErrorIcon","plugins"
exit function
end if







'====================== 屏蔽垃圾留言 ==================================
Dim GGPos
GGPos=InStr(post_Message, "http://")
if GGPos>0 then
GGPos=InStr(GGPos+7, post_Message, "http://")
if GGPos>0 then
GGPos=InStr(GGPos+7, post_Message, "http://")
if GGPos>0 then
showmsg "留言发表错误信息","你涉嫌发布垃圾广告。<br/><a href=""javascript:history.go(-1);"">单击返回</a>","ErrorIcon","plugins"
exit function
end if
end if
end if
'====================== 屏蔽垃圾留言 ===============================


添加方法:分别找到上述两个asp文件,各自搜索蓝色代码所在,然后在对应位置下添加红色代码内容。

引用通告地址: 点击获取引用地址
标签:  PJBlog 更新 垃圾
评论: 0 | 引用: 0 | 阅读: 7011
 加入网摘
发表评论
昵 称(*): 密 码:
网 址: (*)邮 箱:
选 项:    
头 像:
内 容(*):