|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Usuários online com global.asa
|
 |
|
|
|
Postada em 31/7/2003 por DTLucchesi
É muito fácil criar um sistema que indica quantos usuários estão online no seu site. Iremos criar dois arquivos: um chamado online.asp que indicará quantos usuários estão online no momento e outro arquivo chamado global.asa que fará a contagem, junto com IPs e muito mais.
Código de "online.asp":
Citação:
<%
response.write "Total de visitas: " & Application("Total") & "<BR>"
response.write "Usuários Online: " & Application("UsuariosOnline")
%>
Agora o código de "global.asa":
Citação:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
' O aplicativo iniciou
Sub Application_OnStart
' Aplicativo é fechado para não haver conflitos
Application.Lock
' Contagem de usuarios online e total é zerado
Application("UsuariosOnline") = 0
Application("Total") = 0
' Aplicativo aberto novamente
Application.UnLock
End Sub
' Iniciada a sessão do usuário
Sub Session_OnStart
' O aplicativo é fechado novamente
Application.Lock
' A variavel Application("UsuariosOnline") é somada mais um
' quando o visitante acessa o site
Application("UsuariosOnline") = Application("UsuariosOnline") + 1
' Application("Total") é somado mais um
Application("Total") = Application("Total") + 1
Application.UnLock
End Sub
' Sessão foi finalizada pelo usuário
Sub Session_OnEnd
Application.Lock
' Application("UsuariosOnline") é subtraido um valor
' Pois o usuário que setava online fechou o browser,
' mudou de site ou a sessão expirou
Application("UsuariosOnline") = Application("UsuariosOnline") - 1
Application.UnLock
End Sub
</SCRIPT>
Pronto!!!
Espero ter ajudado!!!
|
|
|
|
|
