Quero ter um contador de visitas(hits) no meu site. Como fazer?

Quero ter um contador de visitas(hits) no meu site. Como fazer?

Atenção: Você pode facilmente colocar um contador de visitas(hits) no seu site, porém se o seu objetivo for mapear informações mais detalhadas, sugerimos que utilize a Ferramenta Relatórios de Visitação disponível no Painel de Controle.

Se a sua plataforma é Linux, utilize o procedimento abaixo:

1 - Acesse o SAC/Painel de Controle;

2 - Através do Gerenciador de arquivos, crie um arquivo na pasta public_html com o nome contador.txt;

3 - Crie um arquivo chamado contador.php com o seguinte conteúdo:

<?
$arq = "contador.txt";

$abre = fopen($arq, "r");
$total = fread($abre, filesize($arq));
fclose($abre);

$abre = fopen($arq, "w");
$total = $total + 1;
$salva = fwrite($abre, $total);
fclose($abre);

echo "document.write('".$total."');";
?>

4 - Insira na página onde você pretende exibir número de visitas a seguinte linha:

Se a sua plataforma for Windows, utilize o procedimento abaixo:

1 - Acesse o SAC/Painel de Controle;

2 - Através do Gerenciador de arquivos, crie uma pasta chamada "contador" dentro de sua pasta Web.

3 - Crie um arquivo na pasta "contador" com o nome contador.txt;

4 - Altere a permissão da pasta "contator" para Escrita e Leitura;

5 - Insira na página .ASP onde você pretende exibir número de visitas o código abaixo:

<%
Dim x, FSObject, letot, escrevetot, numacesso, acessos(), nomepag(), apagina
apagina = Request.ServerVariables("URL")

Set FSObject = CreateObject("Scripting.FileSystemObject")

nomearquivo=server.mappath("/contador/contador.txt")

Set letot = FSObject.OpenTextFile(nomearquivo,1,1)

x=0
cabaco=0

While Not letot.AtEndOfStream

ReDim preserve nomepag(x)

nomepag(x) = letot.ReadLine

If nomepag(x) = apagina Then

ReDim preserve acessos(x)

acessos(x) = letot.ReadLine + 1
contagem = acessos(x)

x = x + 1

cabaco=1

Else

ReDim preserve acessos(x)

acessos(x) = letot.ReadLine

x = x + 1

End If

Wend

letot.Close

Set letot = Nothing

Set escrevetot = FSObject.CreateTextFile(nomearquivo)

x = 0

For Each numacesso In nomepag

escrevetot.WriteLine nomepag(x)

escrevetot.WriteLine acessos(x)

x = x + 1

Next

if cabaco=0 then

contador=1

contagem=1

escrevetot.WriteLine apagina

escrevetot.WriteLine contador

end if

escrevetot.Close

Set escrevetot = Nothing

Set FSObject = Nothing

Response.Write contagem
%>