Funksjonseksempel for å validere en e-post i ASP

Følgende funksjon brukes til å validere at en e-postadresse er riktig i ASP.

funksjon revMail (Mail)
'sjekk gyldig adresse
'returnerer 1 for ugyldige adresser
'returnerer 0 for gyldige adresser
dim atCnt
revMail = 0

chk lengde
hvis len (Mail) <5 da
' [email protected] bør være kortest mulig adresse
revMail = 1

'sjekk format
'sjekk at den har en @
elseif instr (Mail, "@") = 0 da
revMail = 1

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

'sjekk at den ikke har mer enn tre tegn etter.
elseif len (Mail) - instrrev (Mail, ".")> 4 da
revMail = 1

'som ikke har _ etter @
'elseif instr (Mail, "_") <> 0 og _
'instrrev (Mail, "_")> instrrev (Mail, "@") da
'revMail = 1

ellers
'som bare har en @
atCnt = 0
for i = 1 til len (Mail)
hvis midt (Mail, i, 1) = "@" da
atCnt = atCnt + 1
slutt om
neste

hvis atCnt> 1 da
revMail = 1
slutt om

'sjekk 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) <> "-" da
revMail = 1
slutt om
neste
slutt om
sluttfunksjon
%>