Ejemplos examples
Usuario:
Contraseña:

Inicio | Nuevos | Populares | Top | Publicar Ejemplos | Pedir Ejemplos

Por ejemplo: Metáforas, hiatos, adjetivos, sustantivos,...

Ejemplos de...

Únete a nosotros en FB

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

Validar un email en ASP

Enviado por natttt
Publicado el 2010-11-26 19:11:40

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?
 (50%) SI    NO (50%)




Compartir este ejemplo:

O bien, copie y pegue el siguiente código en su sitio web, blog o foro:





Comentarios
Para dejar un comentario, regístrese gratis o si ya está registrado, inicie sesión.


Todavía no se ha escrito ningún comentario.


Ejemplos relacionados
IP del servidor en ASP Publicado el 2010-11-27 02:11:52
La IP del servidor, así como otros datos del servidor y el cliente, se pueden obtener a partir del array de variables del servidor de ASP re...
Comprobar variable null ASP Publicado el 2010-11-26 19:11:27
Para averiguar si una variable tiene el valor null (valor nulo o indefinido), se puede hacer de la siguiente manera, por ejemplo: if isNull...
Vectores en ASP Publicado el 2010-11-26 19:11:15
Para crear un vector usamos la funcion Array() de la siguiente manera: <% dim vect ´Las comas dentro del argumento de la funcion Array(...
Fechas en ASP Publicado el 2010-11-26 19:11:36
Cómo trabajar con fechas y horas utilizando las funciones y formatos que ASP nos provee. Funciones Now() : devuelve la fecha y hora actual...
Crear un número aleatorio en ASP Publicado el 2010-11-26 19:11:25
ASP nos permite generar números aleatórios gracias a la funcion Randomize. Esta funcion almacenará un número decimal cualquiera entre 0 y 1 ...
© 2010 Ejemplos10.com · Recopilatorio de ejemplos de todo tipo gratis   Aviso Legal | Contacto | Pendidentes

eXTReMe Tracker