CONTADOR DE ACESSO ASP A PARTIR DE UMA PAGINA .HTM

USUARIO.EXCLUIDOS 12/04/2007 10:24:55
#211460
Peguei um código interessante de um contador de acessos em TXT:

<%
' Criação do objeto de acesso a arquivos e o nome do arquivo
' -contador.txt- do diretório contador
Set FileObj = Server.CreateObject("Scripting.FileSystemObject")
nomeArquivo = Server.MapPath ("/cont") & "\contador.txt"

' Leitura do arquivo contador.txt e incremento do número de visitas
Set Entrada= FileObj.OpenTextFile (nomeArquivo, 1, false )
Atual = Trim(Entrada.ReadLine)
Novo = Atual + 1

' Criação do arquivo contador.txt e gravação do número de visitas
Set Saida= FileObj.CreateTextFile (nomeArquivo, True)
Saida.WriteLine(Novo)
%>
<!-- Na linha abaixo é mostrado o número de visitas atuais -->
Número de visitas <%=Novo%>.




O que eu estou querendo é o seguinte: executar este contador sem que minha página inicial seja um arquivo .ASP, e sim um arquivo .HTM. Acho que tem como fazer isso com JavaScript, pois existe um site ( http://www.itmnetworks.com.br/scripts/counter/index.php ) que gera um código de um contador de acessos gratuito, onde esse código gerado é inserido em uma página, .HTML por exemplo:

<!-- Inicio do codigo do contador de acessos -->
<!-- http://www.itmnetworks.com.br -->
<a href="http://www.itmnetworks.com.br"><span style="text-decoration: none">.</span></a>
<script language="JavaScript" src="http://www.itmnetworks.com.br/scripts/counter/counter.asp?pagina=teste.com.brindex.htm&estilo=ariali&tamanho=8"></script
<a href="http://www.itmnetworks.com.br"><span style="text-decoration: none">.</span></a>
<!-- Fim do codigo do contador de acessos -->



Enfim, preciso que o contador seja executada de uma página .htm. Quem puder dar uma força, eu agradeço.

Grande abraço a todos!



Rafael

USUARIO.EXCLUIDOS 12/04/2007 11:28:10
#211487
Cara, mas vc pode ver nesse itmnetworks que o arquivo lido em JavaScript é ASP, então na sua página você também pode fazer assim, crie um arquivo ASP, contador.asp, por exemplo, com o conteúdo:

<%
' Criação do objeto de acesso a arquivos e o nome do arquivo
' -contador.txt- do diretório contador
Set FileObj = Server.CreateObject("Scripting.FileSystemObject")
nomeArquivo = Server.MapPath ("/cont") & "\contador.txt"

' Leitura do arquivo contador.txt e incremento do número de visitas
Set Entrada= FileObj.OpenTextFile (nomeArquivo, 1, false )
Atual = Trim(Entrada.ReadLine)
Novo = Atual + 1

' Criação do arquivo contador.txt e gravação do número de visitas
Set Saida= FileObj.CreateTextFile (nomeArquivo, True)
Saida.WriteLine(Novo)

'Na linha abaixo é mostrado o número de visitas atuais
Response.Write("Document.Write(" & Novo & ");")
%>


Daí na sua página qdo for exibir o contador:
Número de visitas: 
<script language="javascript" src="contador.asp"></script>


Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 12/04/2007 11:47:24
#211491
Já tentei assim tb, mas não funciona... Se o código for executado numa página .ASP rola numa boa... o problema é tentar executar a partir da página .HTM
Tópico encerrado , respostas não são mais permitidas