欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-06-29 13:06:33
1.   进入后台,风格界面模板总管理,page_login,template.html(13) 
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)="武则天"

%>