Ke onda chavos oigan tengo un problema en cuanto al tiempo ke dura mis sesiones, en el asa lo que hise fue ponerle tiempo que dura una sesion, pero pues no me funciona mucho ya ke no pasan mas de 10 minutos y me termina la sesion , yo creo ke el error no esta en el .asa si no en mi asp donde pongo lo de la seguridad con una sesion esto es asi miren.
Mi ASP con el cual le digo al sistema que si no tiene sesion se salga es este
if session("alNombre") = "" and session("alPerfil") = "" then
Response.redirect("RPI_Login.asp")
end if
Y mi .ASA es el siguiente.
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
dim intCount
dim strVin
'You can add special event handlers in this file that will get run automatically when
'special Active Server Pages events occur. To create these handlers, just create a
'subroutine with a name from the list below that corresponds to the event you want to
'use. For example, to create an event handler for Session_OnStart, you would put the
'following code into this file (without the comments):
'Sub Session_OnStart
'**Put your code here **
'End Sub
'EventName Description
'Session_OnStart Runs the first time a user runs any page in your application
'Session_OnEnd Runs when a user's session times out or quits your application
'Application_OnStart Runs once when the first page of your application is run for the first time by any user
'Application_OnEnd Runs once when the web server shuts down
Sub Application_OnStart
'Contar Usuarios Activos
Application("ActiveUsers") = 0
'Cadena de Conexion
Application ("strconn")= "dsn=dbRPI;"
' Leer Parametro
Application("MaxPartes") = cint(LeeParametro("MaxPartes", 10))
Application("ImgRuta") = LeeParametro("ImgRuta", "")
Application("ImgRutahttp") = LeeParametro("ImgRutahttp", "")
End Sub
Sub Session_OnStart
Session.Timeout = 300
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
' Inicialización de Variables
Session("NumPartes") = 0
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
Si ncesitan algo toy en linea si me pueden ayudar estari de maravilla GRACIAS BYE
