Primjer funkcije za provjeru valjanosti e-pošte u ASP-u

Sljedeća se funkcija koristi za provjeru ispravnosti adrese e-pošte u ASP-u.

funkcija revMail (Mail)
'provjeri valjanu adresu
'vraća 1 za nevaljane adrese
'vraća 0 za važeće adrese
prigušen naCnt
revMail = 0

'chk duljina
ako je len (Mail) <5 onda
' [email protected] trebala biti najkraća moguća adresa
revMail = 1

'provjeri format
'provjeri ima li @
elseif instr (Mail, "@") = 0 tada
revMail = 1

'provjerite ima li.
elseif instr (Mail, ".") = 0 tada
revMail = 1

'provjerite ima li nakon znaka najviše tri znaka.
elseif len (Mail) - instrrev (Mail, ".")> 4 zatim
revMail = 1

'koji nema _ nakon @
'elseif instr (Mail, "_") <> 0 i _
'instrrev (Mail, "_")> instrrev (Mail, "@") zatim
'revMail = 1

drugo
'koji ima samo jedan @
atCnt = 0
za i = 1 na lenu (pošta)
ako je sredina (Mail, i, 1) = "@", tada
atCnt = atCnt + 1
završi ako
Sljedeći

ako je atCnt> 1 onda
revMail = 1
završi ako

'provjeri znak po znak
za i = 1 na lenu (pošta)
ako ne i brojčani (sredina (Mail, i, 1)) i _
(lcase (sredina (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") i _

sredina (Mail, i, 1) <> "_" i _
sredina (Mail, i, 1) <> "." i _
sredina (Mail, i, 1) <> "@" i _
mid (Mail, i, 1) <> "-" onda
revMail = 1
završi ako
Sljedeći
završi ako
krajnja funkcija
%>