Пример функции для проверки электронной почты в ASP

Следующая функция используется для проверки правильности адреса электронной почты в ASP.

функция revMail (Почта)
'проверить действительный адрес
'возвращает 1 для неверных адресов
'возвращает 0 для действительных адресов
тусклый atCnt
revMail = 0

длина chk
если len (Mail) <5, то
' [email protected] должен быть максимально короткий адрес
revMail = 1

'проверить формат
'убедитесь, что на нем есть @
elseif instr (Mail, "@") = 0, тогда
revMail = 1

'убедитесь, что у него есть.
elseif instr (Mail, ".") = 0, тогда
revMail = 1

'убедитесь, что после.
elseif len (Почта) - instrrev (Почта, ".")> 4, тогда
revMail = 1

'без символа _ после @
'elseif instr (Mail, "_") <> 0 и _
'instrrev (Mail, "_")> instrrev (Mail, "@"), затем
'revMail = 1

еще
'в котором есть только один @
atCnt = 0
для i = 1 в len (Почта)
если 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
конец, если
следующий
конец, если
конечная функция
%>