|
|
|
|
[ Home ] |
COMANDOS:
- Response: Le indica al servidor que es un proceso que debe ejecutar y devolver al cliente. Por ejemplo: response.write "Prueba"
- Request: Le indica al servidor que es un proceso que el cliente solicita del servidor. Por ejemplo: request.form ("usuario")
- Set: Definimos objetos.
- Dim: Definimos Variables.
Ejemplo: Validar un usuario dentro de una base de datos de Access, la base de datos la llamaremos "datos.mdb" y la tabla "tbusuario" (2 campos: usuario y clave.
1) Deberemos crear un pequeño formulario (pagina1.html), con 2 campos: usuario y clave:
- <html>
- <head><title>Introducir_usuario</title>
- </head>
- <body>
- <form method="post" action="validar_usuario.asp">
- <center><font face="verdana" size="2" color="navy">
- Introduzca los datos.</font><br>
- Usuario: <input type="text" name="usuario" value="" size="15"><br>
- Clave: <input type="password" name="clave" value="" size="15"><br>
- <input type="submit" name="enviar" value="enviar">
- <input type="reset" name="restablecer" value="restablecer">
- </center>
- </form>
- </html>
2) Creamos la página ASP (validar_usuario.asp):
- <html>
- <head><title>Validar usuario</title>
- </head>
- <body>
<%
- set oConexion=server.createobject("ADODB.connection")
- oConexion.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&
- &server.mappath("../cgi-bin/datos.mdb")
- sqlstr="select * from tbusuario where usuario='"&Request.Form("usuario")&"' and clave='"&Request.Form("clave")&"
- set oRsGeneric=oConexion.execute(sqlstr)
- if oRsGeneric.Eof then
- response.write "El usuario buscado no existe en la B.D.D.<br>"
- response.write "<A href='pagina1.html'>Pulse para volver</A>"
- else
- oRsGeneric.movefirst
- while not oRsGeneric.Eof
- for each item in oRsGeneric.fields
- response.write (item.name)
- respose.write (item.value)
- response.write "<br>"
- next
- oRsGeneric.movenext
- wend
- end if
- oConexion.close()
%>
- </body>
- </html>
>> Continua en Página 3 >>