动网论坛防止暴力注册 暴力营销注册 垃圾注册 插件方法

[全站通告] 想快速节省您的时间并可接受付费的朋友，可扫右边二维码加博主微信-非诚勿扰！

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

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

1,后台>风格界面>风格界面模板总管理>page_login界面风格>template.html(12)

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

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

2,后台>风格界面>风格界面模板总管理>page_login界面风格>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.后台>风格界面>风格界面模板总管理>main_style界面风格>template.html(7)

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

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

b.后台>风格界面>风格界面模板总管理>page_index界面风格>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.后台>风格界面>风格界面模板总管理>page_login界面风格>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步中的数字 "20" 为获取页面来源从左边数的字符长度,根据自己的域名长度来看。)
(如: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 )
( 为了方便用户,下面共享的是默认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 远程调试时,正常注册即可输出ID值
Rem Response.End Rem 并且输入下面的<>"根据您的域名来源计算的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>系统检测您可能正在使用注册机软件非法注册,请正常注册使用。&action=OtherErr"
End If
Rem 禁止暴力营销注册-增加代码-End (3)

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

以上修改之后,注册一个新账号,成功注册即设置完成.

本内容涉及的软件下载： 动网所有版本下载哈。。请注意自己的版本号！

计算ID值文件                  reg_for_dv71sp1
reg_for_dv80sp1          reg_for_dv81sp1         reg_for_dv82sp1

问题未解决？付费解决问题加Q或微信 2589053300 (即Q号又微信号)右上方扫一扫可加博主微信

所写所说，是心之所感，思之所悟，行之所得；文当无敷衍，落笔求简洁。 以所舍，求所获；有所依，方所成！