visitantes cadastrados online

[Rafa.almeida 0]

To com mo problemao..preciso fazer um sisteminha pra detectar o numero de usuarios cadastrados online...entao fiz o seguinte na minha pagina de verificacao de login mandei add no BD na tabela x uma linha com nome do usuario hora de login e mais umas coisas... so q n to conseguindo usar o Sub Session_OnEnd para mandar a informacao Logout_time q deveria ir pra msm tabela.....ta ai um exemplo do q fiz....GLOBAL.ASA<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart' Sub Application_OnStart é a função que inicia' cada vez que o servidor começa.' Iremos validar o tempo que o usuário poderá estar' on-line. (se não houver atividade por parte' do mesmo em x minutos, é feito um desconectado, apagando-se' a variável para aquele visitante)Session.Timeout = 1' O método .Lock trava a variável Application para que possamos ' atualizar a mesma. Se não a tranvarmos ela não será' alterada, neste caso a variável "Momento"Application.Lock' Vamos começar a variável em 0 Application("Momento") = 0' Destravamos agora.Application.UnLockEnd SubSub Session_OnStart' Sub Session_OnStart é a função que inicia' por cada vez que um visitante entra no site.' Aqui vamos então incrementar a nossa variávelApplication.LockApplication("Momento") = Application("Momento") + 1Application.UnLockEnd SubSub Session_OnEnd' Sub Session_OnEnd é a função que inicia' cada vez que um visitante sai do site, é definido por n ' minutos depois que o visitante sair ou estiver inativo.' Este n minutos são definidos por Session.Timeout no' Sub Application_OnStart' então, quanto um visitante é contado como menos um ' acesso simultâneo e por isso vamos decrementar a variável' "Momento"data=dateSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open "Data Source=" & Server.Mappath("dbase/dbase.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"sql_insert = "insert into User_LogTime (Login_Time) values ('"&data&"')"Conn.Execute sql_insertApplication.LockApplication("Momento") = Application("Momento") - 1Application.UnLockEnd Sub</SCRIPT>pode ser add outa linha msm isso eu mudo depois eh q assim eh mais facil de testar

[birobirosk8 0]

Velhão, num sei se você ja sabe...Mais o "Session_OnEnd" só é executado quando o tempo limeite da sessão é expirado (normalmente 20 minutos), ou seja, só sera executado após 20 minutos que o cliente fikar inativo no site.Oq você pode fazer é criar um botão de loggOut, e quando o usuario clicar você utiliza o Session.Abandon.falow aeeeeou tbm, tem uma função em javascript(axo q é OnUnLoad, sei la), q é quando o usuario fecha o browser, ai você utiliza o session.abandon, mais não sei se é funcional pq nunca utilizei....