Primer funkcije za preverjanje e-pošte v ASP

Naslednja funkcija se uporablja za preverjanje pravilnosti e-poštnega naslova v ASP.

funkcija revMail (pošta)
'preveri veljaven naslov
'vrne 1 za neveljavne naslove
'vrne 0 za veljavne naslove
dim atCnt
revMail = 0

'chk dolžina
če je len (Mail) <5, potem
' [email protected] najkrajši možni naslov
revMail = 1

'preveri obliko
'preverite, ali ima @
elseif instr (Mail, "@") = 0 potem
revMail = 1

'preveri, ali ima.
elseif instr (Mail, ".") = 0 potem
revMail = 1

'preverite, ali ima za znakom največ tri znake.
elseif len (Mail) - instrrev (Mail, ".")> 4 potem
revMail = 1

', ki nima _ po @
'elseif instr (Mail, "_") <> 0 in _
'instrrev (Mail, "_")> instrrev (Mail, "@") potem
'revMail = 1

drugače
'ki ima samo enega @
atCnt = 0
za i = 1 na leno (pošta)
if mid (Mail, i, 1) = "@", potem
atCnt = atCnt + 1
konec, če
Naslednji

če je atCnt> 1, potem
revMail = 1
konec, če

'preveri znak za znakom
za i = 1 na leno (pošta)
če ni neštevilen (sredina (Mail, i, 1)) in _
(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") in _

mid (Mail, i, 1) <> "_" in _
mid (Mail, i, 1) <> "." in _
mid (Mail, i, 1) <> "@" in _
mid (Mail, i, 1) <> "-" potem
revMail = 1
konec, če
Naslednji
konec, če
končna funkcija
%>