'====================================================
'判断用户名是否包含非法字符 True 合法的字符串
'====================================================
Function CheckString(Str1)
Dim N
Dim S
For N = 1 To Len(Str1)
S = Asc(Mid(Str1, N))
If S > 47 And S < 58 Or S > 64 And S < 91 Or S > 96 And S < 122 Or S = 95 Then '合法的字符串
CheckString=True
Else
CheckString=False
End If
Next
End Function