PUBLICIDADE
Este código tem nota
9,75

Autor

rlpa

Rodrigo Araujo

membro deste abril de 2007

Tags

Enquete

Você se preocupa em desenvolver usando Web Standards?
PUBLICIDADE

Contador de visitas utilizando arquivo em ASP


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

<%
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 contador contar 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("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")

%>

Sim   Não   Este código foi útil para você?
NotaComentário
10
maria1 comentou em 24/8/2012

bem bacana

muito bom fera de mais.
10
homer1 comentou em 24/8/2012

otimo

parabens muito bom.
10
tonh0 comentou em 24/8/2012

muito bom

gostei muito bom continua assim.
9
furao comentou em 16/9/2011

Funfando !!!!

codigo funfando perfeitamente, parabens !!!
Regras:
Os comentários seguem as seguintes regras:
  • Todos os comentários são enviados por membros cadastrados no site.
  • A pontuação de comentários de conteúdo do próprio membro não serão computados.
  • Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
  • Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
  • O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
  • Há um limite de 10 comentários por dia para cada membro.
  • Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

     (ainda não tem cadastro? clique aqui!)


Máximo de 30 caracteres

Máximo de 255 caracteres
 

© 2006-2013 R&W Informática Ltda. - Todos os direitos reservados. - Política de Privacidade | Mapa do Site