|
<%
'-------------------------- Configurações --------------------------
Arquivo = "./visitas.txt" ' Arquivo de Contagem das Visitas (Path).
Imagens = "./images/dg18" ' Localização das Imagens (URL).
Formato = ".gif" ' Formato das Imagems (.gif, .jpg, .jpeg, .png).
Digitos = "10" ' Número de Digitos do Contador.
Unicos = false ' Contagem Única e Diária por Usuário (True = Sim / False = Não).
'------------------------ Fim Configurações ------------------------
File_Visita = Server.MapPath(Arquivo)
Set Leitura = Server.CreateObject("Scripting.FileSystemObject")
Set Visitas = Leitura.OpenTextFile(File_Visita, "1")
Contagem = Eval(Trim(Visitas.ReadAll)) : Visitas.Close
Set Leitura = Nothing
Set Visitas = Nothing
If Unicos = False Or IsEmpty(Request.Cookies("Contado")("Unico")) = True Then
Set Gravar = Server.CreateObject("Scripting.FileSystemObject")
Set Acessos = Gravar.OpenTextFile(File_Visita, "2")
Somagem = (Contagem + 1)
If Len(Somagem) > Eval(Digitos) Then Contagem = "1" Else Contagem = Somagem End If
Acessos.Write Eval(Contagem) : Acessos.Close
Set Gravar = Nothing
Set Acessos = Nothing
If Unicos = True Then
Response.Cookies("Contado")("Unico") = "1"
Response.Cookies("Contado").Expires = (Date() + 1)
End If
End If
Len_Digitos = Len(Contagem)
Inicializar = Eval(Digitos - Len_Digitos)
HTML = ""
For Z = "1" To Inicializar
HTML = HTML & "![]() "
Next
For N = "1" To Len_Digitos
HTML = HTML & "![]() "
Next
HTML = HTML & ""
If IsEmpty(Request.QueryString("js")) = False Then
HTML_Print = "document.write('" & HTML & "');"
Else
HTML_Print = HTML
End If
Response.Write HTML_Print
%>
|
