Funktionseksempel til validering af en e-mail i ASP

Følgende funktion bruges til at validere, at en e-mail-adresse er korrekt i ASP.

funktion revMail (Mail)
'tjek gyldig adresse
'returnerer 1 for ugyldige adresser
'returnerer 0 for gyldige adresser
dæmpet atCnt
revMail = 0

chk længde
hvis len (Mail) <5 så
' [email protected] skal være den kortest mulige adresse
revMail = 1

'kontrolformat
'kontroller at den har en @
elseif instr (Mail, "@") = 0 derefter
revMail = 1

'Kontroller, at den har en.
elseif instr (Mail, ".") = 0 derefter
revMail = 1

'Kontroller, at den ikke har mere end tre tegn efter.
elseif len (Mail) - instrrev (Mail, ".")> 4 derefter
revMail = 1

'der ikke har _ efter @
'elseif instr (Mail, "_") <> 0 og _
'instrrev (Mail, "_")> instrrev (Mail, "@") derefter
'revMail = 1

andet
'der har kun en @
atCnt = 0
for i = 1 til len (Mail)
hvis midt (Mail, i, 1) = "@" så
atCnt = atCnt + 1
Afslut Hvis
Næste

hvis atCnt> 1 så
revMail = 1
Afslut Hvis

'tjek karakter for karakter
for i = 1 til len (Mail)
hvis ikke er nummer (midt (Mail, i, 1)) og _
(lcase (mid (Mail, i, 1)) lcase (midt (Mail, i, 1))> "z") og _

midt (Mail, i, 1) <> "_" og _
midt (Mail, i, 1) <> "." og _
midt (Mail, i, 1) <> "@" og _
midt (Mail, i, 1) <> "-" derefter
revMail = 1
Afslut Hvis
Næste
Afslut Hvis
slutfunktion
%>