Funktionsbeispiel zum Validieren einer E-Mail in ASP

Die folgende Funktion wird verwendet, um zu überprüfen, ob eine E-Mail-Adresse in ASP korrekt ist.

Funktion revMail (Mail)
'Gültige Adresse prüfen
'gibt 1 für ungültige Adressen zurück
'gibt 0 für gültige Adressen zurück
dim atCnt
revMail = 0

'chk-Länge
wenn len (Mail) <5 dann
' [email protected] sollte die kürzestmögliche Adresse sein
revMail = 1

'Format prüfen
'überprüfe, ob es ein @ hat
elseif instr (Mail, "@") = 0 then
revMail = 1

'Überprüfen Sie, ob es a.
elseif instr (Mail, ".") = 0 then
revMail = 1

'prüfen Sie, dass nach dem nicht mehr als drei Zeichen stehen.
elseif len (Mail) - instrrev (Mail, ".")> 4 then
revMail = 1

'das hat kein _ nach @
'elseif instr (Mail, "_") <> 0 und _
'instrrev (Mail, "_")> instrrev (Mail, "@") dann
'revMail = 1

sonst
'das hat nur ein @
atCnt = 0
für i = 1 bis len (Mail)
if mid (Mail, i, 1) = "@" then
atCnt = atCnt + 1
ende wenn
Nächster

wenn atCnt> 1 dann
revMail = 1
ende wenn

'Zeichen für Zeichen prüfen
für i = 1 bis len (Mail)
wenn nicht numerisch (mid (Mail, i, 1)) und _

(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") und _
mid (Mail, i, 1) <> "_" und _
mid (Mail, i, 1) <> "." und _
mid (Mail, i, 1) <> "@" und _
mid (Mail, i, 1) <> "-" dann
revMail = 1
ende wenn
Nächster
ende wenn
Endfunktion
%>