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 > 立即注册成为本站会员 </button></span><br /><br />
改为:
<span><button > 立即注册成为本站会员 </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 ============================================================
以上修改之后,注册一个新账号,成功注册即设置完成.
加好友 
发短信
Post By：2011/5/25 21:41:34
www.biobox.cn