找到
"<tr><td><b>Email地址</b>：<br>请输入有效的邮件地址</td><td><input type='text' name='Mail' size='30' maxlength='30'></td></tr>"&_
替换成
"<tr><td><b>Email地址</b>：<br>请输入有效的邮件地址</td><td><input type='text' name='Mail' size='30' maxlength='30'></td></tr>"&_
"<tr><td><b>请输入下面问题的答案</b>：<br>"&RegAsk&"</td><td><input type='text' name='RegAsk' size='30' maxlength='30'></td></tr>"&_

在找到
If IsQQpic<>"1" Then IsQQpic="0"
替换成
If LCase(Yxbbs.Fun.GetStr("RegAsk"))<>LCase(RegAns) Then YxBBs.Error("注册问题回答错误，为防止机器注册，这个问题必须回答正确才能注册！")