Esempio di funzione per convalidare un'e-mail in ASP

La seguente funzione viene utilizzata per convalidare che un indirizzo e-mail sia corretto in ASP.

funzione revMail (posta)
'verifica indirizzo valido
'restituisce 1 per indirizzi non validi
'restituisce 0 per indirizzi validi
dim atCnt
revMail = 0

'chk lunghezza'
se len (Mail) <5 allora
' [email protected] dovrebbe essere l'indirizzo più breve possibile
revMail = 1

'controlla il formato
'verifica che abbia un @
elseif instr (Mail, "@") = 0 then
revMail = 1

'verifica che abbia a.
elseif instr (Mail, ".") = 0 then
revMail = 1

'verifica che non contenga più di tre caratteri dopo il.
elseif len (Mail) - instrrev (Mail, ".")> 4 then
revMail = 1

'che non ha _ dopo @
'elseif instr (Mail, "_") <> 0 e _
'instrrev (Mail, "_")> instrrev (Mail, "@") then
'revMail = 1

altro
'che ha un solo @
atCnt = 0
per i = 1 in len (Posta)
se metà (Mail, i, 1) = "@" allora
atCnt = atCnt + 1
finisci se
Il prossimo

se atCnt> 1 allora
revMail = 1
finisci se

'controlla carattere per carattere
per i = 1 in len (Posta)
se non è numerico (mid (Mail, i, 1)) e _

(lcase (mid (Mail, i, 1)) lcase (mid (Mail, i, 1))> "z") e _
mid (Mail, i, 1) <> "_" e _
mid (Mail, i, 1) <> "." e _
mid (Mail, i, 1) <> "@" e _
mid (Mail, i, 1) <> "-" allora
revMail = 1
finisci se
Il prossimo
finisci se
funzione di fine
%>