Clube da Programação e Hardware

Tutorial, dicas, Programação, Hardware entre outros assuntos.
 
InícioInício  CalendárioCalendário  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Contador de Visitas sem uso de Banco de Dados

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
volverine



Mensagens : 12
Data de inscrição : 28/01/2011

MensagemAssunto: Contador de Visitas sem uso de Banco de Dados   Seg Nov 28, 2011 12:40 pm

<%
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

'comparar se o IP armazenado no cookie é o mesmo ip do micro
'se for o mesmo IP será apresentado na tela apenas o conteudo do arquivo, evitando assim
'o contando contador todas as vezes que o usuário atualizar a página
if Request.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR") then
Set RS=FS.OpenTextFile(Server.MapPath("contatdor.txt"), 1, False)
contador=RS.ReadLine
RS.Close
Set RS=Nothing
Set FS=Nothing
Response.write "Total de Acessos Nesta Pagina: " & contador & "<br> " & Request.Cookies(" ")("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 contando 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 Acessos Nesta Pagina: " & contador & "<br> " & Request.Cookies("IP")("UsuarioIP")
end if
'é criado um cookie com o ip do usuário
Response.Cookies("IP")("UsuarioIP") = request.servervariables("REMOTE_ADDR")

%>


como explicado o proprio codigo cria uma arquivo txt que armazena o nº de vezes que a pagina foi acessada, acrescentando sempre de 1 em 1 por ip do usuario, no entanto caso queira usar este codigo para cada pagina de seu site para obter a visita por pagina, você devera renomear no codigo a palavra contador e depois inserir o codigo na pagina.

você devera enviar a sua pagina que contem o codigo do contador para o seu servidor de hospedagem ,mas não precisa criar nada em txt, pois quando a sua pagina for acessada é criado no path do seu servidor o arquivo txt.

como pode ver no codigo é capiturado o ip do usuário que acessou a pagina, isto evita que se o usuario der um F5 Nada acontecerá, só será contado um acesso dele, não acresenta mais acesso do mesmo Ip do Usuario dando o Reflash (F5).
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Contador de Visitas sem uso de Banco de Dados
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como adicionar contador de visitas
» Contador de visitas
» Contador de visitas trava ao chegar a 10.000
» Contador de visitas
» Contador de visitas em baixo do fórum

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Clube da Programação e Hardware :: PROGRAMAÇÃO :: AsP / Asp Net-
Ir para: