|
网上搜的,不知道可不可行
--------------------------------------------------------------
可以到官方论坛下载个加强版的插件
网人门户WRMPS6.5防范垃圾信息群发机的插件
功能介绍:
即使不开启验证码和验证问题,不限制IP地址,也可以有效防范垃圾信息群发机
不影响正常用户使用,可以省去烦人的验证码和验证问题填写步骤。
防范群发机以游客身份发表垃圾信息
防范群发机注册垃圾用户
防范群发机以注册用户身份发表垃圾信息
修改步骤:
修改会员注册模板Reg.html
找到
<form name="addform" method="post">
在下面加
<script language="Javascript" type="text/javascript">
var aaaba = 1 + 2 + 3 + 4;
document.write ('<input type="hidden" name="smallhaha" value="' + aaaba + '" />');
</script>
修改 reg.asp
找到
Case "Reg"
在下面加
If Request.Form("smallhaha")<>"10" Then
Call WRMPS.ErrView("","","<li>请勿使用垃圾群发机",0)
End If
修改信息游客发布模板Class/Post.html
找到
<form action="?Action=Save" name="myform" method="POST">
在下面加
<script language="Javascript" type="text/javascript">
var aaaba = 1 + 2 + 3 + 4;
document.write ('<input type="hidden" name="smallhaha" value="' + aaaba + '" />');
</script>
修改/class/post.asp
找到
Case "Save"
在下面加
If Request.Form("smallhaha")<>"10" Then
Call WRMPS.ErrView("","","<li>请勿使用垃圾群发机",0)
End If
修改/member/User_ClassAD.asp
找到
Content = Content & "<input type=hidden name=ComID value="&ComID&">" & vbCrLf
在其上加
Content = Content & "<script language=""Javascript"" type=""text/javascript"">" & vbCrLf
Content = Content & "var aaaba = 1 + 2 + 3 + 4;" & vbCrLf
Content = Content & "document.write ('<input type=""hidden"" name=""smallhaha"" value=""' + aaaba + '"" />');" & vbCrLf
Content = Content & "</script>" & vbCrLf
找到
Case "AddSave"
在下面加
If Request.Form("smallhaha")<>"10" Then
Call WRMPS.ErrView("","","<li>请勿使用垃圾群发机",0)
End If
注意:你可以灵活改变上面代码中的smallhaha的名字,和它的真实值计算方法,这样就可以千变万化,让群发机彻底绝望!千万别不改就用啊。 参考资料:促奇网
-------------------------------------------
|
|