ASP to judge telephone number and email address program

ASP to judge telephone number and email address program

Function IsValidEmail (email)
Dim names, Name, I, C
IsValidEmail = True
names = Split (email, "@")
If UBound (names) <> 1 Then
IsValidEmail = False
Exit Function
End If
For each Name in names
If Len (Name) <= 0 Then
IsValidEmail = False
Exit Function
End If
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
End If
Next
If Left (Name, 1) = "." Or Right (Name, 1) = "." Then
IsValidEmail = False
Exit Function
End If
Next
If InStr (Names (1), ".") <= 0 Then
IsValidEmail = False
Exit Function
End If
i = Len (names (1))-InStrRev (names (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
' Determines whether the phone number is correct
Function Isvalidtel (para)
 dim Str
 dim L, I
 if IsNull (PA RA) Then
  isvalidtel = False
  exit Function
 end If
 str = CSTR (para)
 if Len (Trim (STR)) <7 Then
  isvalidtel = False
  exit Function
 end If
 l = Len (str)
 for i = 1 to L
  if not (Mid (STR, I, 1) >= "0" and Mid (str, I, 1) <= "9" Or Mid (Str, I, 1) = "-") Then
   isvalidtel = False
   exit Function
  e nd If
 next
 isvalidtel = True
End Function