USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página