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

找到：

<TR>
<TD class=tablebody1><B>问题答案</B>：<BR>忘记密码的提示问题答案，用于取回论坛密码</TD>
<TD class=tablebody1>
<INPUT type=text size=30 name=answer>
</TD></TR>

下面添加：

<TR>
<TD class=tablebody1><div style="color:red">为防止恶意注册,请回答以下问题:</div>
<b>{$yuckjQuesion}<b>
</TD>
<TD class=tablebody1><INPUT size=30 name=yuckjanswer></TD>
</TR>

2. 打开reg.asp，找到
<!--＃i nclude file="inc/md5.asp"-->
在其下添加
<!--＃i nclude file="inc/Checkyuckj.asp"-->
找到
TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))
在其下添加
Randomize
Session("yuckjID")=int(Rnd*QuesionNum)
TempLateStr=Replace(TempLateStr,"{$yuckjQuesion}", QuesionArray(Session("yuckjID")))
找到
Else
quesion=Request.form("quesion")
End If
在其下添加
If Request.Form("yuckjAnswer")="" Then
ErrCodes=ErrCodes+"<li>"+"请填写防恶意注册问题!"
End If

If Not Checkyuckj(Request.Form("yuckjAnswer")) Then
ErrCodes=ErrCodes+"<li>"+ "防恶意注册问题回答错误，请返回重试。"
End If

把以下源代码存为文件checkyuckj.asp， 放到论坛inc/目录下

<%
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=9  '请在这里正确设置问题的总数

Function Checkyuckj(Answer)
Dim TrueAnswer
If Session("yuckjID")="" Then
  Checkyuckj=False
  Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("yuckjID")))
If Answer=TrueAnswer Then
  Checkyuckj=true
End If

End Function

QuesionArray(0)="13的平方是多少？（提示：16?）"
AnswerArray(0)="169"
QuesionArray(1)="一年有多少个节气？（提示：2?）"
AnswerArray(1)="24"
QuesionArray(2)="“天苍苍，野茫茫”的下句是什么？（提示：?吹草低现牛羊）"
AnswerArray(2)="风吹草低现牛羊"
QuesionArray(3)="“惟见长江天际流”的上句是什么？（提示：?帆远影碧空尽）"
AnswerArray(3)="孤帆远影碧空尽"
QuesionArray(4)="中国史上哪个国家统一了六国？（提示：?国）"
AnswerArray(4)="秦国"
QuesionArray(5)="[上]的反义词是什么？（提示：一个字）"
AnswerArray(5)="下"
QuesionArray(6)="中华人民共和国哪一年正式宣布成立？（提示：19??）"
AnswerArray(6)="1949"
QuesionArray(7)="‘中华汉语大词典’共有多少字？（提示：数字）"
AnswerArray(7)="7"
QuesionArray(8)="中华人民共和国首都是哪儿？（提示：?京）"
AnswerArray(8)="北京"%>