动网防恶意广告比较有效的办法附asp代码

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

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


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

<TR>
<TDclass=tablebody1>
<divstyle=color:red><b>反论坛群发必填项:</b></div>
<div>为了防止群发软件的恶意注册，</div>
<div>请回答以下问题</div>
<divstyle=color:blue;font-size=18px><b>{$EvilQuesion}<b></div>


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


2.打开reg.asp，找到
<!--#includefile=inc/md5.asp-->
在其下添加
<!--#includefile=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)
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)=武则天

%>