常用ASP+VBSCRIPT判斷函數

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