Contador De Acessos Em Asp

[Visitante]

Já cansei de procurar na net por contadores de acesso em asp, achei varios porém muitissimos complicados e nunca nenhum funcionou...

mexendo em uma apostila minha antiga eu encontrei um que funcionou na primeira!!!

Segue o codigo:

<%@ Language = "VBScript" %>

<%Option Explicit %>

<%

Application.Lock

Application("AllHits") = Application("AllHits") + 1

Application.Unlock

%>

'aqui se exibe o numero de acessos

<%=Application("AllHits") %>

Sugiro que você pegue este codigo e faça um teste no dreamweaver até se familiarizar.

Lembrando que você tem que estar com o PWS instalado para rodar paginas em ASP no seu pc.

este script tem que ser colocado em primeiro lugar na pagina, antes de qualquer coisa ok?

E se o servidor for reiniciado o numero de acessos é resetado!

Tamo ai!!

[cintindi]

copiei o codigo e colei na pagina vazia primeiro para fazer teste se realmente iria funcionar e não funcionou..........tenho que acrescentar alguma coisa????

Aguardo alguma ajuda...........

[ÚnicoX]

EU queria saber se você sabe quais servidores suportam asp?

[Visitante]

Postado Originalmente por cintindi@29 jul 2004, 16:17

copiei o codigo e colei na pagina vazia primeiro para fazer teste se realmente iria funcionar e não funcionou..........tenho que acrescentar alguma coisa????

Aguardo alguma ajuda...........

Oi, como você fez? copiou o codigo colou em alguma pagina e tentou rodar?

Assim não funciona

Cole o codigo em um documento de testo e salve com a extensão .ASP ai sua a pagina para um servidor que rode ASP e faça o teste, paginas .ASP não rodam em computadores apenas em servidores, a não ser que você instale o PWS

Personal Web Server.

ok?

Qualquer coisa diz ai!!

[Visitante]

Postado Originalmente por ÚnicoX@30 jul 2004, 09:15

EU queria saber se você sabe quais servidores suportam asp?

Olá, tem um post aberto destacado mostrandos os servidores gratis que suportam asp, uma vez eu testei o V10.com.br mas ele sai do ar toda hora...

tenta la...

[Clemente Silva]

Postado Originalmente por LeandroFranca@25 jul 2004, 20:48

E se o servidor for reiniciado o numero de acessos é resetado!

Pois é, esse é o problema. Então o melhor mesmo seria ir gravando os acessos num arquivo texto dentro do servidor, usando o FSO (FileSystemObject):

<%

On Error Resume Next

'Variáveis

Dim FSO, Arquivo, Contagem

'Criar objeto FSO

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

'Criar objeto File

Set Arquivo = FSO.OpenTextFile(Server.MapPath("Contador.txt"))

'Ler a contagem atual. Se o arquivo não existir ou o valor não for numérico,

'o erro será ignorado e a próxima linha será executada, pelo "On Error Resume Next"

Contagem = CLng(Arquivo.Readline)

'Fechar o arquivo

Arquivo.Close

'Incrementar a contagem

Contagem = (Contagem + 1)

'Isto cria um novo arquivo texto, substituindo o atual

Set Arquivo = FSO.CreateTextFile(Server.MapPath("Contador.txt"), True)

'Gravar a contagem atual

Arquivo.WriteLine(Contagem)

'Fechar o arquivo

Arquivo.Close

'Destruir as instâncias dos objetos FSO

Set FSO = Nothing

Set Arquivo = Nothing

'Gravar a contagem atual numa variável "Session"

Session("Visitas") = Contagem

%>

É mais ou menos isso.

[Visitante]

Assim fica bem melhor, mas diz ai como vamos fazer para ver o numero de acesso em outra pagina?

Tipo...

Eu vou fazer a contagem de todas as paginas do meu site, e quero ter uma pagina em que vai aparecer todas as contagens...

como ficaria o codigo para leitura do arquivo .txt??

Abraço!

[Clemente Silva]

Postado Originalmente por LeandroFranca@01 ago 2004, 17:02

diz ai como vamos fazer para ver o numero de acesso em outra pagina?

Eu vou fazer a contagem de todas as paginas do meu site, e quero ter uma pagina em que vai aparecer todas as contagens...

como ficaria o codigo para leitura do arquivo .txt??

No próprio código que eu passei, veja que eu já coloco o valor atualizado numa variável Session:

Session("Visitas") = Contagem

Desse modo, basta chamar em qualquer página, assim:

Response.Write "Visitantes até agora: " & Session("Visitas") & ""

Mas se você quiser gravar a contagem de acessos individualmente por página, vai ter que gravar em arquivos texto diferentes, com nomes diferentes.

Por exemplo, note que o nome do arquivo texto do exemplo é "Contador.txt". Se quiser fazer uma contagem em separado para outra página do seu site, terá que repetir o código e colocar outro nome de arquivo ("ContadorPagina2.txt", por exemplo), senão uma contagem vai sobrescrever a outra.