Lista de usuarios activos

[vgaray]

La siguiente lógica sirve para obtener un listado de usuarios que actualmente tienen una sesion abierta en algún sitio.

Aquí no obtendras solo un número x de usuarios activos, lo que obtendrás es un listado de nombres de usuarios activos.

Aquí haremos uso de Session.SessionID que es un numero aleatorio de 9 digitos que se genera al ejecutarse la subrutina Sub Session_OnStart ubicada en el archivo global.asa

Necesitarás tener una base de datos con permisos de escritura con los siguientes campos:

Sesion (texto,9)
Entrada (date/time)
Salida (date/time)
Usuario (text,x)

Ok, actualmente en la página que usas para validar usuarios, y ahí mismo en alguna parte donde ya se haya validado el login y password, teclea el siguiente código...

<%
If validado then 'edita esta línea a tus espécificaciones

On error resume next
set connVBx = server.createobject("ADODB.Connection")
bd= "/sesiones.mdb"
connVBx.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(bd)
set Tablax = server.CreateObject("ADODB.Recordset")
Tablax.open "SELECT * from sesiones",connVBx,3,2

Tablax.AddNew
Tablax("Sesion") = Session.SessionId
Tablax("Entrada") = Now()
Tablax("Usuario") = Nombre_usuario_validado
Tablax.Update

Tablax.Close
set Tablax = nothing
connVBx.Close
set connVBx = nothing

End if
%>

Al hacer esto generarás un registro en la base de datos con el siguiente ejemplo de información....

Sesion = "158763258"
Entrada = "2/20/2002 11:54:03 AM"
Salida = ""
Usuario = "vgaray"

Nota: El código anterior va en la página donde validas al usuario