Stryper
16 de Mayo del 2002

Hola, soy nuevo en esto del ASP, de hecho no se apenas nada, necesitaria saber como hago una pagina que me pida el login y el password para que los usuarios tengan acceso a unas paginas restringidas. Es posible que alguien de ustedes me pase un codigo ya hecho? En mi caso solo tendria una base de datos con una sola tabla de 2 columnas: login, password.
Espero que me puedan ayudar. Gracias

cepp
16 de Mayo del 2002

La forma mas efectiva es en ASP con una base de datos en access y necesitas craear dos paginas:

Archivo: pagina1.asp
<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>

Archivo: pagina2.asp

<%
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a pagina1.asp
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "pagina1.asp"
Else
Dim usuario, password, oConn, RS
'Guardamos los datos del Form en variables.
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usuariodbbasedatos.mdb")
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM prueba WHERE usuario='"&usuario&"'"
RS.Open sql, oConn, 1, 1
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe"
'Si el campo de la tabla es igual a nuestra variable, estas logueado.
ElseIf RS.Fields("password") = password then
Response.Write "<BR>Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
'Otra cosa, seria cuando el password no es la que seleccionamos.
Else
Response.Write "<BR>Esa contraseña no concuerda con el usuario ingresado"
End If
'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>


la tabla tiene la siguiente estrauctura:
id
usuario
pasword


*** espero te sirva