Problemas con login y password
Publicado por Estehla (60 intervenciones) el 03/05/2001 10:17:35
Hola a todos, mi problema es que quiero verificar un login y un password entonces
inserte un codigo de asp en si funciona la parte donde pide el login y el password
lo que no funciona es cuando lo mando averificar los datos a la base de datos, no me
manda a ningun lado
a pesar que en el form action le especifico donde esta el script que verifica los datos
bueno aqui les pongo los codigo les agradeceria mucho que me ayudaran pues esto
me urge.
este es el codigo donde pido el login y password:
<html>
<head>
<title>Login Please</title>
<STYLE>
<!--
body {background: #000000; font-size: 20pt; color: #FEFCE0; font-family: verdana,
arial}
td {font-size: 9pt; color: #FEFCE0; font-family: verdana, arial}
A:link {text-decoration: none; color: #FFFFFF;}
A:visited {text-decoration: none; color: #FEFCE0;}
A:active {text-decoration: none; color: #FFFFFF;}
A:hover {text-decoration: none; color:#CCFFFF;}
-->
</STYLE>
<body>
<BR>
<center><h1>Please log in to use this site</h1></center>
<BR>
<FORM ACTION="login1.asp" METHOD="post">
<center> <TABLE BORDER=0>
<TR>
<TD ALIGN="right">Login:</TD>
<TD><INPUT TYPE="text" size="10" NAME="login"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right">Password:</TD>
<TD><INPUT TYPE="password" size="10" NAME="password"></INPUT></TD>
</TR>
<TR>
<TD ALIGN="right"></TD>
<TD><INPUT TYPE="submit" VALUE="Login"></INPUT>
<INPUT TYPE="reset" VALUE="Reset"></INPUT>
</TD>
</TR>
</TABLE></center>
</FORM>
</body></html>
ESTE ES EL CODIGO QUE VERIFICA LA INFORMACION:
<%Dim Apples
Set Apples = Server.CreateObject("ADODB.Connection")
ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; "
ConnStr = ConnStr & "DBQ=" & Server.MapPath("db\password.mdb")
Apples.Open(ConnStr)
SQLtemp = "SELECT * FROM password WHERE user = '" & Request.form("login") &
"' "
Set rs = Apples.Execute(SQLtemp)
while not rs.eof
dim username
username = rs("user")
dim friendlyname
friendlyname = rs("name")
response.cookies("passes") = username
response.cookies("passes2") = friendlyname
If Request.Form("login") = rs("user") AND Request.Form("password") = rs("pass")
Then
Response.redirect("protected.asp")
Else
Response.redirect("login2.asp")
End If
rs.MoveNext
Wend
OnError response.Redirect ("login2.asp")
rs.Close
Apples.Close
set Apples = Nothing
%>
Valora esta pregunta
0