Funktionsexempel för att validera ett e-postmeddelande i ASP

Följande funktion används för att verifiera att en e-postadress är korrekt i ASP.

funktion revMail (Mail)
'kontrollera giltig adress
'returnerar 1 för ogiltiga adresser
'returnerar 0 för giltiga adresser
dim atCnt
revMail = 0

chk längd
om len (Mail) <5 då
' [email protected] bör vara kortast möjliga adress
revMail = 1

'checkformat
'kontrollera att den har en @
elseif instr (Mail, "@") = 0 då
revMail = 1

'kontrollera att den har en.
elseif instr (Mail, ".") = 0 då
revMail = 1

'kontrollera att den inte har mer än tre tecken efter.
elseif len (Mail) - instrrev (Mail, ".")> 4 då
revMail = 1

'som inte har _ efter @
'elseif instr (Mail, "_") <> 0 och _
'instrrev (Mail, "_")> instrrev (Mail, "@") då
'revMail = 1

annan
'som bara har en @
atCnt = 0
för i = 1 till len (Mail)
om mitt (Mail, i, 1) = "@" då
atCnt = atCnt + 1
avsluta om
Nästa

om atCnt> 1 då
revMail = 1
avsluta om

"kontrollera karaktär för karaktär
för i = 1 till len (Mail)
om inte är nummer (mitt (Mail, i, 1)) och _
(lcase (mid (Mail, i, 1)) lcase (mitt (Mail, i, 1))> "z") och _

mitt (Mail, i, 1) <> "_" och _
mitt (Mail, i, 1) <> "." och _
mitt (Mail, i, 1) <> "@" och _
mitt (Mail, i, 1) <> "-" då
revMail = 1
avsluta om
Nästa
avsluta om
slutfunktion
%>