动网8.3论坛版本注册时必须用中文注册修改方法

蓝雨

动网8.3论坛禁止纯英文、纯数字注册，只能用中文名字注册
打开conn.asp

1. %>

复制代码

上面加

1. Function iscn(str)
   
2. Dim i
   
3. i = Len(str)
   
4. 
   
5. If i = 0 Then
   
6. iscn = False
   
7. Exit Function
   
8. End If
   
9. 
   
10. Do While i > 0
    
11. 
    
12. If Asc(Mid(str, i, 1)) < 10000 And Asc(Mid(str, i, 1)) > -10000 Then
    
13. iscn = False
    
14. Exit Function
    
15. End If
    
16. 
    
17. i = i - 1
    
18. Loop
    
19. 
    
20. iscn = True
    
21. End Function
    

复制代码

然后找到reg.asp文件

1. '-----------------------------------------------------------------
   
2. '系统整合
   
3. '-----------------------------------------------------------------

复制代码

上面加入

1. If Not iscn(username) Then
   
2.       Response.redirect "showerr.asp?ErrCodes=<li>只允许中文注册"
   
3.    Exit Sub
   
4. End If
   
5. 
   
6. 
   
7. 
   
8. 
   
9. 
   
10. ajaxcheck.asp
    
11. 
    
12. 
    
13. 
    
14. If Trim(FormValue) = "" Then
    
15.    Response.Write ErrCode(Template.Strings(6))'请输入您的用户名。login
    
16.    Exit Sub
    
17.   End If
    
18. 
    

复制代码

后面加入

1. If Not iscn(FormValue) Then
   
2.       Response.Write ErrCode("只允许中文注册")
   
3. 
   
4. Exit Sub
   
5. End If
   

复制代码