reg.asp文件

找到235行－246行的内容

If Request.form("quesion")="" Then
ErrCodes=ErrCodes+"<li>"+template.Strings(11)
Else
quesion=Request.form("quesion")
End If
If Request.form("answer")="" Then
ErrCodes=ErrCodes+"<li>"+template.Strings(11)
ElseIf Request.form("answer")=Request.form("oldanswer") Then
answer=Request.form("answer")
Else
answer=md5(Request.form("answer"),16)
End If

在其下面插入

'防止恶意注册添加项 by xintiao
If Request.form("Forumname")="" Then
Response.redirect "showerr.asp?ErrCodes=<li>您没有回答“防恶意注册问题答案”！&action=OtherErr"
Else
If Request.form("Forumname")<>Dvbbs.Forum_Info(0) Then
Response.redirect "showerr.asp?ErrCodes=<li>请回答正确的“防恶意注册问题答案”！&action=OtherErr"
End If
End If

2、114行处找到

TempLateStr=Replace(TempLateStr,"{$user_belief}",Selectinfo(5))

在其下面添加一行

TempLateStr=Replace(TempLateStr,"{$Forumname}",Dvbbs.Forum_Info(0))

然后再看风格处的修改，后台界面风格模板总管理page_login template.html(13)中找到

document.write ('<INPUT type=password maxLength=16 size=30 name=pswc>');

在其下面插入

document.write ('<TR>');
document.write ('<TD class=tablebody1><B>本论坛的中文名称是什么？</B><BR><font color=red>此条为防止恶意注册必填项！答案：</font><font color=blue>{$Forumname}</font></TD>');
document.write ('<TD class=tablebody1>');
document.write ('<INPUT maxLength=50 size=30 name=Forumname></TD>');
document.write ('</TR>');

至此结束，可以和那些恶意注册的垃圾暴力

[此贴子已经被作者于2006-5-10 21:45:56编辑过]

第一步：增加注册必填项目

动网默认风格分页面模板(page_login)界面风格管理template.html(13) 找到：

<B>用户名</B>：<BR>注册用户名长度限制为{$NameLimLength}－{$NameMaxLength}字节</TD>
<TD width="60%" class=tablebody1><INPUT maxLength="{$NameMaxLength}" size=30 name=name></TD>
</TR>
{$getcode}

在下面加入：

<TR>
<TD class=tablebody1><B>用户名倒填项</B>：<BR><font color="red">为防止暴力注册，请将你的用户名倒填一下</font><br>如“<font color="blue">富顺人家</font>”填为：“<font color="blue">家人顺富</font>”，否则无法通过注册哦！</TD>
<TD class=tablebody1>
<input type="text" name="username_che" size="30">
</TD>
</TR>

第二步：倒填检测项修改（reg.asp文件）

用记事本打开reg.asp文件，找到：

'防止填写QQ号码为非数字类型 2005-3-22 Dv.Yz
If Isnumeric(Request.Form("OICQ")) Then
Qq = Int(Request.Form("OICQ"))
Else
Qq = ""
End If

在下面加入：

'防暴力用户名倒填判断检测代码开始

dim username_che,rosLen,name_D,koomv_name
If Request.form("username_che")="" Then
Response.redirect "showerr.asp?ErrCodes=<li>宝贝，不好意思，请您填写好用户名倒填项，否则无法注册哦！&action=OtherErr"
Else
koomv_name=Request.form("username_che")
rosLen=Len(koomv_name)
do while rosLen<>0
name_D=name_D+mid(koomv_name,rosLen,1)
if rosLen=0 then
exit do
else
rosLen=rosLen-1
end if
loop
username_che=name_D
If username_che<>username Then
Response.redirect "showerr.asp?ErrCodes=<li>宝贝，你倒填的用户名没有通过系统验证，为了锻炼你的逆向思维，请继续！！&action=OtherErr"
End If
End If
'防暴力用户名倒填判断检测代码结束