TR> TD class=tablebody1> div style="color:red">b>反论坛群发必填项:/b>/div> div>为了防止群发软件的恶意注册，/div> div>请回答以下问题/div> div style="color:blue;font-size=18px">b>{$EvilQuesion}b>/div>
2. 打开reg.asp，找到 !--#include file="inc/md5.asp"--> 在其下添加 !--#include file="inc/CheckEvil.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+"li>"+"请填写防恶意注册问题!" End If
If Not CheckEvil(Request.Form("EvilAnswer")) Then ErrCodes=ErrCodes+"li>"+ "防恶意注册问题回答错误，请返回重试。" 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
