Lista de usuarios online

xav1 · #1 (**permalink**) 31/03/2010, 09:28

Buenas tardes a todos,

Me estoy peleando para poder sacar una lista con el 'nick' de los usuarios registrados y activos en mi pagina web (online)

He pensado en un campo llamado 'online' en la tabla 'usuarios' de mi BD.
0 -> offline
1-> online
Lo que pasa esque para ponerla a 0 tengo que detectar que el usuario abandona el sitio y no se como hacerlo....

Tb he pensado en si es possible mostrar todas las variables session activas en el sitio, así las filtraria con algo asi.....

If InStr(Session.Contents(i), "@") <> 0 then
muestra....
end if

Supongo que lo correcto es hacer algo en el global.asa, pero no quiero llamar a una BD desde ahí....

No se si voy bien encaminado, si me podeis decir alguna ayuda o de los ejemplos que he puesto alguna ocurrencia....

Gracias!

Myakire · #2 (**permalink**) 31/03/2010, 09:35

Por qué no quieres hacer uso de ADO dentro del evento Session_OnEnd del global.asa?

xav1 · #3 (**permalink**) 31/03/2010, 09:53

No he oido hablar nunca de ello :s si sirve para lo que quiero hacer, suena interesante :)

xav1 · #4 (**permalink**) 31/03/2010, 10:17

Estoy googleando pero no encuentro nada ni por donde empezar :s, contar los usuarios esta muy bien, pero me interesa sacara su login :s

Myakire · #5 (**permalink**) 31/03/2010, 11:17

No tomes los ejemplos tal cual, en lugar de contarlos y descontarlos, haz un UPDATE o un INSERT/DELETE en la tabla de usuarios o de sesionesActivas respectivamente (depende de tu diseño); luego con un simple select obtienes los Nicks o los Logins

xav1 · #6 (**permalink**) 31/03/2010, 11:22

Gracias! voy a problarlo y te digo!

xav1 · #7 (**permalink**) 31/03/2010, 11:50

Veamos a ver, he estado trasteando un poco :P

Código PHP:

  sub session_onStart()
'sentencias a ejecutar al irse el último usuario
application.lock
application("num_usuarios") = application("num_usuarios") + 1
application.unlock
session("usuario")=request.Cookies("usuario")
dim connexio
if session("usuario")<>"" then
set connexio = Server.CreateObject ("ADoDB.connection")
connexio.open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("/mdb-database/fcb.mdb") 
dim rs00, isql00
set rs00=Server.createObject("ADODB.Recordset")
rs00.CursorType=1
rs00.LockType=2
isql00="select * from usuarios where email='"&session("usuario")&"'"
rs00.open isql00,connexio,1,2
rs00.fields(9)=1
rs00.update
rs00.close
end if
end sub

sub session_onEnd()
'sentencias que se ejecutan cada vez que entra un usuario
application.lock
application("num_usuarios") = application("num_usuarios") - 1
application.unlock

dim connexio
if session("usuario")<>"" then
set connexio = Server.CreateObject ("ADoDB.connection")
connexio.open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("/mdb-database/fcb.mdb") 
dim rs00, isql00
set rs00=Server.createObject("ADODB.Recordset")
rs00.CursorType=1
rs00.LockType=2
isql00="select * from usuarios where email='"&session("usuario")&"'"
rs00.open isql00,connexio,1,2
rs00.fields(9)=0
rs00.update
rs00.close
end if
end sub

Cuando el usuario entra a la web y esta registrado en el campo "online" (rs00.fields(9)) pone un 1.... hasta aqui bien.....

Cuando el usuario sale de la web.... debería poner un 0 y es esto lo que no hace :S

¿Alguien sabe porque?

Muchas gracias!

Myakire · #8 (**permalink**) 31/03/2010, 13:50

Se supone que onEnd() se ejecuta cuando invoca session.abandon(), esto se ejecutaría en tu botón de Logout o Terminar sesión que supongo tienes, pero si el usuario se sale solo cerrando el navegador esto no se ejecutaría, creo que ni al pasar los 20 minutos de default que duran las sesiones.

En ASPFAQ hay un artículo con alternativas para este problema, léelas y ve si alguna de ellas te sirve.

xav1 · #9 (**permalink**) 31/03/2010, 15:34

