Problema "Usuarios Online"

[meru-kun]

Tengo montado un sistema, basado en GLOBAL.asa en el que cada vez que alguien entra en la web (si ya esta registrado) lo muestre por pantalla. El codigo para mostrarlo no lo pongo, por que creo que hay no hay ningun problema, y me da que el problema esta aqui:

Código:

Sub Session_OnStart 
Session("usrName") = Request.Cookies("User")("Name")

Application.lock 
  Application("online")=application("online")+1 

   If session("usrName") <> "" Then
    If application("online") = 0 Then
     application("somos") = application("somos") &  session("usrName")
    Else 
     application("somos") = " - " &  application("somos") &  session("usrName") & " - "
    End If
   Else
     application("anonim") = application("anonim") + 1
   End If
  Application.unlock 
End Sub

Cuando veo como han quedado los resultados (imprimiendo en pantalla la variable application("somos") ) entonces veo que si, hay 2 usuarios online, queda asi:
- - - usuario1 - usuario2
Si hay 3,
- - - - usuario1 - usuario2 - usaurio3

¿Donde puede estar el fallo? ¿Como puedo optimizar este codigo? Gracias

¿Como puedo hacer luego para sacar el numero de Usuarios Online?

Se me ha ocurrido que a lo mejor era mejor si la variable la cambiaba en vez del nombre por la ID unica de cada usuario, pero... ¿Como recorro la variable para quedarme solo con cada ID=?

[Fr@Nc3$c0]

No es por incordiar, creo recordar por experiencia propia que no se puede capturar la cookie en el global.asa, es un commando restringido.

Saludos.

[dieguicho]

aca hay algo parecido
http://www.2enetworx.com/dev/samples/memwhoson.asp

y levanta una cookie

[Fr@Nc3$c0]

Ok, estudiaré eso y os cuento.

[meru-kun]

Por cierto... ¿se puede evitar que te ponga User-000 y que ponga un nombre de usuario ya registrado?

[Fr@Nc3$c0]

Eso donde te lo pone?

Yo estoy trabajando en un sistema independiente del que mencionó nuestro amigo con un link inglés.

El que utilizao yo guardo los usuarios online en la Base de datos, e intentaré hacer estadísticas .

Cuando lo termine te lo paso si quieres en un Mensaje Privado o si cabe lo expongo, etc.

[affv]

Fr@Nc3$c0 me harias el favor de enviarmelo a mi tambien..

[meru-kun]

Ok. Pasamelo a traves de un mensaje privado, si puedes claro, o lo expones aqui.

Ambas son buenas ideas.

Gracias por compartir tu trabajo con nosotros !!

[Fr@Nc3$c0]

Hola a todos los interesados de este tema

Por fín tengo algo de tiempo para hacerlo y hecho está, es simple pero funciona, he estado mejorando el código para que sea lo más breve posible.

Trata de utilizar el global.asa:

En el Session_OnStart():
' ########## Usuuarios On-line #######
Session("galleta") = Request.Cookies("Usuario")
If Session("galleta") = "" then Session("galleta") = "Invitad@"
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open Application("ConnContadores")
Set RS = Conn.Execute(" SELECT * FROM online WHERE usuario = '"&Session("galleta")&"' ")
If RS.BOF AND RS.EOF then
Conn.Execute(" INSERT INTO online(usuario, simultaneo) VALUES('"&Session("galleta")&"', 1) ")
Else
Conn.Execute(" UPDATE online SET simultaneo = '" &RS("Simultaneo") + 1& "' WHERE usuario = '"&Session("galleta")&"' ")
End If
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
' ############ Fín Usuuarios On-line ##########


Y en el Session_OnEnd():

' ######## Usuarios On-line ##########
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open Application("ConnContadores")
Set RS = Conn.Execute(" SELECT * FROM online WHERE usuario = '"&Session("galleta")&"' ")
If RS("Simultaneo") <= 0 then
Conn.Execute("DELETE * FROM online WHERE usuario = '"&Session("galleta")&"' ")
Else
Conn.Execute(" UPDATE online SET simultaneo = '"&RS("Simultaneo") - 1&"' WHERE usuario = '"&Session("galleta")&"' ")
End If
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
' ######## Fín Usuarios On-line #############


Bien, necesitaréis una Tabla en vuestra BD llamada Online con las filas : Usuario y Simultaneo.

Lo he hecho pensando en la posibilidad de que un usuario entre varias veces al mismo tiempo, puede darse el caso, así tenerlo en cuenta hasta que se marche realmente.

El Session.Timeout corre a cuenta de cada uno, puesto que de eso depende que le reste el usuario on.line, porque es desde la ultima accion del usuario desde que empieza a contar.

A partir de este codigo que os expongo se pueden hacer más cosas, pero esta creo yo es una buena base.

Espero haber sido de ayuda, saludos.

[piluso]

que valor tendria:
Application("ConnContadores")
???

gracias

[Fr@Nc3$c0]

Eso es mi conexión, ahí deberías colocar tus drivers de conexión a la base de datos.

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("BASEDEDATOS.mdb")


Saludos.