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
