| 常见论坛防垃圾广告帖设置攻略 |
PHPWIND论坛关于防发帖机的方法1.启用验证码
动网论坛防止发帖机恶意发帖的办法第一种方法: 这样的话,当用户点击reg.asp的时候,必需要点"下一步"才能注册,而网络营销软件不会探测到reg_new.asp的,因为后台模板的代码里根本没有提到reg_new.asp这个真正的注册用户文件! 第二种方法: 让注册者回答随机问题 显然,这是上个思路的一点改进。至于在效果上是否有区别,还未实践证明。 这里我给出了修改方法。蓝色代码为已存在代码,红色代码是新增加代码。 1. 进入后台,风格界面模板总管理,page_login,template.html(13) 密码问题: | 忘记密码的提示问题 在此两句上面添加如下代码 反论坛群发必填项: 为了防止群发软件的恶意注册, 请回答以下问题 {$EvilQuesion} | 2. 打开reg.asp,找到 在其下添加 找到 TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5)) 在其下添加 Randomize Session("EvilID")=int(Rnd*QuesionNum) TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("EvilID"))) 找到 Else quesion=Request.form("quesion") End If 在其下添加 If Request.Form("EvilAnswer")="" Then ErrCodes=ErrCodes+" End If If Not CheckEvil(Request.Form("EvilAnswer")) Then ErrCodes=ErrCodes+" End If 3. 增加一个新文件CheckEvil.asp,填写如下代码,并上传到论坛inc目录下,即 /inc/CheckEvil.asp。 <% Dim QuesionArray(100) Dim AnswerArray(100) Dim QuesionNum QuesionNum=5 '请在这里正确设置问题的总数 Function CheckEvil(Answer) Dim TrueAnswer If Session("EvilID")="" Then CheckEvil=False Exit Function End If TrueAnswer=CStr(AnswerArray(Session("EvilID"))) If Answer=TrueAnswer Then CheckEvil=true End If End Function QuesionArray(0)="12的平方是多少?(数字)" AnswerArray(0)="144" QuesionArray(1)="中国最长的河流叫什么名字?" AnswerArray(1)="长江" QuesionArray(2)="“举头望明月”的下句是什么?(提示:低头??乡)" AnswerArray(2)="低头思故乡" QuesionArray(3)="“举头望明月”的下句是什么?(提示:低头??乡)" AnswerArray(3)="低头思故乡" QuesionArray(4)="中国史上唯一的女皇是谁?(提示:武?天)" AnswerArray(4)="武则天" %> DISCUZ论坛关于防发帖机的方法1:问:如果有注册机器人在Discuz!论坛上批量注册用户怎么办?
另外还可以设置注册限制:“Discuz! 选项-->注册与访问控制-->IP 注册间隔限制(小时) ”在这里设置同一台电脑注册时间的间隔也可有效防止恶意注册。
|
|