
06/01/2005, 09:38
|
| | Fecha de Ingreso: diciembre-2004
Mensajes: 207
Antigüedad: 20 años, 4 meses Puntos: 0 | |
Hola a todos y gracias por la respuesta.
Segui los pasos expuesto arriba, para restringir los accesos por niveles. Pero no me funciona, no se donde esté errando. Cómo, en que página y cuándo tomo el nivel para verificar. Los niveles son: 1=administrador, 2=usuario.
Antes de ingresar deben introducir su usuario y password en una pagina "Login.asp", si es correcto pasa a la página de "destino.asp" y si no es correcto vuelve a la misma pagina de "login.asp", para ello pasa previamente por una pagina de seguridad donde se verifica si se logueó correctamente. Los códigos son:
pagina Login.asp
<%else
usuario=replace(request.form("usuario"),"'","")
codigo=replace(request.form("codigo"),"'","")
password=replace(request.form("password"),"'","")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("panku.mdb"))
set rs = CreateObject("ADODB.Recordset")
sqltxt="Select nivel,* from usuarios where usuario='"&usuario&"' and codigo='"&codigo&"' and password='"&password&"'"
rs.Open sqltxt, conn
if not rs.eof then
if rs("usuario")=usuario and rs("codigo")=codigo and rs("password")=password then
session("autorizacion")=1
response.redirect "ruwaq/MasterPanel.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
response.redirect "MasterLogin.asp?msg=Usuario%20o%20password%20inco rrectos"
end if
end if%>
pagina "destino.asp", tiene un include:
<!--#include file="/pitaq/Seguridad.asp"-->
Página de seguridad.asp
<%
Response.Buffer = true
if session("autorizacion")<>1 then
response.redirect "/pitaq/MasterLogin.asp"
response.end
end if
%>
Donde tomo el "NIVEL" de usuario, como lo compruebo. Ayuda por favor!!!!!! |