Funktsiooni näide e-posti kinnitamiseks ASP-s

Järgmist funktsiooni kasutatakse e-posti aadressi õigsuse kontrollimiseks ASP-s.

funktsioon revMail (Mail)
'kontrollige kehtivat aadressi
'tagastab valede aadresside korral 1
'tagastab kehtivate aadresside korral 0
hämar atCnt
revMail = 0

'chk pikkus
kui len (Mail) <5 siis
' [email protected] peaks olema võimalikult lühike aadress
revMail = 1

'kontrolli vormingut
'kontrollige, kas sellel on @
elseif instr (Mail, "@") = 0 siis
revMail = 1

'kontrollige, kas sellel on.
elseif instr (Mail, ".") = 0 siis
revMail = 1

"kontrollige, et sellel ei oleks pärast tähte rohkem kui kolm tähemärki.
elseif len (Mail) - instrrev (Mail, ".")> 4 siis
revMail = 1

"millel pole _ pärast @
'elseif instr (Mail, "_") <> 0 ja _
'instrrev (Mail, "_")> instrrev (Mail, "@")
'revMail = 1

muud
"millel on ainult üks @
atCnt = 0
i jaoks = 1 kuni len (Mail)
kui keskel (Mail, i, 1) = "@" siis
atCnt = atCnt + 1
lõpp, kui
järgmine

kui atCnt> 1 siis
revMail = 1
lõpp, kui

'märk märkide kaupa
i jaoks = 1 kuni len (Mail)
kui ei, siis ei ole arvuline (keskel (Mail, i, 1)) ja _

(lcase (keskel (Mail, i, 1)) lcase (keskel (Mail, i, 1))> "z") ja _
keskel (Mail, i, 1) <> "_" ja _
keskel (Mail, i, 1) <> "." ja _
keskel (Mail, i, 1) <> "@" ja _
keskel (Mail, i, 1) <> "-" siis
revMail = 1
lõpp, kui
järgmine
lõpp, kui
lõpufunktsioon
%>