1.

进入后台，风格界面模板总管理，page_login,template.html(13)

<TR>

<TDclass=tablebody1><B>密码问题</B>：<BR>忘记密码的提示问题</TD>

在此两句上面添加如下代码

<TR>

<TDclass=tablebody1>

<div><b>反论坛群发必填项:</b></div>

<div>为了防止群发软件的恶意注册，</div>

<div>请回答以下问题</div>

<div><b>{$EvilQuesion}<b></div>

</TD>

<TDclass=tablebody1><INPUTsize=30name=evilanswer></TD>

</TR>

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")

EndIf

在其下添加

IfRequest.Form("EvilAnswer")=""Then

ErrCodes=ErrCodes+"<li>"+"请填写防恶意注册问题!"

EndIf

IfNotCheckEvil(Request.Form("EvilAnswer"))Then

ErrCodes=ErrCodes+"<li>"+"防恶意注册问题回答错误，请返回重试。"

EndIf

3.增加一个新文件CheckEvil.asp，填写如下代码，并上传到论坛inc目录下，即/inc/CheckEvil.asp。

<%

DimQuesionArray(100)

DimAnswerArray(100)

DimQuesionNum

QuesionNum=5'请在这里正确设置问题的总数

FunctionCheckEvil(Answer)

DimTrueAnswer

IfSession("EvilID")=""Then

CheckEvil=False

ExitFunction

EndIf

TrueAnswer=CStr(AnswerArray(Session("EvilID")))

IfAnswer=TrueAnswerThen

CheckEvil=true

EndIf

EndFunction

QuesionArray(0)="12的平方是多少？（数字）"

AnswerArray(0)="144"

QuesionArray(1)="中国最长的河流叫什么名字？"

AnswerArray(1)="长江"

QuesionArray(2)="“举头望明月”的下句是什么？（提示：低头??乡）"

AnswerArray(2)="低头思故乡"

QuesionArray(3)="“举头望明月”的下句是什么？（提示：低头??乡）"

AnswerArray(3)="低头思故乡"

QuesionArray(4)="中国史上唯一的女皇是谁？（提示：武?天）"

AnswerArray(4)="武则天"

%>