Funkciópélda egy e-mail ellenőrzésére ASP-ben

A következő funkcióval ellenőrizhető, hogy az e-mail cím helyes-e az ASP-ben.

függvény revMail (Mail)
'ellenőrizze az érvényes címet
'érvénytelen címek esetén 1-et ad vissza
'0 érvényes címet ad vissza
homályos atCnt
revMail = 0

'chk hossza
ha len (Mail) <5 akkor
' [email protected] legyen a lehető legrövidebb cím
revMail = 1

'ellenőrizze a formátumot
'ellenőrizze, hogy van-e @
elseif instr (Mail, "@") = 0 akkor
revMail = 1

'ellenőrizze, hogy van-e.
elseif instr (Mail, ".") = 0 akkor
revMail = 1

"ellenőrizze, hogy a karakter után legfeljebb három karakter van - e.
elseif len (Mail) - instrrev (Mail, ".")> 4 akkor
revMail = 1

"amelynek nincs _ utána @
'elseif instr (Mail, "_") <> 0 és _
'instrrev (Mail, "_")> instrrev (Mail, "@") majd
'revMail = 1

más
"amelynek csak egy @ van
atCnt = 0
mert i = 1 a len (Mail)
ha közepén (Mail, i, 1) = "@", akkor
atCnt = atCnt + 1
vége, ha
következő

ha atCnt> 1 akkor
revMail = 1
vége, ha

'ellenőrizze karakterenként
mert i = 1 a len (Mail)
ha nem isnumerikus (közepe (Mail, i, 1)) és _

(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") és _
közepe (Mail, i, 1) <> "_" és _
közepe (Mail, i, 1) <> "." és _
közepe (Mail, i, 1) <> "@" és _
közepe (Mail, i, 1) <> "-" akkor
revMail = 1
vége, ha
következő
vége, ha
végfunkció
%>