Una funzione per validare un indirizzo e-mail
Questa funzione controlla la correttezza formale (non l'effettiva esistenza e validità) di un indirizzo e-mail.
E' utile in fase di registrazione ad una lista, ad esempio, per facilitare la correzione dell'errore da parte di un utente poco concentrato.
<%
Function CheckMail(strMail)
if len(strMail)>6 then
pos = Instr(1,strMail, "@")
if pos >= len(strMail)-3 then
Exit Function
end if
if pos < 2 then
Exit Function
end if
dotpos = Instr(pos+1 ,strMail, ".")
if dotpos > len(strMail)-2 then
Exit Function
end if
if len( Mid(strMail, pos+1) ) < 5 or dotpos = 0 then
Exit Function
end if
CheckMail = True
else
CheckMail = False
end if
End function
blnMail = CBool(checkMail("test@aspitalia"))
if blnMail = True then
Response.write "<p>E-mail valida"
else
Response.write "<p>E-mail non valida"
end if
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
