1.
Hola, estoy realizando un login con una base conectada a access desde una BD de access
lo que yo hice fué en dreamweaver abrir un formulario el cual la categoria es pagina dinamica /y en la categoria de páginas dinamicas tomé el ASP VBSCRIPT.
en esta pagina la cual la llamé pagina1.asp y entre medio de el body y el html puse el codigo entre<% %> , abrí otra pagina y la llamé pagina2.asp. hice lo mismo que la anterior e hice el otro cocido incluso armé una base en access con los mismos campos y la base esta en C:\inetpub\wwwroot\baseasp.mdb , y cambié la ruta al conectar la base para que vaya a buscar esta base de datos. (dentro de ella hice una tabla llamada (tabla1) , y le puse los campos , usuario y password.
en la base rellené un campo con un nombre y un password.
al probar todo esto , lo ejecuto , si bien la pantalla principal inicia bien, relleno los campos y al pulsar la tecla INGRESAR , me dice "descarga de archivos en una ventana !!!!" , me da el nombre de archivo pagina2.asp , y me da la opción de guardar , abrir o cancelar , si lo abro me vuelve al area de trabajo en dreamweaver , que era donde estaba antes de ejecutarlo.
ahi va el codigo , a ver si encuentran algo raro,
desde ya muchas gracias.
pagina1.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="" content="text/html; charset=iso-8859-1">
<meta http-equiv="" content="text/html; charset=iso-8859-1">
</head>
<body>
<FORM ACTION="pagina2.asp" METHOD="post"><BR>
<B>Usuario:</B><INPUT NAME="usuario" SIZE="12"><BR>
<B>Contraseña:</B><INPUT NAME="password" SIZE="12"><BR><BR>
<INPUT TYPE ="Submit" VALUE="Ingresar">
</FORM>
</body>
</html>
pagina2.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="" content="text/html; charset=iso-8859-1">
<meta http-equiv="" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim usuario,password,oConn,RS
'me fijo si ambos campos fueron completados ,si no se cumple redirecciono a pagina1.asp
if Request.Form("usuario")= " " OR Request.Form("password")= " "then
Response.Redirect "pagina1.asp"
else
'guardo los datos del form en variables
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"",""")
password = Replace(password,"",""")
'conecto la base
Set oConn= Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath(C:\Inetpub\wwwroot\baseasp .mdb")
'selecciono de la tabla los registros que coincidan con el usuario del form
sql = " SELECT * FROM baseasp WHERE usuario= "'& usuario &'""
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, oConn
'si el valor EOF es verdadero, no hay usuario
If (RS.EOF = true) then
Response.Write("Ese usuario no existe")
ElseIf RS.Fields("password") = password then
'si el campo de la tabla es = a la variable , esta logeado
response.Write ("te logeaste con exito ...<B>"& usuario &"</B>")
Else 'password incorrecto
Response.Write("contraseña incorrecta")
endif
'limpio y cerro
RS.Close
oConn.Close
Set RS = Nothing
Set Oconn= Nothing
end if
%>
</body>
</html>
