动网防恶意广告比较有效的办法附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)="武则天"
%>
进入后台,风格界面模板总管理,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)="武则天"
%>
上一篇: 生产后产妇怎么吃鸡对身体好处大
下一篇: 四季豆没熟吃了会中毒吗,快来了解一下
推荐阅读