Global.asa

[dimarcinho 0]

ae galera, to testando o Global.asa, pois nunca o usei, mas to fazendo uns testes aki.... pra fazer o tal contador..... fiz assim:

 

global.asa

<script language="VBScript" runat="server">Sub Applicaton_OnStart()       Application("cont") = 0End SubSub Session_OnStart()       Application("cont").Lock       Application("cont") = Application("cont") + 1       Application("cont").UnlockEnd SubSub Session_OnStart()       Application("cont").Lock       Application("cont") = Application("cont") - 1       Application("cont").UnlockEnd SubSub Applicaton_OnEnd()       Application("cont") = 0End Sub</script>

pagina teste.asp:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%response.Write "Existem "&Application("cont")&" usuários navegando no site."%>

help ae please !!!!

[dimarcinho 0]

bom, refiz usando o response.write e vejam soh:

 

o código:

 

<%response.Write Server.HTMLEncode("Existem "&Application("cont")&" usuários navegando no site.") & "<br><br>"App = Application("cont")If App = "" Then     msg = "A variável Application não contém valores"Else     msg = "A variável Application contém o valor " & AppEnd Ifresponse.Write(msg)%>

o q eh retornado no Navegador:

 

Existem usuários navegando no site.A variável Application não contém valores

alguém pode POR FAVOR ajudar ???? o Global.asa eh este mesmo q está aí em cima!!!!

 

[]´s

[tr374 0]

E ai, sei que o post e velho mas tambem estou com esse problema. o contador de visitantes sempre é zero.

[mebkocznski 0]

No Exemplo que fo dado....Ele está utilizando duas vezes "Session_OnStart"..Quando na segunda vez deveria usar "Session_OnEnd"

[tr374 0]

Sim está na pasta raiz.Bom eu mexi mais um pouco tai meu global asa:

<script LANGUAGE=VBScript RUNAT=Server>Sub Application_OnStart Application("visitas") Application("activevisitors") = 0End SubSub Application_OnEndEnd SubSub Session_OnStart Session.Timeout = 30 Session("Start") = Now Application.Lock  Application("visitas") = Application("visitas") + 1  intTotal_visitors = Application("visitas") Application.Unlock Session("VisitorID") = intTotal_visitors Application.Lock  Application("activevisitors") = Application("activevisitors") + 1 Application.UnlockEnd SubSub Session_OnEnd   Application.Lock  Application("activevisitors") = Application("activevisitors") - 1 Application.UnlockEnd Sub  </SCRIPT>

as chamada na página: <% =application("activevisitors") %><% =application("visitas") %>e o que acontece é que activevisitors é sempre = a visitas

[mebkocznski 0]

Você deve utilizar o método "Session.End" quando o usuário encerrar a sessão.

[tr374 0]

Desculpe a ignorância mas o esse contador teoricamente deveria contar os acessos de todo o site e o quando o usuário fechasse o navegador não encerra a sessão automaticamente?ou teria que colocar o Session.End em todas as páginas?

[tr374 0]

estou vendo isso agora ....

[tr374 0]

Seguinte o erro só pode estar aqui:

Sub Session_onEnd Application.Lock  Application("activevisitors") = Application("activevisitors") - 1 Application.UnlockEnd Sub

Porque ele soma tanto na visitas como no activevisitors, o que não está fazendo e a subtração.

[tr374 0]

è isso mesmo, quem tem pressa come cru.... como estava atualizando o globalasa, toda hora, não dava tempo de expirar a sessão. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif