seciones en asp

a83 · #1 (**permalink**) 06/09/2007, 16:47

hala estimados tengo una consutal sobre seciones en asp, bueno asta el moment tengo el control de usuarios y que me funciona bien , luego les muestro el cod . Pero se me precento un problema que con esa cuenta que tengo por el momento ingresan todos , o que quiero hacer es clacificarlos en cuentas por ej : admin , vendedor, cajero etc y que no se les desplique la misma informacion a todos .

esa es mi consulta si me puedes echar una mano agradecido este es el cod:

<html>
<head>
<title>GEOCHILE</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
Set conex = Server.CreateObject ("ADODB.Connection")
conex.Open "driver={SQL Server};server=dc1; database=....; uid=......;pwd=....."
Set rs = Server.CreateObject ("ADODB.RecordSet")
%>
<%
usuario=request("usuario")
pass=request("pass")
%>
<%usuario=(usuario)%>
<%pass=(pass)%>

<%
SQL="select *from cyrusuario where codigo ='"&usuario&"' and clave='"&pass&"' "
rs.Open SQL, Conex
%>
<%
IF RS.EOF THEN
RESPONSE.REDIRECT ("inicio.ASP")
else
user=rs("codigo")
tipo=rs("tipo")
session("usuario")=user
session("tipo")=tipo
response.redirect("index.asp")
end if
%>
<body>
</body>
</html>

rokiu · #2 (**permalink**) 06/09/2007, 16:54

yo lo he hecho con una variable session. te explico:

en el frame superior de mi pagina doy 4 sevicios (por ejemplo), y esta el formulario para logearse. una vez logueado, si es correcto, redirecciono el frame que es = pero con 3 enlaces mas a 3 servicios nuevos. y me guardo la id del usuario por si hace algun cambio en la sesion.

a83 · #3 (**permalink**) 06/09/2007, 19:02

ups tienes algun Ej: para poder enterder mejor no me queda muy calro

rokiu · #4 (**permalink**) 07/09/2007, 05:26

si mira, este es mi codigo del frame que recoge el formulario:

<%
'Datos recibidos del formulario
Usuario= request.form("pUsuario")
Clave= request.form("pClave")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "bloggus"

sSQL = "select nombre,clave,idusu from usuarios where (nombre='"&usuario&"' and clave='"&clave&"');"
Set Rs = Conn.Execute(sSQL)

if not rs.EOF then
session ("usuario")=Rs("idusu")
Response.Redirect("../html/privado/titulofijo_privado.html")
'Response.Write( session ("usuario"))
else
Response.Write("<script language='Javascript'>")
Response.Write("top.frames['titulo'].location.href='../html/publico/titulofijo.html';")
Response.Write("alert('Usuario o clave erroneas, INTENTALO DE NUEVO');")
Response.Write("</script>")
'Response.Write( session ("usuario"))
end if
%>

entonces si el usuriao esta registrado, al hacer la consulta lo encuentra, y se guarda la id, para todo lo que haga durante la sesion, ya sea crear algo, modificar algo... etc. y redirecciona el frame al que te comente que tiene los 3 servicios de mas.

Si no lo encuentra en la cosulta, saca un "alert" de error, y redirecciona en el frame a la misma pagina en la ke estaba, es decir a la que te sigue pidiendo usuario/clave y que no te ofrece esos 3 servicios de mas.

mas o menos claro?

JuanRAPerez · #5 (**permalink**) 07/09/2007, 08:09

hace esto

pone en tu tabla usuario un campo llamado nivel_acceso, aunque creo que ya lo tienes pero bueno para mi ejemplo pondremos niveles asi

Tus opciones serian como las de la siguiente tabla

nivel_acceso, Tipo
1, admin
2, vendedor
3, cajero

Cita:

user=rs("codigo")
tipo=rs("tipo")
nivel_acceso = rs("nivel_acceso")
session("usuario")=user
session("tipo")=tipo
session("nivel_acceso")=nivel_acceso
response.redirect("index.asp")

ya lo tienes para todas las paginas, luego en las pagina menu por ejemplo (si la usas con include es mucho mejor asi no tienes que editar el menu de todas las paginas pones

Opciones de menu para administradores

Cita:

<%if nivel_acceso = 1 then%>
'opciones de administrador
<%end if%>

Opciones de menu para vendedor y para administradores

Cita:

<%if nivel_acceso = 2 or if nivel_acceso = 1 then%>
'opciones de vendedores y tambien de administrador
<%end if%>

Opciones de menu cajeros

Cita:

<%if nivel_acceso = 3 or if nivel_acceso = 1 then%>
'opciones de cajereros y tambien de administrador
<%end if%>

---------------------------------------------------------------------------
y en tus paginas puedes hacer lo mismo
si un tipo de pagina solo lo pueden ver x nivel de acceso, entonces le pones al inicio

Cita:

if nivel_acceso = tal cosa then
'ejecuto el codigo de ese fulano
end if

suerte

a83 · #6 (**permalink**) 07/09/2007, 19:27

gua lo voy a probar

me as dejado plop pero cualquier cosa lo comento muchas gracias