<p>　　进入后台，风格界面模板总管理，page_login,template.html(13)</p><code><TR><br /><TD class=tablebody1><B>密码问题</B>：<BR>忘记密码的提示问题</TD></code><p>　　在此两句上面添加如下代码</p><code><TR><br /><TD class=tablebody1><br /><div style="color:red"><b>反论坛群发必填项:</b></div><br /><div>为了防止群发软件的恶意注册，</div><br /><div>请回答以下问题</div><br /><div style="color:blue;font-size=18px"><b>{$EvilQuesion}<b></div></code><code></TD><br /><TD class=tablebody1><INPUT size=30 name=evilanswer> </TD><br /></TR></code></p><p>　　2. 打开reg.asp，找到</p><code><!--#include file="inc/md5.asp"--></code></p><p>　　在其下添加</p><code><!--#include file="inc/CheckEvil.asp"--></code></p><p>　　找到</p><code>TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))</code></p><p>　　在其下添加</p><code>Randomize<br />Session("EvilID")=int(Rnd*QuesionNum)<br />TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("EvilID")))</code></p><p>　　找到</p><code>Else<br />quesion=Request.form("quesion")<br />End If</code></p><p>　　在其下添加</p><code>If Request.Form("EvilAnswer")="" Then<br />ErrCodes=ErrCodes+"<li>"+"请填写防恶意注册问题!"<br />End IfIf Not CheckEvil(Request.Form("EvilAnswer")) Then<br />ErrCodes=ErrCodes+"<li>"+ "防恶意注册问题回答错误，请返回重试。"<br />End If</code><p>　　3. 增加一个新文件CheckEvil.asp，填写如下代码，并上传到论坛inc目录下，即 /inc/CheckEvil.asp。</p><code><%<br />Dim QuesionArray(100)<br />Dim AnswerArray(100)<br />Dim QuesionNum<br />QuesionNum=5 '请在这里正确设置问题的总数Function CheckEvil(Answer)<br />Dim TrueAnswer<br />If Session("EvilID")="" Then<br />CheckEvil=False<br />Exit Function<br />End If<br />TrueAnswer=CStr(AnswerArray(Session("EvilID")))<br />If Answer=TrueAnswer Then<br />CheckEvil=true<br />End If<br />End Function<br />QuesionArray(0)="12的平方是多少？（数字）"<br />AnswerArray(0)="144"<br />QuesionArray(1)="中国最长的河流叫什么名字？"<br />AnswerArray(1)="长江"<br />QuesionArray(2)="“举头望明月”的下句是什么？（提示：低头??乡）"<br />AnswerArray(2)="低头思故乡"<br />QuesionArray(3)="“举头望明月”的下句是什么？（提示：低头??乡）"<br />AnswerArray(3)="低头思故乡"<br />QuesionArray(4)="中国史上唯一的女皇是谁？（提示：武?天）"<br />AnswerArray(4)="武则天"<br />%></code></p>