quarta-feira, 24 de janeiro de 2001

Contador fácil em TXT

Uma questão muito importante, e algumas vezes trabalhosa, é a de determinar quantas visitas recebeu cada página de um determinado
site. Em geral, a solução para que as coisas realmente funcionem do modo como queremos envolve banco de dados, consultas, e muito código . Por isso, resolvi contribuir com um código que possiblite o contagem de acessos não de apenas uma, mas de todas as páginas de um
site; e o que é melhor, sem banco de dados!

<%
' declarando as variáveis
Dim x, FSObject, letot, escrevetot, numacesso, acessos(), nomepag(), apagina


'Recupera o nome da página atual
apagina = Request.ServerVariables("URL")


' Agora vamos ler o nosso arquivo que armazena as contagens e procurar o nome da página atual
Set FSObject = CreateObject("Scripting.FileSystemObject")


nomearquivo=server.mappath("totais.txt")


Set letot = FSObject.OpenTextFile(nomearquivo,1,1)


' Observe que o número 1 em vermelho indica que o arquivo totais.txt será criado caso ainda não exista!


' O arquivo é lido, linha a linha, o nome da página atual é procurado, e os valores já lidos são armazenados em duas variáveis: nomepag e numacesso


'Aqui, zeramos o indexador de nossa lista
x=0


'Esta variável vai nos indicar se a página já foi visitada alguma vez
cabaco=0


'Fazemos um Loop até a última linha do arquivo
While Not letot.AtEndOfStream


ReDim preserve nomepag(x)


' Incluímos o nome da primeira página registrado na lista nomepag
nomepag(x) = letot.ReadLine


' Comparamos para saber se o nome da página já registrada é o mesmo do nome da página atual
If nomepag(x) = apagina Then


ReDim preserve acessos(x)


' Se for a mesma página, adicionamos 1 ao número de visitas registradas, e incluímos o valor na lista numacesso
acessos(x) = letot.ReadLine + 1


' guardamos o número total de acessos dessa página na variável contagem
contagem = acessos(x)


' Aumentamos em 1 o indexador de nossa lista
x = x + 1


'Aqui, como a página já foi visitada, à variável cabaco é atribuida o valor 1
cabaco=1


' Caso o nome da página atual não se encontre registrado
Else


ReDim preserve acessos(x)


' Carregamos os valores em nossa lista sem nenhum acréscimo
acessos(x) = letot.ReadLine


' Aumentamos em 1 o indexador de nossa lista
x = x + 1


End If


' Volta ao início e parte para uma nova linha de nosso arquivo
Wend


' Fechamos o objeto
letot.Close


Set letot = Nothing


' Agora vamos "despejar" os valores de nossa lista em um novo arquivo totais.txt
Set escrevetot = FSObject.CreateTextFile(nomearquivo)


'Zeramos o indexador de nossa lista
x = 0


' Fazemos um looping por nossa lista
For Each numacesso In nomepag


'Escrevemos o nome da página (nomepag) no arquivo de texto
escrevetot.WriteLine nomepag(x)


' Na próxima linha vai o total de acessos dessa página
escrevetot.WriteLine acessos(x)


' Aumentamos em 1 o indexador de nossa lista
x = x + 1


Next


' Se a página nã foi visitada nenhuma vez...
if cabaco=0 then


' Escrevemos o nome da página no final do arquivo texto
contador=1


contagem=1


escrevetot.WriteLine apagina


' Na próxima linha, atribuímos 1 ao valor de visitas feitas a esta página
escrevetot.WriteLine contador


end if


' Fechamos o objeto
escrevetot.Close


Set escrevetot = Nothing


Set FSObject = Nothing


' Aqui, um pequeno código opcional, caso você queira exibir o número de visitas em sua página
Response.Write "até o momento, a página "& apagina &" recebeu "& contagem & " visitantes"
%>


É isto!


Um contador simples e eficiente, uma solução perfeita para um sistema de contagem sem muito trabalho.
Tudo o que você tem que fazer agora é incluir este código em todas as páginas de seu
site, utilizando:


<!-- #include file="contador-facil.asp" -->


Espero que esse código seja útil para todos.
Boa programação!




Esta matéria foi postada originalmente no ASP4Developers por Ronaldo Reis, que na época era "Desenvolvedor ASP.NET e analista de sistemas; desenvolve soluções para Internet e é autor de vários artigos em sites do Brasil e do exterior.". Hoje, vai saber...

0 comentários: