Pjblog有效防止垃圾评论及留言修改方法

作者：戒聊
首发网站：www.muzili.com，本站原创
转帖请注明来源。

思路：
１，防止不同文章相同内容的重复评论。
２，防止同一IP某一时间段内发表的任何评论。
３，防止采用软件清除COOKIES绕过PJ的判断，所以采用从数据库判断的方式。

修改方法：
１，评论：
打开blogcomm.asp，找到

程序代码

AddComm=array(array("blog_ID",post_logID),array("comm_Content",post_Message),array("comm_Author",username),array("comm_DisSM",post_DisSM),array("comm_DisUBB",post_DisUBB),array("comm_DisIMG",post_disImg),array("comm_AutoURL",post_DisURL),Array("comm_PostIP",getIP),Array("comm_AutoKEY",post_DisKEY))

在其上一行插入：其中的60你可以自行设置，为发表评论间隔时间。

程序代码

if post_Message=session("comm_Content") then
ReInfo(0)="评论发表错误信息"
ReInfo(1)="请不要在本博客重复发布信息，谢谢合作<br/><a href=""javascript:history.go(-1);"">单击返回</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if

Dim SQLcomm,log_commcomm
SQLcomm="Select TOP 1 * FROM blog_Comment Where comm_PostIP='" & getIP & "' order By comm_ID Desc "
Set log_commcomm=conn.execute(SQLcomm)
If not log_commcomm.eof then
if datediff("s",log_commcomm("comm_PostTime"),now())<60 then
ReInfo(0)="评论发表错误信息"
ReInfo(1)="本博客设置发表评论间隔为60秒，谢谢合作<br/><a href=""javascript:history.go(-1);"">单击返回</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if
End If
log_commcomm.Close
Set log_commcomm=Nothing

session("comm_Content")=post_Message

２，留言：
打开Plugins\GuestBook\bookaction.asp，找到

程序代码

Conn.ExeCute("Insert INTO blog_book(book_Messager,book_face,book_IP,book_Content,book_HiddenReply) VALUES ('"&username&"','"&face&"','"&getIP()&"','"&post_Message&"',"&hiddenreply&")")

在其上一行插入：其中的60你可以自行设置，为发表评论间隔时间。

程序代码

if post_Message=session("post_Message") then
showmsg "留言发表错误信息","请不要在本博客重复发布信息，谢谢合作<br/><a href=""javascript:history.go(-1);"">单击返回</a>","ErrorIcon","plugins"
exit function
end if

Dim SQLcomm,log_commcomm
SQLcomm="Select TOP 1 * FROM blog_book Where book_IP='" & getIP & "' order By book_ID Desc "
Set log_commcomm=conn.execute(SQLcomm)
If not log_commcomm.eof then
if datediff("s",log_commcomm("book_PostTime"),now())<60 then
showmsg "留言发表错误信息","本博客设置发表留言间隔为60秒，谢谢合作<br/><a href=""javascript:history.go(-1);"">单击返回</a>","ErrorIcon","plugins"
exit function
end if
End If
log_commcomm.Close
Set log_commcomm=Nothing

session("post_Message")=post_Message

大功告成。此方法可有效防止某些人采用某些手段批量留言或评论发布广告信息。