<%
' 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ão 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
%>
