Fazer um contador de acesso é muito simples, utilizando ASP, precisamos apenas de duas páginas, o arquivo Global.asa, que cria uma variavel global, ou seja, serve para qualquer página do site, e uma página que exibirá o valor do contador.
Abra o Bloco de Notas e digite o seguinte código:
CRIANDO A PÁGINA GLOBAL.ASA
'a linha abaixo defina a linguagem a ser utilizada.
<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER>
Sub Application_OnStart() 'criando uma sub-rotina global.
'criando uma variavel global, que será iniciada com uma visita.
Application("visitas") = 1
End Sub 'fechando a sub-rotina.
Sub Session_OnStart() 'criando uma sessão global exclusivo para cada usuário.
Application.Lock 'bloqueia o acesso de dois usuários ao mesmo tempo
'a linha é um contador de acessos, ou seja,
'incrementado quando um novo usuário entrar no site.
Application("visitas") = Application("visitas") + 1
'desbloqueia o acesso para que um novo usuário
'para incrementar o contador
Application.UnLock
End Sub 'fechando a sessão.
'a linha abaixo fecha o servidor do servidor.
</SCRIPT>
Salve a página acima com o nome Global.asa
CRIANDO A PÁGINA QUE EXIBIRÁ O CONTADOR
<html><head><title>Sevenlink</title></head>
<body>
<br><%=Application("visitas")%> <-- exibindo o valor do contador-->
</body>
</html>
Pronto, é só abrir a página que o contador será incrementado em cada acesso.
Lembre-se de que se você apenas atualizar a página, o contador não será incrementado.
Qualquer dúvida, favor enviar um email para: [email protected]
Fonte: www.linhadecodigo.com.br
