一个不同的宋亮

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

{$difference}

在此句上面添加如下代码

<TR>
<TD class="tablebody1"><b>反恶意注册必填项：</b><br />为了防止群发软件的恶意注册，净化论坛环境，请回答以下问题：<div style="font-size:14px;">问题：<span style="color:red;"><b>{$EvilQuesion}<b></span></div></TD>
<TD class="tablebody1"><INPUT size="30" name="evilanswer"> <div style="font-size:14px;">答案：<span style="color:0080FF;font-size:14px;"><b>{$EvilAnswer}</b></span> 请正确填写或将答案复制到输入框</div></TD>
</TR>

2. 打开reg.asp，找到
<!--#include file="dv_dpo/cls_dvapi.asp"-->
在其下添加
<!--#include file="inc/CheckEvil.asp"-->
找到
TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))
在其下添加
Randomize
Session("TheEvil")=int(Rnd*QuesionNum)
TempLateStr=Replace(TempLateStr,"{$EvilQuesion}", QuesionArray(Session("TheEvil")))
TempLateStr=Replace(TempLateStr,"{$EvilAnswer}", AnswerArray(Session("TheEvil")))
找到
Else
  answer=md5(Request.form("answer"),16)
End If
在其下添加
'防恶意注册修改_begin
If Request.Form("evilanswer")="" Then
  ErrCodes=ErrCodes+"<li>"+"请填写防恶意注册问题!"
End If
If Not CheckEvil(Request.Form("evilanswer")) Then
  ErrCodes=ErrCodes+"<li>"+ "防恶意注册问题回答错误，请返回重试。"
End If
'防恶意注册修改_end

3. 增加一个新文件CheckEvil.asp，填写如下代码，并上传到论坛inc目录下，即 /inc/CheckEvil.asp。
<%
Dim QuesionArray(5)
Dim AnswerArray(5)
Dim QuesionNum
'请在这里正确设置问题的总数
QuesionNum=5
Function CheckEvil(Answer)
Dim TrueAnswer
If Session("TheEvil")="" Then
  CheckEvil=False
  Exit Function
End If
TrueAnswer=CStr(AnswerArray(Session("TheEvil")))
If Answer=TrueAnswer Then
  CheckEvil=true
End If
End Function

QuesionArray(0)="12的平方是多少？"
AnswerArray(0)="144"
QuesionArray(1)="中国最长的河流叫什么名字？"
AnswerArray(1)="长江"
QuesionArray(2)="“举头望明月”的下句是什么？"
AnswerArray(2)="低头思故乡"
QuesionArray(3)="“低头思故乡”的上句是什么？"
AnswerArray(3)="举头望明月"
QuesionArray(4)="中国史上唯一的女皇是谁？"
AnswerArray(4)="武则天"

%>