Exemplu de funcție pentru validarea unui e-mail în ASP

Următoarea funcție este utilizată pentru a valida faptul că o adresă de e-mail este corectă în ASP.

funcție revMail (Mail)
'verificați adresa validă
'returnează 1 pentru adrese nevalide
'returnează 0 pentru adrese valide
dim atCnt
revMail = 0

'lungime chk
dacă len (Mail) <5 atunci
' [email protected] ar trebui să fie cea mai scurtă adresă posibilă
revMail = 1

'verificați formatul
'verificați dacă are un @
elseif instr (Mail, "@") = 0 atunci
revMail = 1

'verificați dacă are.
elseif instr (Mail, ".") = 0 atunci
revMail = 1

'verificați dacă nu are mai mult de trei caractere după.
elseif len (Mail) - instrrev (Mail, ".")> 4 apoi
revMail = 1

'care nu are _ după @
'elseif instr (Mail, "_") <> 0 și _
'instrrev (Mail, "_")> instrrev (Mail, "@") atunci
'revMail = 1

altceva
„care are un singur @
atCnt = 0
pentru i = 1 to len (Mail)
if mid (Mail, i, 1) = "@" atunci
atCnt = atCnt + 1
incheie daca
Următorul

dacă atCnt> 1 atunci
revMail = 1
incheie daca

'verifica caracter cu caracter
pentru i = 1 to len (Mail)
dacă nu este numeric (mijloc (Mail, i, 1)) și _

(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") și _
mijloc (Mail, i, 1) <> "_" și _
mijloc (Mail, i, 1) <> "." și _
mijloc (Mail, i, 1) <> "@" și _
mid (Mail, i, 1) <> "-" apoi
revMail = 1
incheie daca
Următorul
incheie daca
funcția finală
%>