| Usuario |
Sesiones con bases de datos (URGEN... |
Desconocido
|
| Enviado - 7/10/2004 |
| |
Tengo un problema, tengo dos paginas llamadas
Sesion.asp y Sesion2.asp
la primera consiste en un formulario que contiene dos campos usuario y contraseña, lo que quiero hacer es como podria mostrar los datos en Sesion2.asp pero dependiendo del usuario que aya echo la sesion, por ejemplo tengo en mi base de datos mi tabla con los campos: id, user, password, nombre apellido
e imaginen que tengo dos registros:
id= 1; user=julio; password=pepe; nombre=Julio; apellidop=gonzalez
id= 2; user=cesar; password=xxxx; nombre=Antonio; apellidop=Perez
entonces al momento de que el la persona meta sus datos en el formulario ejemplo del primer registro user="julio" y passpwrd="pepe", entonces la pagina sesion2.asp quiero que me muestre el nombre y apellidop que serian Julio Gonzalez, o cosa contraria que si inician sesion con otro usuario que seria user="cesar" y password="xxxx" entonces que me muestre los datos de Antonio Perez.
¡Creo que si me di a entender!, acontinucacion les presento un sencillo codigo pero necesito completar eso que les comento, la verdad es que me URGE AYUDENMEEEEE...
<%
Dim user
Dim password
Dim strSQL
Dim sql
'Recuperar los campos
user = TRIM(Request.Form("user"))
password= TRIM(Request.Form("password"))
If user="" or password="" Then
Response.Redirect("sesion2.asp?msg=Error%20No%20Identificado")
End if
Set Conexion = Server.CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Conexion.Open "Sesiones"
sql = "select * from Sesiones where user='" & user & "' and password='" & password & "'"
Conexion.Execute sql
RS.Open Sql, Conexion
If RS("password")=password and RS("user")=user Then
Session("autorizacion")=1
'Mostrar datos de ese usuario
strSQL = "SELECT Nombre, Apellidos FROM Sesiones"
Set objRS = Conexion.Execute(strSQL)
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Nombre</TD><TD> Apellidos </TD></TR>
<%
Response.Write("<tr><td> " & objRS("Nombre") & "</td><td> " & objRS("Apellidos") & " </td></tr>")
Else
Session("autorizacion")=-1
Session.Abandon()
Response.Redirect("sesion.asp")
End If
RS.Close
Set RS=Nothing
Conexion.Close
Set objRS = nothing
Set Conexion=Nothing
%>
</table>
PORFAVOR NECESITO AYUDA PROFESIONAL
Julio Cesar Gutierrez Quezada
[email protected]
bye |
| |
|
JoanMadrid
3 Mensaje(s)
|
| Enviado - 10/10/2004 |
| |
| En la linea que tienes 'strSQL = "SELECT Nombre, Apellidos FROM Sesiones"', te falta especificar 'WHERE user=RS("user")' por ejemplo. |
| |
|
bpenin
1 Mensaje(s) |
| Enviado - 13/10/2004 |
| |
| Crea una variable Session("id") y comprueba en la página Sesion2.asp qué valor tiene. Si lo que quieres es redirigir a otra página, o ostrar contenido personalizado, lo puedes hacer añadiendo más campos en la tabla de la BB.DD. |
| |
|
Desconocido
|
| Enviado - 27/10/2004 |
| |
| porque no utilizas el Request.QueryString con el metodo get ó post |
| |
|
Desconocido
|
| Enviado - 1/11/2004 |
| |
Quetal:
Podrias hacer lo siguiente:
<%
Dim user
Dim password
Dim strSQL
Dim sql
'Recuperar los campos
user = TRIM(Request.Form("user"))
password= TRIM(Request.Form("password"))
If user="" or password="" Then
Response.Redirect("sesion2.asp?msg=Error%20No%20Identificado")
End if
'Declaras sesiones vacías
Session("codUser")=""
Session("apeUser")=""
Session("nomUser")=""
Set Conexion = Server.CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Conexion.Open "Sesiones"
sql = "select * from Sesiones where user='" & user & "' and password='" & password & "'"
Conexion.Execute sql
RS.Open Sql, Conexion
If RS("password")=password and RS("user")=user Then
Session("autorizacion")=1
'Mostrar datos de ese usuario
strSQL = "SELECT Nombre, Apellidos FROM Sesiones"
Set objRS = Conexion.Execute(strSQL)
'Aqui almacenas los datos en las variables de sesion
Session("codUser")=RS("Codigo")
Session("apeUser")=RS("Apellidos")
Session("nomUser")=RS("Nombres")
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Nombre</TD><TD> Apellidos </TD></TR>
<%
Response.Write("<tr><td> " & objRS("Nombre") & "</td><td> " & objRS("Apellidos") & " </td></tr>")
Else
Session("autorizacion")=-1
Session.Abandon()
Response.Redirect("sesion.asp")
End If
RS.Close
Set RS=Nothing
Conexion.Close
Set objRS = nothing
Set Conexion=Nothing
%>
'Luego en tu pagina sesion2.asp
'pones lo siguiente:
<%
If Session("apeUser")<>"" And Session("nomUser")<>"" Then
Response.Write("Session("apeUser") & ' ' & Session("nomUser")")
%>
Espero te sirva. Si no se entiende escribes [email protected] |
| |
|
|
|
