Contador de visitas, no me funciona ningun ejemplo bajado de internet.

lou reed
31 de Octubre del 2003
Me he bajado 5 o 6 ejemplos del tipico contador de visitas, sin utilizar bases de datos, pero en mi ordenador no funciona ninguno, os pongo el codigo del ultimo que me he bajado........pero vamos, lo que me sale en la pagina web es: "el numero de vistas es"
y no me pone el numero.

Codigo del ejemplo (contador grafico con gif):
<%
'Creamos la conexin al archivo
Set Fso = CreateObject("Scripting.FileSystemObject")
contadortxt = Server.MapPath("contador.txt")

Set FileRead = Fso.OpenTextFile(contadortxt,1,False)
'Leemos el archivo, y guardamos en la variable contador el valor que contiene el archivo
contador = FileRead.ReadLine

Set FileWrite = Fso.OpenTextFile(contadortxt,2,false)
'Aumentamos el contador y escribimos el nuevo resultado en el archivo
contador = contador + 1
FileWrite.WriteLine (contador)

'Cerramos los objetos y conexin
FileWrite.Close
FileRead.Close
Set FileWrite = Nothing
Set FileRead = Nothing
Set Fso = Nothing

'Especificamos que nuestro contador tenga 6 digitos
cantdigitos = 6

'Comprobamos la cantidad de caracteres del contador
cantcont = Len(contador)
For i = 1 to cantdigitos - cantcont
contador = "0" & contador
Next
'Hacemos un bucle de 1 a 6 (o la cantidad de digitos que se especifico mas arriba)
'Y guardamos cada digito en la variable cantidad
For i = 1 to cantdigitos
numero = Mid(contador,i,1)
cantidad = cantidad & "<img src='" & numero & ".gif'>"
Next
%>
<p align="center"><font face="verdana" size="2">Visitante Nº<br><%=cantidad%></font></p>

pablinweb
31 de Octubre del 2003
Tira todo esto al diablo y pon:

Esto en el archivo global.asa

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("Visitas") = 0
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
Session.Timeout = 20
Application.lock
Application("Visitas") = Application("Visitas") + 1
Application.unlock
End Sub

Sub Session_OnEnd
End Sub
</SCRIPT>

Luego lo muestras de donde quieras asi:

<%=application("Visitas")%>

Lo que si, con este codigo pierdes la cantidad si das tu sitio de baja por lo que podrias guardar el valor en alguna bd por las dudas

Saludos

lou reed
31 de Octubre del 2003
Pero es que yo no quiero utilizar el global.asa porque si lo subo a un servidor no tendr este archivo global.asa.......creo
Tampoco quiero usar bases de datos.