contador de acessos com fso

[BRuckey]

Contador de Acessos com FSO

Um contador que usa o File System Object para acessar um arquivo de texto e incrementar o valor cada vez que a página é requisitada.

<% 
dim Contador, tamanho, arquivo, valor, Hits 
arquivo = Server.MapPath("contador.cnt") 
set FsObject = Server.CreateObject("Scripting.FileSystemObject") 
if FsObject.FileExists(arquivo) then 
set Contador = FsObject.GetFile(arquivo) 
set txtStream = Contador.OpenAsTextStream(1,0) 
Hits = txtStream.Readall 
Hits = Hits + 1 
set txtStream = nothing 
else 
FsObject.CreateTextFile(arquivo) 
set Contador = FsObject.GetFile(arquivo) 
Hits = 0 
end if 
set txtStream = Contador.OpenAsTextStream(2,-2) 
txtStream.Write Hits 
set txtStream = nothing 
Response.Write hits 
%>