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...