»
CRIANDO UM CONTATOR DE VISITAS PARA SEU SITE
Em
primeiro lugar você deve identificar a página
ASP aonde vai ficar o contador - habitualmente é a
página principal do seu site.
Agora
você deve criar um arquivo de texto que vai se chamar
"contador.txt" no diretório "contador"
e deve escrever uma linha com o número "1",
para iniciar o contador.
»
CÓDIGO PARA CRIAR O CONTADOR
<%
'''' Criação do objeto de acesso a arquivos
e do nome do arquivo
Set FileObj = Server.CreateObject("Scripting.FileSystemObject")
nombArquivo = Server.MapPath ("/contador") &
"\contador.txt"
'''' Leitura do arquivo contador.txt e incremento
do número de visitas
Set Entrada= FileObj.OpenTextFile (nombArquivo, 1, false )
Atual = Trim(Entrada.ReadLine)
Novo = Atual + 1
'''' Criação do arquivo contador.txt
e escritura do número de visitas
Set Saida= FileObj.CreateTextFile (nombArquivo, True)
Saida.WriteLine(Novo)
%>
<!-- Na seguinte linha se mostra o número de visitas
atuais -->
Número de visitas <%=Novo%>
|