quinta-feira, 5 de outubro de 2000

Usuários on-line

Crie uma pagina e coloque o código abaixo:


<% response.write "Estamos com " & Application("QuantosAgora") & " usuário(s) conectados no momento !" %>


-------------------------------------------


Crie um Global.asa e faca o seguinte:


<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
        ' Sub Application_OnStart é a função que dispara
        ' cada vez que o servidor internet começa.


        ' Aqui vamos validar o tempo que ahcamos que o utilizador
 ' está válido on-line.  (se não houver actividade por parte
 ' do mesmo em x minutos, é feito um log off, apagando-se
 ' a sua instância da variável de sessão)
        Session.Timeout = 1


        ' O método .Lock tranca a variável Applicationpara que possamos
 ' actualizar a mesma.  Se não a trancarmos a mesma não será
 ' alterada, neste caso a variável "QuantosAgora"
 Application.Lock


        ' Vamos começar a veriável em 0
        Application("QuantosAgora") = 0


        ' Destrancamos agora
        Application.UnLock
End Sub
Sub Session_OnStart
        ' Sub Session_OnStart é a função que dispara
        ' por cada vez que um utilizador entra no site


        ' Aqui vamos então incrementar a nossa variável
       Application.Lock
 Application("QuantosAgora") = Application("QuantosAgora") + 1
 Application.UnLock
End Sub
Sub Session_OnEnd
        ' Sub Session_OnEnd é a função que desperta
        ' por cada vez que um utilizador sai, é definido n
 ' minutos depois do utilizador sair ou estiver inactivo.
        ' Estes n minutos são definidos por Session.Timeout em
 ' Sub Application_OnStart


        ' então,quanto um utilizador é contado como menos um
        ' acesso simultâneo e por isso vamos decrementar a variável
 ' "QuantosAgora"
 Application.Lock
 Application("QuantosAgora") = Application("QuantosAgora") - 1
 Application.UnLock
End Sub
</SCRIPT>


Salve dentro do diretorio e confira !



Esta matéria foi postada originalmente no ASP4Developers por Vinicius Martins (site), que na época era "Espero poder ajudar sempre que puder !". Hoje, vai saber...

0 comentários: