31/07/2002, 05:02
|
| | | Fecha de Ingreso: julio-2002
Mensajes: 195
Antigüedad: 22 años, 9 meses Puntos: 0 | |
| Re: pagina asp con usuarios y claves
Yo tb tengo un problema parecido con los usuarios y los passwords. Consigo que funcione para un sólo usuario, pero no para más. Os mando el código de la página de validación, porque se supone que así tendría que funcionar.
El password y el usuario llegan a esta página a través de un formulario.
Página:
%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY background="ski_fondo.jpg">
<%On Error resume next%>
<%
'Creación de la conexion
set conexion = CreateObject("ADODB.Connection")
'conexion.connectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("datos/ofertas.mdb")
conexion.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& Server.MapPath("datos/ofertas.mdb") &";Persist Security Info=False"
conexion.Open
'Creacion del recordset
set fila =CreateObject("ADODB.RecordSet")
ls_select = "Select * from usuarios"
fila.Open ls_select, conexion,1,3
conexion.BeginTrans
usuario = Request.form("usuario")
pwd = Request.form("pwd")
for i = 0 to fila.MaxRecords()
if usuario = fila(0) then
if pwd = fila(1) then
encontrado = true
return
else
encontrado = false
mensaje = "El password es incorrecto"
end if
else
encontrado = false
mensaje = "Usuario inexistente"
end if
next
if not encontrado then
Response.Write(mensaje)
Response.Redirect("./login.htm")
else
Response.Redirect("./editor.asp")
end if
%>
</BODY>
</HTML>
Porqué no funciona?????? |