'************************************* 
'檢測是否只包含英文和數(shù)字 
'************************************* 

Function IsvalidValue(ArrayN, Str) 
IsvalidValue = False 
Dim GName 
For Each GName in ArrayN 
If Str = GName Then 
IsvalidValue = True 
Exit For 
End If 
Next 
End Function 

'************************************* 
'檢測是否有效的數(shù)字 
'************************************* 

Function IsInteger(Para) 
IsInteger = False 
If Not (IsNull(Para) Or Trim(Para) = "" Or Not IsNumeric(Para)) Then 
IsInteger = True 
End If 
End Function 

'************************************* 
'用戶名檢測 
'************************************* 

Function IsValidUserName(byVal UserName) 
Dim i, c 
Dim VUserName 
IsValidUserName = True 
For i = 1 To Len(UserName) 
c = LCase(Mid(UserName, i, 1)) 
If InStr("$!<>?#^%@~`&*();:+='""　 ", c) > 0 Then 
IsValidUserName = False 
Exit Function 
End If 
Next 
For Each VUserName in Register_UserName 
If UserName = VUserName Then 
IsValidUserName = False 
Exit For 
End If 
Next 
End Function 

'************************************* 
'檢測是否有效的E-mail地址 
'************************************* 

Function IsValidEmail(Email) 
Dim names, Name, i, c 
IsValidEmail = True 
Names = Split(email, "@") 
If UBound(names) <> 1 Then 
IsValidEmail = False 
Exit Function 
End If 
For Each Name IN names 
If Len(Name) <= 0 Then 
IsValidEmail = False 
Exit Function 
End If 
For i = 1 To Len(Name) 
c = LCase(Mid(Name, i, 1)) 
If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then 
IsValidEmail = False 
Exit Function 
End If 
Next 
If Left(Name, 1) = "." Or Right(Name, 1) = "." Then 
IsValidEmail = False 
Exit Function 
End If 
Next 
If InStr(names(1), ".") <= 0 Then 
IsValidEmail = False 
Exit Function 
End If 
i = Len(names(1)) - InStrRev(names(1), ".") 
If i <> 2 And i <> 3 Then 
IsValidEmail = False 
Exit Function 
End If 
If InStr(email, "..") > 0 Then 
IsValidEmail = False 
End If 
End Function