Przykład funkcji do sprawdzania poprawności wiadomości e-mail w ASP

Poniższa funkcja służy do sprawdzania poprawności adresu e-mail w ASP.

funkcja revMail (Poczta)
'sprawdź poprawny adres'
'zwraca 1 dla nieprawidłowych adresów
'zwraca 0 dla poprawnych adresów
wym.Cnt
revMail = 0

„długość chk”
jeśli len (poczta) <5 to
' [email protected] powinien być najkrótszym możliwym adresem
revMail = 1

„sprawdź format”
'sprawdź, czy ma @
elseif instr (Mail, "@") = 0 then
revMail = 1

'sprawdź, czy ma.
elseif instr (Mail, ".") = 0 then
revMail = 1

'sprawdź, czy ma nie więcej niż trzy znaki po.
elseif len (Mail) - instrrev (Mail, ".")> 4 then
revMail = 1

'to nie ma _ po @
'elseif instr (Mail, "_") <> 0 i _
'instrrev (Mail, "_")> instrrev (Mail, "@") to
'revMail = 1

jeszcze
„która ma tylko jedną @
wCnt = 0
dla i = 1 do len (poczta)
if mid (Mail, i, 1) = "@" then
atCnt = atCnt + 1
koniec jeśli
Kolejny

jeśli atCnt> 1 to
revMail = 1
koniec jeśli

'sprawdź znak po znaku
dla i = 1 do len (poczta)
jeśli nie jest numeryczne (mid (Mail, i, 1)) i _
(lcase (środek (Mail, i, 1))) lcase (środek (Mail, i, 1))> "z") i _

mid (Mail, i, 1) <> "_" i _
mid (Mail, i, 1) <> "." i _
środek (Mail, i, 1) <> „@” i _
mid (Mail, i, 1) <> "-" wtedy
revMail = 1
koniec jeśli
Kolejny
koniec jeśli
funkcja zakończenia
%>