problemita que me gano con runat

08/11/2004 - 17:01 por Mark | Informe spam
en el global.asa defino la siguiente variable

<object runat="server" scope="application" id="online_users"
progid="scripting.dictionary"></object>
<object runat="server" scope="application" id="online_usersgroups"
progid="scripting.dictionary"></object>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart

session.timeout = 20

End Sub

Sub Session_OnEnd

online_users.remove session.sessionid
online_usersgroups.remove session.sessionid

End Sub

</SCRIPT>


tengo una aplicacion que el usuario hace login y hace logout para dos grupos
uno de usuarios y otro de grupos(la finalidad es mostrar diferente
informacion , pero hay cuentas que son usuarios y grupos y estos pueden
logear a ambas opciones) el codigo de hacer login luego de verificar es:

para grupo
if isObject(online_usersgroups) then
online_usersgroups.item( session.sessionid ) = session("idprofesional") &
"," & session("nombre")
end if


y para usuario

if isObject(online_users) then
online_users.item(session.sessionid) = session("user_id") & "," & user_name
end if

para salir de la sesion en los usuarios el codigo es:

case "logout"
session.abandon
session("user_id") =""
session("accesslevel")=0
end select

Para grupos


case "logout"
session.abandon
session("idgrupo")=""
session("idprofesional") = 0
session("correo")=""
end select

Como pueden ver es igual

lo que me susede es que los usuarios hacen login y logout bien

pero los grupos no se mantienen registrados en online_usersgroups y pasan
dias y no salen del la variable


ALguien me puede ayudar con algun consejo, o me resigno

Gracias por la ayuda


Marco
 

Leer las respuestas

#1 pablo crosio
09/11/2004 - 21:05 | Informe spam
hola!

la unica forma de encontrar el problema es viendo TODO el codigo a
simple vista el manejo de objetos esta ok mas aun si para los usuarios
funciona y para los grupos no.

si queres enviarme el codigo, podes hacerlo a

salu2!!

pablo

"Mark" escribió:


en el global.asa defino la siguiente variable

<object runat="server" scope="application" id="online_users"
progid="scripting.dictionary"></object>
<object runat="server" scope="application" id="online_usersgroups"
progid="scripting.dictionary"></object>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart

session.timeout = 20

End Sub

Sub Session_OnEnd

online_users.remove session.sessionid
online_usersgroups.remove session.sessionid

End Sub

</SCRIPT>


tengo una aplicacion que el usuario hace login y hace logout para dos grupos
uno de usuarios y otro de grupos(la finalidad es mostrar diferente
informacion , pero hay cuentas que son usuarios y grupos y estos pueden
logear a ambas opciones) el codigo de hacer login luego de verificar es:

para grupo
if isObject(online_usersgroups) then
online_usersgroups.item( session.sessionid ) = session("idprofesional") &
"," & session("nombre")
end if


y para usuario

if isObject(online_users) then
online_users.item(session.sessionid) = session("user_id") & "," & user_name
end if

para salir de la sesion en los usuarios el codigo es:

case "logout"
session.abandon
session("user_id") =""
session("accesslevel")=0
end select

Para grupos


case "logout"
session.abandon
session("idgrupo")=""
session("idprofesional") = 0
session("correo")=""
end select

Como pueden ver es igual

lo que me susede es que los usuarios hacen login y logout bien

pero los grupos no se mantienen registrados en online_usersgroups y pasan
dias y no salen del la variable


ALguien me puede ayudar con algun consejo, o me resigno

Gracias por la ayuda


Marco

Preguntas similares