Voy a ello, gracias!

xav1 · #10 (**permalink**) 31/03/2010, 16:10

Bueno, he estado leyendo y probando cositas y parece ser que para modificar el registro que busco a la hora de cerrar el navegador es bastante complicado.

¿Alguien lo ha conseguido y me podría decir como porfavor?

Muchas gracias.

Myakire · #11 (**permalink**) 31/03/2010, 16:20

y si programas una llamada ajax que actualice tu tabla en el evento onUnload del body?

xav1 · #12 (**permalink**) 01/04/2010, 03:42

Buenos días,

Lo he intentado de esta forma....

FUNCION JAVASCRIPT:

<script languaje="JavaScript">
function closeuser() {
location.href='cerrar.asp';
}
</script>

BODY:
<body onunload="closeuser()">

CERRAR.ASP
<body>

<%
if session("usuario")<>"" then
dim rs00, isql00
set rs00=Server.createObject("ADODB.Recordset")
rs00.CursorType=1
rs00.LockType=2
isql00="select * from usuarios where email='"&session("usuario")&"'"
rs00.open isql00,connexio,1,2
rs00.fields(9)=10
rs00.update
rs00.close
response.redirect("index.asp")
end if
%>
</body>

Me lo hace bien al cambiar de pagina......... pero como no cuando cierro el explorer pasa de mi..... me estoy empezando a desesperar ya :S Tan dificil es modificar un campo de una bd cuando el usuario no esta en la web? :s

xav1 · #13 (**permalink**) 01/04/2010, 09:38

Tengo un campo en la bd llamado "online" que si esta en 1 (lo modifica el session_onStart()) lo muestro online, pero quiero que si no esta en la web o la abandone el campo pase a ser 0.

He porbado todo lo que podeis leer arriba y nada...

A alguien se le ocurre como hacerlo porfavor? le estaría muy agradecido.

Gracias!

Sherly · #14 (**permalink**) 15/04/2010, 22:40

Hola tengo el mismo problema todo hiba bien aunque no se por que cuando hago el update no me cambia el status(es el que dice si es 0 o 1) pero si me cambia el login_time que es el que coloca en 0 la ultima hora de ingreso.
Pongo codigo.
logout.php

Código PHP:

  <?php 
    $dbsesion = $_SESSION['nick']; 
    $user = $_SESSION['id_user']; 
    $status = $_SESSION['status']; 
     include("get_info_org.php");     
    include("get_info.php"); 
    include("dbconnect.php"); 
    //$password=$_SESSION['password']; 
    $mod="0"; 
    $query = "UPDATE usuarios SET login_time='".$mod."', status='".$mod."' WHERE id_user= '".$user."'"; 
    $result = pg_query($query); 
    if (!$result) 
    { 
            echo "<hr>";         
            echo "Hay un error en la conexion con <b>".$dbname."</b> en <a href='http://".$host."'>".$host."</a><br><br>"; 
            echo "Error al procesar ".$querytime."<br>"; 
            exit; 
    } 
    echo $query; 
    //Se eliminan las variables almacenadas en la sesión 
    session_unset(); 
 
    //Se destruye la sesión 
    session_destroy(); 
 
    /*Una vez destruida la sesión se redirige a login_screen.php en caso de que se desee iniciar otra sesión 
    echo '<meta http-equiv="refresh" content="0; url=login_screen.php">'; 
    La linea anterior realiza un refresh sobre el archivo... verficar para optimizar*/ 
    /*if($ref="login.php") 
    { 
        $_SESSION['id_user']=$id_user; 
        $_SESSION['password']=$password; 
        echo ("<script language='javascript'> document.location.href = 'login.php';</script>;"); 
    } 
    else 
    {*/ 
/*        echo ("<script language='javascript'> document.location.href = 'index.php';</script>;");*/ 
    //} 
?>

quiero que aparesca asi
offline usertal
online user tal etc etc etc
ya lei todo lo que dicen pero la verdad aun estoy aprendiendo a trabajar en php, no se muy bien donde se coloca lo de las sesiones ni como trabajar se me ocurrio una idea pero la vdd no se si se pueda mi idea es asi. Alguien sabe como hacer para forzar a que salgan los errores del query es que no me cambia el status y tampoco me manda error como dije el login_time si lo cambia pero el status no.