|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Checando usuários online e total de visitas
|
 |
|
|
|
Postada em 3/10/2003 por ^HEAVY-METAL^
Neste artigos vamos aprender como criar uma função que monitora quantos usuários estão online no momento e faz a contagem do total de visitantes na página.
Vamos utilizar então duas variáveis de aplicativo, uma para fazer a contagem de usuário no momento e outra para o total de visitantes.
O motivo pelo qual utilizaremos variáveis do tipo Application, é porque estes dados como não serão armazenados em um BD, ele deve ser armazenado em uma variável do tipo Application, o valor destas variáveis só serão resetados se o servidor do site da web for reiniciado.
OBS: Este código deve ser colocado no global.asa, pois faremos a contagem assim que o usuário acessar o site.
Portanto vamos ao código:
arquivo : global.asp
<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>
Para visualizar o total de visitantes e usuários online em um página utilize o seguinte código:
<%
response.write "Total de visitas: " & Application("Total") & "<BR>"
response.write "Usuários Online: " & Application("UsuariosOnline")
%>
E esta pronto o script para total de visitas e usuários online no momento.
T+,
|
|
|
|
|
