Príklad funkcie na overenie e-mailu v ASP

Nasledujúca funkcia sa používa na overenie správnosti e-mailovej adresy v ASP.

funkcia revMail (Mail)
'skontrolovať platnú adresu
'vráti 1 pre neplatné adresy
'vráti 0 pre platné adresy
stlmiť atCnt
revMail = 0

'dĺžka chk
ak len (Mail) <5 potom
' [email protected] by mala byť čo najkratšia adresa
revMail = 1

"skontrolovať formát
'skontrolovať, či má @
elseif instr (Mail, "@") = 0 potom
revMail = 1

'skontrolujte, či má.
elseif instr (Mail, ".") = 0 potom
revMail = 1

'skontroluje, či nemá po.
elseif len (Mail) - instrrev (Mail, ".")> 4 potom
revMail = 1

„ktorý nemá _ po @
'elseif instr (Mail, "_") <> 0 a _
'instrrev (Mail, "_")> instrrev (Mail, "@") potom
'revMail = 1

inak
„ktorý má iba jeden @
atCnt = 0
pre i = 1 až len (pošta)
if mid (Mail, i, 1) = "@" potom
atCnt = atCnt + 1
koniec Ak
Ďalšie

ak atCnt> 1 potom
revMail = 1
koniec Ak

'skontrolovať znak po znaku
pre i = 1 až len (pošta)
ak nie je číselný (stredný (Mail, i, 1)) a _
(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") a _
mid (Mail, i, 1) <> „_“ a _

mid (Mail, i, 1) <> "." a _
mid (Mail, i, 1) <> „@“ a _
mid (Mail, i, 1) <> "-" potom
revMail = 1
koniec Ak
Ďalšie
koniec Ak
koncová funkcia
%>