[Resolvido] quantidade de acessos em um dia

[xanburzum 169]

Este contador irá mostrar a quantidade de acessos que você entrar em um dia, ele cria um arquivo com um texto diferente do dia e mês utilizado no nome do arquivo. Então, o arquivo é criado ao longo das linhas de count1012.txt, que é o 10 º dia do 12 º mês.

 

<%
On Error Resume Next
Dim objFSO , counter_file , count
'criar instância do objeto filesystem
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'se o arquivo já existe abri-lo
Set counter_file = objFSO.OpenTextFile(Server.MapPath("count" & Day(Now) & Month(Now) &".txt"))
'recuperar a contagem valor
count = Clng(counter_file.ReadLine)
'incrementa count por 1
count = count + 1
'close 
counter_file.Close
'cria text file 
Set counter_file = objFSO.CreateTextFile( Server.MapPath("count" & Day(Now) & Month(Now) & ".txt"),true)
'escrever o valor de contagem para o arquivo
counter_file.WriteLine(count)
'close arquivo 
counter-file.Close
'destroy object
Set objFSO = Nothing
%>
A contagem de hoje é <%= count%>