Criar um contador de acessos ao site

Postado por em 26/08/2011 - Visitas: 1781



Criando um Contador com ASP em um arquivo .txt

Crie um arquivo .txt na pasta do seu projeto, esta pasta quando hospedada num servidor deverá ter permissões 777 (caso coloque realmente recomendo a criação de uma pasta só para este arquivo para que não dê permissão 777 na raíz por motivos de segurança)

Crie seu arquivo asp para o contador com os seguintes comandos:



<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = Server.Mappath("contador.txt")

Set TXT = FSO.OpenTextFile(caminho)
´cria o objeto, e busca pelo TXT indicado pela variável caminho como acima

var = txt.readALL
´após abrir o TXT, enviará direto ao cliente todo conteúdo do TXT, neste exemplo, retornará "TESTE DE GRAVAÇÃO" como foi gravado acima
txt.close

Set GRAVAR = FSO.createtextfile(caminho,true)
´ CreateTextFile(caminho,true)
´Foi criado o objeto e logo após busca o txt em caminho para gravar, se não achar, vai cria-lo (por causa da marcação TRUE)

var = var + 1

gravar.write (var)
gravar.close
response.write var

%>



Obs: esta função a cada vez que você carrega irá somar um no contador, portanto caso seja um site com múltiplos links e que carregue a index várias vezes, recomendo o uso de uma session para que controle se é o primeiro acesso ao site você soma 1 caso contrário apenas exibe o contador, conforme exemplo abaixo já modificado



<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
caminho = Server.Mappath("contador.txt") ´ descobre o caminho lógico no disco

Set TXT = FSO.OpenTextFile(caminho)
´cria o objeto, e busca pelo TXT indicado pela variável caminho como acima

var = txt.readALL
´após abrir o TXT, enviará direto ao cliente todo conteúdo do TXT, neste exemplo, retornará "TESTE DE GRAVAÇÃO" como foi gravado acima
txt.close

´ verifica se a sessao primeirolog nao é vazia, ou seja, se nao houve ainda acesso ao site
if Session("primeirolog") = "" then

Set GRAVAR = FSO.createtextfile(caminho,true)
´ CreateTextFile(caminho,true)
´Foi criado o objeto e logo após busca o txt em caminho para gravar, se não achar, vai cria-lo (por causa da marcação TRUE)

var = var + 1

gravar.write (var)
gravar.close
´ cria uma sessao com a hora corrente do acesso apenas para preencher com algum dado que nao seja vazio
Session("primeirolog") = time()

end if
response.write var & " entrou no site as :" & Session("primeirolog")


%>



Gostou ? Compartilhe