Funkciju piemērs, lai apstiprinātu e-pastu ASP

Lai pārbaudītu, vai ASP e-pasta adrese ir pareiza, tiek izmantota šī funkcija.

funkcija revMail (pasts)
'pārbaudiet derīgu adresi
'atgriež 1 nederīgām adresēm
'atgriež 0 derīgām adresēm
blāvs atCnt
revMail = 0

'chk garums
ja len (pasts) <5, tad
' [email protected] jābūt pēc iespējas īsākai adresei
revMail = 1

'pārbaudīt formātu
pārbaudiet, vai tam ir @
elseif instr (Mail, "@") = 0, tad
revMail = 1

pārbaudiet, vai tam ir.
elseif instr (Mail, ".") = 0, tad
revMail = 1

"pārbaudiet, vai tajā pēc.
elseif len (pasts) - instrrev (pasts, ".")> 4 pēc tam
revMail = 1

"kuram nav _ pēc @
'elseif instr (Mail, "_") <> 0 un _
tad 'instrrev (Mail, "_")> instrrev (Mail, "@")
'revMail = 1

cits
"kurā ir tikai viens @
atCnt = 0
par i = 1 līdz len (pasts)
ja vidū (Mail, i, 1) = "@", tad
atCnt = atCnt + 1
beigties, ja
Nākamais

ja atCnt> 1, tad
revMail = 1
beigties, ja

'pārbaudīt rakstzīmi pēc rakstzīmes
par i = 1 līdz len (pasts)
ja nav skaitlis (vidū ​​(pasts, i, 1)) un _
(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") un _

vidū (pasts, i, 1) <> "_" un _
vidū (pasts, i, 1) <> "." un _
vidū (pasts, i, 1) <> "@" un _
vidū (pasts, i, 1) <> "-" pēc tam
revMail = 1
beigties, ja
Nākamais
beigties, ja
beigu funkcija
%>