動網論壇防止群發帖方法設定

來源:互聯網
上載者:User

特別提示:修改之前論壇先做個備份,出錯時不會恢複的朋友也不用費多大事!

防止論壇惡意註冊
修改一下註冊就行了。加上一個隨機回答問題的,,,

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)="武則天"
%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。