USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

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


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página