動網防惡意廣告比較有效的辦法附asp代碼
2020-07-27 13:09:25
供稿：網友
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)="武則天"
%>
