Validar e-mail com ASP

Agora validação de email em asp com expressão regular!

O retorno é booleano (true ou false)

<%
'-----------------------------------------------------
'Funcao: IsEmail(strEmail)
'Sinopse: Verifica se o valor passado é um Email válido
'Parametro: strEmail
'Retorno: Booleano
'-----------------------------------------------------
Function IsEmail(strEmail)
Set regEx = New RegExp ' Cria o Objeto Expressão
regEx.IgnoreCase = True ' Sensitivo ou não
regEx.Global = True ' Não sei exatamente o que faz

'Caracteres Excluidos
regEx.Pattern = "[^@\-\.\w]|^[_@\.\-]|[\._\-]{2}|[@\.]{2}|(@)[^@]*\1"
ResultadoHum = RegEx.Test(strEmail)
'Caracteres validos
regEx.Pattern = "@[\w\-]+\."
ResultadoDois = RegEx.Test(strEmail)
'Caracteres de fim
regEx.Pattern = "\.[a-zA-Z]{2,3}$"
ResultadoTres = RegEx.Test(strEmail)
Set regEx = Nothing

If Not (ResultadoHum) And ResultadoDois And ResultadoTres Then
IsEmail = True
Else
IsEmail = False
End If
End Function

'EXEMPLO DE CHAMADA
Response.Write IsEmail("email@provedor.com.br")
%>

Fonte: Codigo Fonte : Gabriel Fróes

posted by Programador ASP