
03/04/2002, 09:58
|
| | Fecha de Ingreso: diciembre-2001
Mensajes: 107
Antigüedad: 23 años, 4 meses Puntos: 0 | |
Re: Lo admito soy *****------> alguien podria... <%
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "pagina1.asp"
Else
Dim usuario, password, oConn, RS
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\db\xxx.mdb")
sql = "SELECT * FROM prueba WHERE usuario='"&usuario&"'"
RS.Open sql, oConn, 1, 1
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe"
ElseIf RS.Fields("password") = password then
Response.Write "<BR>Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else
Response.Write "<BR>Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>
---------------------------------------------
y la base de datos es xxx.mdb, y esta situada en el directorio raiz, donde estan ubicadas las dos paginas anteriores: pagina1.asp y pagina2.asp
Id usuario password
1 corsa 1234
2 juan juancho
3 pepe 9955
Tal facil como esto.
Entonces mis preguntas:
todo el codigo de esta segunda pagina, va literalmente asi? sin html, ni head, ni nada??
y la pagina "protegida"? donde esta la direccion para que si es correcto el login la abra??
en mi caso he creado una de ejemplo que se llama protegida.htm, y la he puesto tambien en el raiz. Es decir todo esta en el raiz.
esta pagina "protegida" debe guardarse en el mismo directorio raiz o en otro diferente??
y el archivo *.mdb? donde se guarda?. si se keda en la web, no se puede obtener bajandolo con el webcopier o algo asi? |