Ver Mensaje Individual
  #2 (permalink)  
Antiguo 11/08/2011, 10:08
Avatar de Javier01
Javier01
 
Fecha de Ingreso: febrero-2008
Ubicación: Montevideo
Mensajes: 261
Antigüedad: 17 años
Puntos: 31
Busqueda Respuesta: Listar usuarios conectados

Buenas tardes:

Bueno creo que podrías resolverlo así:

En la función Application_OnStart colocamos el codigo:
Código ASP:
Ver original
  1. Sub Application_OnStart
  2.   Dim aListaAux()
  3.   Redim aListaAux(0)
  4.   Application("ListaUsuarios") = aListaAux
  5. End Sub

En la función Session_OnStart:
Código ASP:
Ver original
  1. Sub Session_OnStart
  2.     aLista = Application("ListaUsuarios")
  3.     aLista(ubound(aLista))= Session.SessionID
  4.     Redim Preserve aLista(ubound(aLista) +1)
  5.     Application("ListaUsuarios") = aLista
  6. End Sub


y luego en alguna página asp:
Código ASP:
Ver original
  1. if IsArray(Application("ListaUsuarios")) then
  2.       aListaUsuarios = Application("ListaUsuarios")
  3.       for i = 0 to UBound(aListaUsuarios)
  4.           Response.Write(aListaUsuarios(i) & "<BR>")
  5.       Next
  6.    Else
  7.       Response.Write("Application('aListaUsuarios') no es una matriz! <BR>")
  8.    end if


Aunque falta la parte donde se elimina la sesión.
Esto se podría hacer en la función Sub Session_OnEnd
Recorriendo el array y buscando la sesión a eliminar.

Saludos!