动网8.3论坛版本注册时必须用中文注册修改方法
动网8.3论坛禁止纯英文、纯数字注册，只能用中文名字注册打开conn.asp %>上面加 Function iscn(str)
Dim i
i = Len(str)
If i = 0 Then
iscn = False
Exit Function
End If
Do While i > 0
If Asc(Mid(str, i, 1)) < 10000 And Asc(Mid(str, i, 1)) > -10000 Then
iscn = False
Exit Function
End If
i = i - 1
Loop
iscn = True
End Function
然后找到reg.asp文件 '-----------------------------------------------------------------
'系统整合
'-----------------------------------------------------------------上面加入 If Not iscn(username) Then
Response.redirect "showerr.asp?ErrCodes=<li>只允许中文注册"
Exit Sub
End If
ajaxcheck.asp
If Trim(FormValue) = "" Then
Response.Write ErrCode(Template.Strings(6))'请输入您的用户名。login
Exit Sub
End If
后面加入 If Not iscn(FormValue) Then
Response.Write ErrCode("只允许中文注册")
Exit Sub
End If
页:
[1]