但是谴责有用吗？有个屁用，我们谴责的还少吗？流氓依旧流氓，肆意地****着广大无辜的网民。我于几个月前用dvbbs7.1sp1搭建了一个论坛，论坛开放后没多久，就天天受到这种群发软件的骚扰，现在论坛的流量大了，每天的垃圾广告就越来越多，浪费我不少时间，就为删除这些垃圾广告。相信只要使用dvbbs7.1sp1做论坛的朋友，大多都被这个问题困扰。想关闭注册吧，又影响论坛发展，我尝试了很多方法，都没法有效地制止这些群发的垃圾广告，让我已经到了忍无可忍的地步了。
今天，我在动网官方论坛看到了一个帖子，专门讲解这个问题。按照他说的方法，我对论坛程序进行了修改，似乎效果还不错。把修改方法备个份在这里，方便自己，也方便看到这篇文章的朋友。感谢犍为真人提供的资料。
第一步：进入后台，依次进入风格界面模板总管理，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>
第二步：打开reg.asp，找到
<!--#include file="inc/md5.asp"-->
在其下添加<!--#include file="inc/CheckEvil.asp"-->
找到[CODE]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
第三步：新建一个新文件CheckEvil.asp，填写如下代码，并上传到论坛inc目录下，即 /inc/CheckEvil.asp。
<%
Dim QuesionArray(100)
Dim AnswerArray(100)
Dim QuesionNum
QuesionNum=11 '请在这里正确设置问题的总数
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)="4月1日是什么节日（提示：愚？节）"
AnswerArray(0)="愚人节"
QuesionArray(1)="一年有多少个月（提示：只填数字）？"
AnswerArray(1)="12"
QuesionArray(2)="“一个小时有多少分钟？（提示：只填数字）"
AnswerArray(2)="60"
QuesionArray(3)="“过人人过年的节日又叫什么？（提示：春??）"
AnswerArray(3)="春节"
QuesionArray(4)="每年6月1日是什么节日？（提示：儿?节）"
AnswerArray(4)="儿童节"
QuesionArray(5)="中国史上唯一的女皇是谁？（提示：武?天）"
AnswerArray(5)="武则天"
QuesionArray(6)="中国每年的10月1日什么节日？（提示：国?节）"
AnswerArray(6)="国庆节"
QuesionArray(7)="每年的5月1日是什么节日？（提示：劳?节）"
AnswerArray(7)="劳动节"
QuesionArray(8)="每年的9月10日是什么节日？（提示：教?节）"
AnswerArray(8)="教师节"
QuesionArray(9)="2乘以2再乘以2等于几？（提示：只填数字）"
AnswerArray(9)="8"
QuesionArray(10)="10-2-3+5-1=？（提示：只填数字）"
AnswerArray(10)="9"
%>
说明，此段代码中，QuesionNum=11是设置问题的个数，可以修改，但是必须与后面的问题数一致。后面的问题可以随意修改，但是要95%的人都能够回答才好，问题不要归于刁钻，能够考住注册机器就可以了。最好过一段时间就换一些问题，防止你的问题被破解后，群发机器照样可以注册。根据使用者的口碑来看，这个方法是目前最有效的一个办法，有使用dvbbs7.1sp1做论坛的朋友可以一试。
