Código fuente de 'Comprueba validez correo 2.asp'
<html>
<head>
<title>Comprueba validez correo 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<body style="font-family: Arial; font-size: 11pt">
<p align="center"><b><font size="3">Comprueba validez correo 2<br>
</font></p></b>
<u>Comprobación simple de correo:
</u>
<br>
-Que contenga al menos 6 caracteres.
<br>
-Que contenga la arroba "@".
<br>
-Que contenga un punto y 3 caracteres finales,
<a href="mailto:ej:%22correo@es.xyz"> ej: correo@es.xyz</a> <br>
-Después de la "@" debe de haber al menos 6 caracteres (para evitar ejemplo: correo@.org)
<form name="Correo" method="Post" action="comprueba validez correo 2.asp">
Email: <input type="text" name="Email" size="50">
<input type="submit" name="Submit" value="Submit">
</form>
<%
DIM correo, mensaje
correo = Request.Form("Email")
mensaje=""
if correo="" then
Response.Write "<b>• Entra dirección de correo</b><br>"
else
if len(correo)<8 then
mensaje = mensaje & "<b>• Correo demasiado corto.</b><br>"
else
if mid(correo,len(correo)-3,1)<>"." then
mensaje = mensaje & "<b>• El correo debe contener un punto y luego 3 caracteres finales</b><br>"
elseif instr(right(correo,7),"@")>0 then
mensaje =mensaje & "<b>• Después de la '@' debe de haber al menos 6 caracteres</b><br>"
end if
end if
if inStr(correo,"@") = 0 then
mensaje=mensaje & "<b>• Al correo le falta la '@'</b><br>"
end if
if mensaje="" then
mensaje= "<b>• Dirección de correo correcta</b><br>"
END IF
response.write mensaje
end if
%>
</body>
</html>