Toimintoesimerkki sähköpostin vahvistamiseksi ASP: ssä

Seuraavaa toimintoa käytetään vahvistamaan, että sähköpostiosoite on oikea ASP: ssä.

toiminto revMail (Mail)
'tarkista oikea osoite
'palauttaa 1 virheellisille osoitteille
'palauttaa 0 kelvollisille osoitteille
himmeä atCnt
revMail = 0

chk pituus
jos len (Mail) <5 sitten
' [email protected] pitäisi olla lyhin mahdollinen osoite
revMail = 1

'tarkista muoto
'tarkista, että sillä on @
elseif instr (Mail, "@") = 0 sitten
revMail = 1

'tarkista, että siinä on.
elseif instr (Mail, ".") = 0 sitten
revMail = 1

"tarkista, että siinä on enintään kolme merkkiä.
elseif len (Mail) - instrrev (Mail, ".")> 4 sitten
revMail = 1

"jolla ei ole _ jälkeen @
'elseif instr (Mail, "_") <> 0 ja _
'instrrev (Mail, "_")> instrrev (Mail, "@") sitten
'revMail = 1

muu
"jolla on vain yksi @
atCnt = 0
i = 1 - len (Mail)
jos puolivälissä (Mail, i, 1) = "@" sitten
atCnt = atCnt + 1
loppu Jos
Seuraava

jos atCnt> 1 sitten
revMail = 1
loppu Jos

'tarkista merkki merkin mukaan
i = 1 - len (Mail)
jos ei ole numeerinen (keskellä (Mail, i, 1)) ja _

(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") ja _
puolivälissä (Mail, i, 1) <> "_" ja _
puolivälissä (Mail, i, 1) <> "." ja _
puolivälissä (Mail, i, 1) <> "@" ja _
puolivälissä (Mail, i, 1) <> "-" sitten
revMail = 1
loppu Jos
Seuraava
loppu Jos
lopputoiminto
%>