As电子邮件、手机号码有效性验证的函数

'********************************************
'函数名：IsValidEmail
'作  用：检查Email地址合法性
'参  数：email ----要检查的Email地址
'返回值：True  ----Email地址合法
'       False ----Email地址不合法
'********************************************
Function IsValidEmail(Email)
    Dim names, name, I, c
    IsValidEmail = True
    names = Split(Email, "@")
    If UBound(names) <> 1 Then IsValidEmail = False: Exit Function
    For Each name In names
        If Len(name) <= 0 Then IsValidEmail = False:Exit Function
        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
       Next
       If Left(name, 1) = "." Or Right(name, 1) = "." Then IsValidEmail = False:Exit Function
    Next
    If InStr(names(1), ".") <= 0 Then IsValidEmail = False:Exit Function
    I = Len(names(1)) - InStrRev(names(1), ".")
    If I <> 2 And I <> 3 Then IsValidEmail = False:Exit Function
    If InStr(Email, "..") > 0 Then IsValidEmail = False
End Function

　　

'********************************************
'函数名：ValidMobile
'作  用：检查手机号码合法性
'参  数：str ----要检查的手机号码
'返回值：True  ----手机号码合法
'       False ----手机号码不合法
'********************************************
Function ValidMobile(ByVal str)
    Dim reg
    Set reg = New RegExp
    reg.Pattern = "^1[358][\d]{9}$"
    ValidMobile = reg.test(str)
    Set reg = Nothing
End Function