valida usuario por session

rropegod · #1 (**permalink**) 29/03/2004, 13:29

como puedo obtener el nombre del usuario, en la siguiente pagina luego de validar??

codigo para validar, que utilizo para valiodar desde una base de datos y me crea la session.

<link href="lib/css_1.css" rel="stylesheet" type="text/css"> <body bgcolor="#006699" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td height="50" colspan="3">
<% if request.form("usuario")="" then%>
</td>
</tr>
<tr>
<td> </td>
<td>
<form method="POST" action="default.asp">

<div align="center">
<center>
<table border="0" width="250" bgcolor="#F2F2F2">
<tr bgcolor="#0099CC">
<td width="100%" colspan="3">
<p align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Login</strong></font></td></tr><tr>
<td width="35%" align="center"><font color="#0033CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">Usuario:</font></td> <td width="15%" align="center"><font color="#0033CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">:
</font></td>
<td width="50%" align="center"> <input type="text" name="usuario" size="20"></td>
</tr> <tr> <td width="35%" align="center"><font color="#0033CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">Password</font></td>
<td width="15%" align="center"><font color="#0033CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">: </font></td>
<td width="50%" align="center"> <input type="password" name="password" size="20"></td>
</tr> <tr>
<td width="100%" colspan="3"> <p align="center">
<input name="B1" type="submit" class="estilo_1" value="Enviar"> </td> </tr> </table>
</center></div></form>
</td> <td> </td>
</tr> <tr align="center">
<td colspan="3">
<%else
'eliminamos las posibles comillas de la entrada
'para evitar la introducción de sentencias SQL
usuario=replace(request.form("usuario"),"'","")
password=replace(request.form("password"),"'","")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base/base.mdb"))
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select * from Tabla where usuario='"&usuario&"' and password= '"&password&"'"
'response.write sqltxt
rs.Open sqltxt, conn

if not rs.eof then
' nos ha devuelto un registro, ahora miraremos si es valido
' con ello evitamos el ataque típico SQL
if rs("usuario")=usuario and rs("password")=password then
' si el usuario esta en la base de datos y la password coincide
session("autorizacion")=1

response.redirect "html/pag_0.asp"
end if
else
session("autorizacion")=-1

end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if session("autorizacion")=-1 or session("autorizacion")="" then
' no hemos encontrado el registro
' eso indica que el usuario y/o la password son erroneos
response.redirect "default.asp?msg=Usuario%20o%20password%20incorrec tOS"
end if

end if%>
<%=request.querystring("msg")%>
</td>
</tr>
</table>
***************************
****************
************************************************** ****
a traves de esto me redirecciona

if rs("usuario")=usuario and rs("password")=password then
' si el usuario esta en la base de datos y la password coincide
session("autorizacion")=1

response.redirect "html/pag_0.asp"

pero como puedo enviar el nombre del usuario que puso en el form al principio??

y que con un request.form no lo toma

gracias!!!!!!!!!

AlZuwaga · #2 (**permalink**) 29/03/2004, 13:54

if rs("usuario")=usuario and rs("password")=password then
' si el usuario esta en la base de datos y la password coincide
session("autorizacion")=1
session("user_name")=rs("usuario")

response.redirect "html/pag_0.asp"

rropegod · #3 (**permalink**) 30/03/2004, 13:50

se agredeca compañero

gracias!!!!!!!!!!!!!!!!

si a alguen le sirve asi se recupera el valor de la variable en la otra pagian
<%
Response.Write Session("user_name")
%>