Function IsValidQQNumber(QQString)'判断QQ号码格式IsValidQQNumber=True
if Len(QQString)<5 or Len(QQString)>12 thenIsValidQQNumber=Falseelsefor i = 1 to Len(QQString) testchar = Lcase(Mid(QQString, i, 1)) if not IsNumeric(testchar) then IsValidQQNumber = false exit Function end if nextnextend if
End Function
Function IsValidTelNumber(strTelephone)'判断电话号码格式IsValidTelNumber = True if Len(strTelephone) <= 0 then IsValidTelNumber = false exit Function end if if Left(strTelephone, 1) = "-" or Right(strTelephone, 1) = "-" then IsValidTelNumber = false exit Function end if for i = 1 to Len(strTelephone) testchar = Mid(strTelephone, i, 1) if testchar<>"-" then if not IsNumeric(testchar) then IsValidTelNumber = false exit Function end if end if next
end Function
Function IsValidMobileNumber(strMobile)'判断手机号码格式IsValidMobileNumber = True if Len(strMobile) <= 0 then IsValidMobileNumber = false exit Function else if Len(strMobile) >13 then IsValidMobileNumber = false exit Function end if end if for i = 1 to Len(strMobile) testchar = Mid(strMobile, i, 1) if not IsNumeric(testchar) then IsValidMobileNumber = false exit Function end if next
end Function
Function IsValidEmail(email)'判断电子邮件格式IsValidEmail = trueemailstr = Split(email, "@")if UBound(emailstr) <> 1 then IsValidEmail = false exit Functionend if
for each emailchr in emailstr if Len(emailchr) <= 0 then IsValidEmail = false exit Function end if for i = 1 to Len(emailchr) testchar = Lcase(Mid(emailchr, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", testchar) <= 0 and not IsNumeric(testchar) then '如果不是字符允许的字母则必须是数字 IsValidEmail = false exit Function end if next '如果是允许的字符，则必须包含小数点 if Left(emailchr, 1) = "." or Right(emailchr, 1) = "." then IsValidEmail = false exit Function end ifnext
if InStr(emailstr(1), ".") <= 0 then IsValidEmail = false exit Functionend ifi = Len(emailstr(1)) - InStrRev(emailstr(1), ".")if i <> 2 and i <> 3 then IsValidEmail = false exit Functionend ifif InStr(email, "..") > 0 then IsValidEmail = falseend ifend Function
