Function IsValidQQNumber(QQString)
'判断QQ号码格式
IsValidQQNumber=True
if Len(QQString)<5 or Len(QQString)>12 then
IsValidQQNumber=False
else
for i = 1 to Len(QQString)
testchar = Lcase(Mid(QQString, i, 1))
if not IsNumeric(testchar) then
IsValidQQNumber = false
exit Function
end if
next
next
end 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 = true
emailstr = Split(email, "@")
if UBound(emailstr) <> 1 then
IsValidEmail = false
exit Function
end 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 if
next
if InStr(emailstr(1), ".") <= 0 then
IsValidEmail = false
exit Function
end if
i = Len(emailstr(1)) - InStrRev(emailstr(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