Contador de Visitantes On-Line

[Superwagtel 1]

Como faço para instalar um contador de Visitantes

 

Preciso de um contador que apresente o total de visitantes On-Line

como este que aparece no rodapé do fórum.

 

Alguém pode me ajudar?

[xanburzum 169]

olha este exemplo, existem várias formas de implementar para este usa um arquivo de texto, para armazenar as contagens e verifica o IP da maquina.

 

<%
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 maq
'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")

%>

[Superwagtel 1]

Legal, mas como uso este script ?

 

Coloco ele em cada página do site, apenas na página home.asp

Coloco ele em um outro arquivo.asp e puxo ele para as outras

com o <iframe> ?

 

Desculpa minha ignorância, mas sou leigo em ASP,

apenas sei usar o dreamweaver para criar ASP.