ufffffffffffff y por ultimo:
el codigo del global.asa y el de cada pagina segura y la de cierre de sesion:
en el global.asa
<SCRIPT LANGUAGE=VBScript RUNAT=server>
sub application_onStart()
'sentencias que se ejecutan al entrar el primer usuario
end sub
sub application_onEnd()
'sentencias a ejecutar al irse el último usuario
end sub
sub session_onStart()
Session("ID_CLI")=Cstr("0") '<----- importante
'sentencias que se ejecutan cada vez que entra un usuario
end sub
sub session_onEnd()
Session("ID_CLI")=Cstr("0")
'sentencias a ejecutar al irse el cada usuario
end sub
</SCRIPT>
en cada pagina segura:
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include virtual = "/sapi/scripts/conexion.inc" -->
<%
'verifica que haya iniciado sesion
Response.buffer=true
if Session("ID_CLI")=Cstr("0") then
Response.Status="401 Prohibido"
Response.redirect "prohibido.asp"
end if
%>
y despues todo lo que sigue en la pagina si es que tiene acceso.
y por ultimo el codigo de la pagina de salida: logout.asp
<%@LANGUAGE="VBSCRIPT"%>
<%
Response.buffer=true
Response.Expires = -2000
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Session.Abandon %>
es o es todo, obviamente debes cambiar la consulta a la base de datos, la conexion y todo eso, pero asi funciona superbien.
el principio es que cuando se ingresa a la pagina inicial se crea una sesion para el usuario. se coloca el id_cli en 0, luego si tiene acceso se coloca el id_cli=nombre_usuario, y encada pagian segura preguntas si id_cli=0 entonces denegar acceso.
cuando sales con la pagina logout.asp que es llamada desde un link salir o algo asi. se coloca el id_cli a cero nuevamente, asi si aprieta el back del browser, lo redigira a la pagina prohibido.asp.
ojala te sirva. salio largo pero sirve.
a mi me funca super
:cantar: :cantar: :cantar: :cantar:
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<img src="http://pukem.face.ubiobio.cl/sapi/gta2.jpg">
"And Remember...Respect is everything.