byluciani.com
Esempio live dell'articolo
"Validare un indirizzo e-mail con le Regular Expression"
Codice
Function IsMail(sEmail) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z]{2,4}$" objRegExp.IgnoreCase = True IsMail = objRegExp.Test(sEmail) End Function Dim strEmail strEmail = "webmaster@byluciani.com" If IsMail(strEmail) Then Response.Write strEmail & " è un indirizzo email sintatticamente corretto" Else Response.Write strEmail & " NON è un indirizzo email sintatticamente corretto" End If
Inserisci indirizzo e-mail da controllare: