网人系统防垃圾信息插件

############################################################################################################################### ###### ###### ###### 演示地址：http://www.sy315.net ###### ################################################################################################################################ 【原创】防范垃圾信息群发机的插件 修改步骤： 修改会员注册模板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的名字，和它的真实值(千万要改掉)，这样就可以千变万化，让群发机彻底绝望！