|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Contador de Acessos com FSO
|
 |
|
|
|
Postada em 8/10/2003 por ^HEAVY-METAL^
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.
<%
'-------------------------------------
'Marcelo Ricardo - mricardor@yahoo.com
'favor manter este cabçalho
'------------------------------------
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
%>
T+,
|
|
|
|
|
