在Reg.asp第180行左右找到代码：

If Dvbbs.forum_setting(78)="1" Then

前面加入以下几行代码：

'＝＝＝加强检查注册昵称代码＝＝

If IsNumeric(username) then

ErrCodes=ErrCodes+"<li>不能使用纯数字ID进行注册，谢谢合作！"

End If

For I=1 to Len(username)

If left(Username,1)<>mid(Username,i,1) or asc(Left(Username,1))<0 Then I=0:Exit For

Next

If I>0 Then

ErrCodes=ErrCodes+"<li>昵称不能全部使用重复字符！"

End If

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝

即可

下一篇：ASP常用函数表