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

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

<tr>
<td class=tablebody1><b>密码问题</b>：<br>忘记密码的提示问题</td>


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

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


</td>
<td class=tablebody1><input size=30 name=evilanswer> </td>
</tr>


2. 打开reg.asp，找到
<!--#include file="inc/md5.asp"-->
在其下添加
<!--#include file="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")
end if
在其下添加
if request.form("evilanswer")="" then
errcodes=errcodes+"<li>"+"请填写防恶意注册问题!"
end if

if not checkevil(request.form("evilanswer")) then
errcodes=errcodes+"<li>"+ "防恶意注册问题回答错误，请返回重试。"
end if



3. 增加一个新文件checkevil.asp，填写如下代码，并上传到论坛inc目录下，即 /inc/checkevil.asp。
<%
dim quesionarray(100)
dim answerarray(100)
dim quesionnum
quesionnum=5 '请在这里正确设置问题的总数

function checkevil(answer)
dim trueanswer
if session("evilid")="" then
checkevil=false
exit function
end if
trueanswer=cstr(answerarray(session("evilid")))
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)="武则天"

%>