resuelto_4.html (formulario de entrada)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
Transitional//EN">
<html>
<head>
<title>HTMLWeb & WebMaster. Curso ASP. Entrega 4. Ejercicio
Resuelto (I)</title>
</head>
<body
bgcolor="#ffff99">
<form name="form1" action="resuelto.asp"
method="post">
<pre>
E-Mail: <input
type="text" name="email"
size="15"><br>
<br><br>
<input type="submit"
value="enviar">
</pre>
</form>
</body>
</html>
resuelto_4.asp (página de
proceso)
<!DOCTYPE HTML PUBLIC
"-//W3C//DTD HTML 4.0 Transitional//EN">
<%@
Language="VBScript"%>
<html>
<head>
<title>HTMLWeb & WebMaster. Curso ASP. Entrega 4. Ejercicio
Resuelto (II)</title>
</head>
<body
bgcolor="#ffff99">
<%
Dim temporal1,
temporal2, email, matriz1, arroba, punto, usuario, temporal3, servidor,
dominio
'Comprobamos que la cadena recogida no es vacía. Si no lo es,
seguimos con la
'validacion. Si lo es, detenemos la ejecución y
volvemos a la página anterior
temporal1 =
Request.Form("email")
If temporal1 = "" Then Error("Debe introducir
una dirección de e-mail")
'Eliminamos posibles espacios al principio y
al final
temporal2 = Trim(temporal1)
'Quitamos posibles
espacios intermedios
email = Replace(temporal1, " ", "")
'Verificamos que la dirección tenga un caracter @
'Si no lo tiene,
detenemos la ejecución y volvemos a la página anterior
arroba = InStr(
1, email, "@", 1 )
If arroba = 0 Then
Error("La
dirección de e-mail debe contener un caracter arroba (@)")
End
If
'Verificamos que la dirección tenga un caracter punto(.)
'Si no lo tiene, detenemos la ejecución y volvemos a la página
anterior
punto = InStr( 1, email, ".", 1 )
If punto = 0 Then
Error("La dirección de e-mail debe contener un caracter
punto (.)")
Else
'Si todo va bien, separamos los
componentes de la dirección de e-mail: usuario, servidor y
dominio
matriz = Split(email, "@", -1,
1)
usuario = matriz(0)
If usuario=""
Then Error("La dirección de e-mail debe contener un nombre de
usuario")
temporal3 = Split(matriz(1), ".", -1,
1)
servidor = temporal3(0)
If
servidor="" Then Error("La dirección de e-mail debe contener un nombre de
servidor")
dominio = temporal3(1)
If
dominio="" Then Error("La dirección de e-mail debe contener un nombre de
dominio")
End If
%>
La dirección de e-mail introducida es
correcta.
<%
Function Error(mensaje)
%>
<script
language="JavaScript">
alert("<%=mensaje%>");
window.history.back();
</script>
<%
End
Function
%>
</body>
</html>