常用ASP+VBSCRIPT判断函数

最新推荐文章于 2024-10-20 14:46:58 发布

最新推荐文章于 2024-10-20 14:46:58 发布 · 91 阅读

本文提供了一组用于验证QQ号、电话号码、手机号及电子邮件地址格式正确性的函数。这些函数通过检查字符串长度、特殊字符和数字的存在来确保输入的有效性。

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