Este código apresenta um Contador de Visitas utilizando arquivo em ASP.
O código verifica através do IP do visitante se este já visitou o site no dia.
Arquivo: contador.asp
Seu IP: " & Request.Cookies("IP")("UsuarioIP")
else 'Se for a primeira vez, será aberto o arquivo contador.txt e lido o seu conteudo
Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 1, False)
contador=RS.ReadLine 'armazenar na variável contador o conteudo do arquivo contador.txt
RS.Close
Set RS=Nothing
Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 2, False)
'Após ler seu conteudo, será somado o resultado com mais 1
contador=contador+1
RS.Write contador
RS.Close
Set RS=Nothing
Set FS=Nothing
Response.write "Total de Visitantes: " & contador & "
Seu IP: " & Request.Cookies("IP")("UsuarioIP")
end if
'é criado um cookie com o ip do usuário
Response.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR")
%>
