Inicia sesión o ¡Regístrate!

Ejemplos de...

Únete a nosotros en FB

Estás en: Ejemplos10.com > Informática - Programación > ASP > Validar un email en ASP

Ejemplos de Validar un email en ASP

Ejemplo de script para validar un email:


<%
function validarEmail(email)
dim partes, parte, i, c
"rompo el email en dos partes, antes y después de la arroba
partes = Split(email, "@")
if UBound(partes) <> 1 then
"si el mayor indice del array es distinto de 1 es que no he obtenido las dos partes
validarEmail = false
exit function
end if
"para cada parte, compruebo varias cosas
for each parte in partes
"Compruebo que tiene algún caracter
if Len(parte) <= 0 then
validarEmail = false
exit function
end if
"para cada caracter de la parte
for i = 1 to Len(parte)
"tomo el caracter actual
c = Lcase(Mid(parte, i, 1))
"miro a ver si ese caracter es uno de los permitidos
if InStr("._-abcdefghijklmnopqrstuvwxyz", c) <= 0 and not IsNumeric(c) then
validarEmail = false
exit function
end if
next
"si la parte actual acaba o empieza en punto la dirección no es válida
if Left(parte, 1) = "." or Right(parte, 1) = "." then
validarEmail = false
exit function
end if
next
"si en la segunda parte del email no tenemos un punto es que va mal
if InStr(partes(1), ".") <= 0 then
validarEmail = false
exit function
end if
"calculo cuantos caracteres hay después del último punto de la segunda parte del mail
i = Len(partes(1)) - InStrRev(partes(1), ".")
"si el número de caracteres es distinto de 2 y 3
if not (i = 2 or i = 3) then
validarEmail = false
exit function
end if
"si encuentro dos puntos seguidos tampoco va bien
if InStr(email, "..") > 0 then
validarEmail=false
exit function
end if
validarEmail = true
end function
%>

Gracias a: desarrolloweb.com


¿Te sirvió este ejemplo?



Compartir este ejemplo:

O bien, copie y pegue el siguiente código en su sitio web, blog o foro:
<a href="http://www.ejemplos10.com/e/validar-un-email-en-asp/" target="_blank">Ejemplos Validar un email en ASP</a>