<% '/////////////////////////////////////////////////////////////////////////////////// '// contar.php (Conta e Exibe as Visitas) // '/////////////////////////////////////////////////////////////////////////////////// '// >> Contador SK - versão 1.0.0 - ASP + FLAT (2004) // '// Autor : Sandro [SK15] - (sk15@msn.com / http://turmadofundao.host.sk/sk15 // '// Licença : GNU/GPL - http://www.gnu.org // '/////////////////////////////////////////////////////////////////////////////////// '-------------------------- Configurações -------------------------- Arquivo = "./visitas.txt" ' Arquivo de Contagem das Visitas (Path). Imagens = "./images/dg08" ' Localização das Imagens (URL). Formato = ".gif" ' Formato das Imagems (.gif, .jpg, .jpeg, .png). Digitos = "6" ' Número de Digitos do Contador. Unicos = True ' 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 %>