[重要通告]如您遇疑難雜癥,本站支持知識付費業(yè)務(wù),掃右邊二維碼加博主微信,可節(jié)省您寶貴時間哦!

Rem ============================================================

一,修改模板部分(如有多個模板,都需進行修改)

1,后臺>風(fēng)格界面>風(fēng)格界面模板總管理>page_login界面風(fēng)格>template.html(12)

找到:
<input type="hidden" name="{$hidden}" value="{$hidden}"/>

下面另起一行添加:
<input type="hidden" name="custom_name" value="{$GlobalTm_1}"/>

2,后臺>風(fēng)格界面>風(fēng)格界面模板總管理>page_login界面風(fēng)格>template.html(13)

找到: ( dv8.2則需找: <h3 class="titlebig">用戶注冊(基本信息)</h3> )
<tr><th colspan="2" height="24">新用戶注冊</TH></tr>

下面另起一行添加:
<script>
<!-- 禁止暴力營銷注冊-增加代碼-Start -->
var Str = "{$GlobalTm_2}";
var prand = "";
for(var i = 0; i < Str.length; i++) {
prand += Str.charCodeAt(i).toString();
}
var a=((12^123)>>2)-10;
var b=Math.floor(Math.sin(1.11) * 10);
document.write ('<input type="hidden" name="custom_name" value=' + prand.substr(a,b) +' />')
<!-- 禁止暴力營銷注冊-增加代碼-End -->
</script>

3.(dv8.2需要進行這一步)
a.后臺>風(fēng)格界面>風(fēng)格界面模板總管理>main_style界面風(fēng)格>template.html(7)

找到:
<a href="reg.asp?action=apply" style="font-weight:bold">注冊</a>

改為:
<a href="reg.asp" style="font-weight:bold">注冊</a>

b.后臺>風(fēng)格界面>風(fēng)格界面模板總管理>page_index界面風(fēng)格>template.html(0)

找到:
<p class="tabgroup_on"><a href="reg.asp?action=apply">用戶注冊</a></p>

改為:
<p class="tabgroup_on"><a href="reg.asp">用戶注冊</a></p>

c.后臺>風(fēng)格界面>風(fēng)格界面模板總管理>page_login界面風(fēng)格>template.html(0)

找到:
<span><button onmousemove="this.className='button_on';" onmouseout="this.className='button'" onclick="window.location.href='reg.asp?action=apply';"> 立即注冊成為本站會員 </button></span><br /><br />

改為:
<span><button onmousemove="this.className='button_on';" onmouseout="this.className='button'" onclick="window.location.href='reg.asp';"> 立即注冊成為本站會員 </button></span><br /><br />

4,修改模板完成后記得更新下緩存.

Rem ============================================================

二,打開REG.ASP文件(修改前做好備份!)

(注意,第1步中的數(shù)字 "20" 為獲取頁面來源從左邊數(shù)的字符長度,根據(jù)自己的域名長度來看。)
(如:http://bbs.dvbbs.net/reg.asp 長度則為 28,此處可修改為 28)
(這里需要計算后得到ID值,可訪問: http://bbs.niutou.net/fbreg.asp 進行計算)
(得到的ID值,替換下面第3步的"ID值")
(有多個域名時,各個域名都要計算,則:)
( If Request.Form("custom_name")<>"ID值" Then )
( 修改成 )
( If Request.Form("custom_name")<>"ID值1" And Request.Form("custom_name")<>"ID值2" And Request.Form("custom_name")<>"ID值3" Then )
( 為了方便用戶,下面共享的是默認(rèn)Dv7.1sp1,8.0sp1,8.1和8.2修改后的reg.asp文件. )
(替換前做備份,替換后,計算ID值,修改第3步的"ID值"即可.)

1,找到:
TempLateStr=Replace(TempLateStr,"{$Forum_Name}",Dvbbs.Forum_Info(0))
TempLateStr=Replace(TempLateStr,"{$hidden}",GetFormID())

下面另起一行添加:
Rem 禁止暴力營銷注冊-增加代碼-Start (1)
TempLateStr=Replace(TempLateStr,"{$GlobalTm_1}",Left(UCase(Request.ServerVariables("HTTP_REFERER")),20))
Rem 禁止暴力營銷注冊-增加代碼-End (1)

2,找到:
TempLateStr=Replace(TempLateStr,"{$hidden}",FormID)

下面另起一行添加:
Rem 禁止暴力營銷注冊-增加代碼-Start (2)
TempLateStr=Replace(TempLateStr,"{$GlobalTm_2}",Request.Form("custom_name"))
Rem 禁止暴力營銷注冊-增加代碼-End (2)

3,找到:
If ErrCodes<>"" Then Exit Sub
If Dvbbs.ErrCodes<>"" Then Exit Sub

在這2行上面增加:(是上面哦)
Rem 禁止暴力營銷注冊-增加代碼-Start (3)
Rem Response.Write Request.Form("custom_name") Rem 遠(yuǎn)程調(diào)試時,正常注冊即可輸出ID值
Rem Response.End Rem 并且輸入下面的<>"根據(jù)您的域名來源計算的ID"中
If Request.Form("custom_name")<>"ID值" Then
Dim NoadSql,l_r_content
l_r_content = "暴力營銷注冊名:"&username&" 密碼:"&pass2&" 郵件:"&useremail
NoadSql = "insert into Dv_Log (l_touser,l_username,l_content,l_addtime,l_ip,l_type) values ('Reg.Asp','"&username&"','"&l_r_content&"',"&SqlNowString&",'"&Dvbbs.UserTrueIP&"',6)"
Dvbbs.Execute(NoadSql)
Response.redirect "showerr.asp?ErrCodes=<li>系統(tǒng)檢測您可能正在使用注冊機軟件非法注冊,請正常注冊使用。&action=OtherErr"
End If
Rem 禁止暴力營銷注冊-增加代碼-End (3)

Rem ============================================================

以上修改之后,注冊一個新賬號,成功注冊即設(shè)置完成.

本內(nèi)容涉及的軟件下載： 動網(wǎng)所有版本下載哈。。請注意自己的版本號！

計算ID值文件???????????????? ?reg_for_dv71sp1
reg_for_dv80sp1??????? ? reg_for_dv81sp1???????? reg_for_dv82sp1

問題未解決？付費解決問題加Q或微信 2589053300 (即Q號又微信號)右上方掃一掃可加博主微信

所寫所說，是心之所感，思之所悟，行之所得；文當(dāng)無敷衍，落筆求簡潔。 以所舍，求所獲；有所依，方所成！