判斷EMAIL是否正確的程序

<%

'判斷EMAIL是否正確

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

%>