Como se hace la tipica pagina "Usuario" "Password"?

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>Contrasea:</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 contrasea 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