Пример за функция за проверка на имейл в ASP

Следващата функция се използва за потвърждаване, че имейл адресът е правилен в ASP.

функция revMail (поща)
'проверете валиден адрес
'връща 1 за невалидни адреси
връща 0 за валидни адреси
неясен приCnt
revMail = 0

'chk дължина
ако len (Mail) <5 тогава
' [email protected] трябва да бъде възможно най-краткият адрес
revMail = 1

'проверете формата
'проверете дали има @
elseif instr (Mail, "@") = 0 тогава
revMail = 1

'проверете дали има.
elseif instr (Поща, ".") = 0 тогава
revMail = 1

'проверете дали има не повече от три знака след.
elseif len (Mail) - instrrev (Mail, ".")> 4 след това
revMail = 1

'че няма _ след @
'elseif instr (Поща, "_") <> 0 и _
'instrrev (Mail, "_")> instrrev (Mail, "@") след това
'revMail = 1

друго
'който има само един @
atCnt = 0
за i = 1 до len (поща)
if mid (Mail, i, 1) = "@" тогава
atCnt = atCnt + 1
край ако
следващия

ако atCnt> 1 тогава
revMail = 1
край ако

'проверете знак по знак
за i = 1 до len (поща)
ако не е числово (mid (Mail, i, 1)) и _
(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") и _

mid (Mail, i, 1) <> "_" и _
mid (Mail, i, 1) <> "." и _
mid (Mail, i, 1) <> "@" и _
mid (Mail, i, 1) <> "-" тогава
revMail = 1
край ако
следващия
край ако
крайна функция
%>