下面是几种常用防垃圾注册的方法，可以搭配设置，再结合论坛本身的审核与过滤功能。可以最大化防止垃圾注册发帖

===============修改方法======================
http://bbs.dvbbs.net/dispbbs.asp?BoardID=8&ID=1465565&replyID=&skin=1
http://bbs.dvbbs.net/dispbbs.asp?boardid=8&Id=1497671
http://bbs.dvbbs.net/dispbbs.asp?BoardID=8&ID=1492273&replyID=&skin=1
=================================================

===============论坛本身设置==========================
一、审核
后台>版面管理>版面(分类)管理>高级设置>访问权限相关
1.帖子审核制度 (开放)
2.扩展审核制度(开放)
3.敏感字设置(敏感字1|敏感字2|敏感字3)

前台>管理>审核管理>修改审核设置或新建设置
1.设置名称>自定义>应用
2.审核范围>新主题,新回帖,编辑帖
3.审核等级>选择用户组>启用
4.限制设置>主题少于2,启用
  发帖少于10,应用
  被删率大于50%,启用

二，脏话过滤
后台》常规管理》脏话过滤设置

三、如果是8.3版本，还可以进行下面操作
后台》论坛基本设置》全站审核设置 、非法关键词不允许发
后台》用户相关》批量设置审核
========================================================== 

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

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

找到:

下面另起一行添加:

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

找到: ( dv8.2和Dv8.3则需找:

用户注册(基本信息)

下面另起一行添加:

3.(dv8.2和Dv8.3需要进行这一步)
a.后台>风格界面>风格界面模板总管理>main_style界面风格>template.html(7)

找到:
注册

改为:
注册
(总体来说。就是将?action=apply删除掉)

b.后台>风格界面>风格界面模板总管理>page_index界面风格>template.html(0)

找到:

用户注册

改为:

用户注册

c.后台>风格界面>风格界面模板总管理>page_login界面风格>template.html(0)

找到:
onclick="window.location.href=''reg.asp?action=apply'';"

改为:
onclick="window.location.href=''reg.asp'';"

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=