Приклад функції перевірки електронної пошти в ASP

Наступна функція використовується для перевірки правильності адреси електронної пошти в ASP.

функція revMail (пошта)
'перевірити дійсну адресу
'повертає 1 для недійсних адрес
'повертає 0 для дійсних адрес
тьмяний приCnt
revMail = 0

'chk довжина
якщо len (пошта) <5, тоді
' [email protected] має бути якомога коротшою адресою
revMail = 1

'перевірити формат
'перевірте, чи є в ньому @
elseif instr (Пошта, "@") = 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
закінчити, якщо
наступний

якщо приCnt> 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
закінчити, якщо
наступний
закінчити, якщо
кінцева функція
%>