asp IsValidEmail Funktion zur Überprüfung der E-Mail-Adresse (E-Mail)

Viele Bestätigungs-E-Mails werden auf dem js-Client überprüft, aber wenn wir ASP zur Überprüfung auf dem Server verwenden, sollte es kein Problem geben. Kopieren Sie den Codecode wie folgt:

'**************************************************

'Funktionsname: IsValidEmail

'Funktion: Überprüfen Sie die Gültigkeit der E-Mail-Adresse

'Parameter: E-Mail ----Zu überprüfende E-Mail-Adresse

'Rückgabewert: True ----Die E-Mail-Adresse ist legal

' Falsch ----Die E-Mail-Adresse ist illegal

'**************************************************

Öffentliche Funktion IsValidEmail(Email)

Dunkle Namen, Name, I, c

IsValidEmail = True

Namen = Split(Email, @)

Wenn UBound(names) <> 1, dann IsValidEmail = False: Funktion beenden

Für jeden Namen In Namen

Wenn Len(name) <= 0, dann IsValidEmail = False:Exit Function

Für I = 1 Zu Len(Name)

c = LCase(Mid(name, I, 1))

Wenn InStr(abcdefghijklmnopqrstuvwxyz_-., c) <= 0 und nicht IsNumeric(c), dann ist IsValidEmail = False:Funktion beenden

Nächste

Wenn Left(name, 1) = . Oder Right(name, 1) = . Dann ist IsValidEmail = False:Exit-Funktion

Nächste

Wenn InStr(names(1), .) <= 0, dann IsValidEmail = False:Exit Function

I = Len(names(1)) - InStrRev(names(1), .)

Wenn I <> 2 und I <> 3, dann ist IsValidEmail = False:Exit-Funktion

Wenn InStr(Email, ..) > 0, dann ist IsValidEmail = False

Funktion beenden