Validación de E-Mails con ASP

Cuantas veces hemos querido al llenar nuestras formas validar las cuentas de email para saber por lo menos si no fueron escritas mal aquí tenemos una sencilla rutina en ASP, no es perfecta pero a mi me funciona muy bien espero que también les sirva a ustedes.

Antes de esto imaginemos que tenemos una página donde el fulano llena sus datos y luego usando cualquier método para enviar datos a otra página ASP (se explica en un articulo en este site: "Pasar datos entre páginas ASP") lo mandamos a la página de validación.

Cuando recibimos estos datos en esa página colocamos el siguiente código:

<% Function EsValidoEmail(strEmail)
Dim esValido
'Por defecto asumimos que el email es valido
esValido = True

If Len(strEmail) < 5 Then
'Porque ninguna cuenta de email puede tener menos de 5 caracteres "a@b.c"
esValido = False
Else
If Instr(1, strEmail, " ") <> 0 Then
'Buscamos que el email no tenga espacios en blancos "nombre @servidor.com"
esValido = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
'Buscamos que el email contenga el carácter @
esValido = False
Else
'Revisamos que la posición del punto (.) se encuentre
'después del @ esto es opcional pueden omitirlo ya
'que he visto email del tipo mailto:edwin.romero@servidor.com
'aunque no es muy común es casi nulo
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
esValido = False
End If
end if
end if
end if
EsValidoEmail = esValido

End Function
%>

Luego ¿como utilizamos esta función? sencillo, digamos que tenemos una variable a la cual se le asigno el valor del email que tómanos en la forma que relleno el usuario, supongamos que la nombramos "vemail":

<%
'Si esta en blanco el campo o esvalidoemail es "Falso" te manda el mensaje
if vemail = "" or not esvalidoemail(vemail) then
response.write("hay un error en tu email por favor " &_
& "regresa a la forma y llénalo correctamente")
end if
%>

Nota: las funciones las puedes definir en cualquier posición de tu hoja por lo general se definen al final de la hoja, estándares de orden nada mas.

Bueno espero les sirva esto como a mi lo ha hecho.

Usuarios que han visto este tema también han visto...

- Uso de Cookies con ASP
- Usando el Buffer de la página con ASP
- Ver Eliminar todas tus cookies en ASP
- Renombrar una columna de Access desde ASP
- Obtener el último día de un mes

- Versión imprimible de este documento

- Enviar por e-mail este documento