[Resolvido] Contador txt + IP

[xanburzum 169]

Implementando um contador em txt, que comparar se o IP armazenado em um cookie, se é o mesmo ip do usuário,se for o mesmo IP será apresentado na tela apenas o conteudo do arquivo, evitando assim o contador contar todas as vezes que o usuário atualizar a página.

 

<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
If FS.FileExists(Server.MapPath("contador.txt")) = False then   	
	'Verificar se o arquivo contador.txt existe, caso não exista, este é criado e acrescentado um valor
	FS.CreateTextFile(Server.MapPath("contador.txt"))	
	Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 2, False)
	contador=contador+1
	RS.Write contador
	RS.Close
	Set RS=Nothing
End If


if Request.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR") then
	Set RS=FS.OpenTextFile(Server.MapPath("contador.txt"), 1, False)
	contador=RS.ReadLine
	RS.Close
	Set RS=Nothing
	Set FS=Nothing
	Response.write "Total de Visitantes: " & contador & "<br>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 & "<br>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")

%>