LOGO UOL HOST

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 do Cliente.

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

1) Acesse o Painel do Cliente

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 Painel do Cliente

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

Assuntos recentes

Atendimento Online

Somente para assinantes

Fale com um dos nossos atendentes especializados via chat ou envie um e-mail.

Iniciar Chat ou Enviar E-mail

Central de atendimento

Atendimento 24 horas por dia, 7 dias por semana.

Se preferir você pode entrar em contato com a nossa central de atendimento

4003 9011 Capítais e regiões metropolitanas

0800 881 9011 Demais localidades