mary
18 de Febrero del 2004

porfavor ayudadme.
necesito un contador gratis que funcione.
decirme donde puedo encontrar contadores que funcionen y que sean gratis.
gracias.

tolotoco2001
18 de Febrero del 2004

3 cosas:

1. Crea un fichero que se llame contador.txt en el directorio raiz de tu aplicación.

2. Crea un directorio /images en el directorio de tu aplicación y pon en él los archivos correspondientes a los números, con extensión .gif(0.gif, 1.gif....9.gif)

3. Pon el siguiente código en la página donde quieras tener el contador.

<p align="center"><font face="verdana" size="2">Visitante Nº<br>
<%
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the grafical hit count

'Create a file Ssytem Object variable
fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
filObject = fsoObject.GetFile(Server.MapPath("contador.txt"))
'Open the visitor counter text file
tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'Incrementa el contador de visitantes en 1
lngVisitorNumber = lngVisitorNumber + 1
'Crea un archivo contador nuevo y sobreescribe el anterior
tsObject = fsoObject.CreateTextFile(Server.MapPath("contador.txt"))
'Escribe el numero nuevo en el archivo
tsObject.Write (Cstr(lngVisitorNumber))
'Resetea los objectos del servidor
fsoObject = Nothing
tsObject = Nothing
filObject = Nothing

Dim cantdigitos as integer
Dim cantcont as integer
Dim contador as string
Dim i as integer
cantdigitos = 6
cantcont = Len(Trim(lngVisitorNumber))
contador = cstr(Trim(lngVisitorNumber))
For i = 1 to cantdigitos - cantcont
contador = "0" & contador
Next
'Muestra el contador en modo gráfico
For i = 1 to cantdigitos
'Muestra el dígito gráfico
Response.Write("<img src=""./images/")
Response.Write(Mid(contador, i, 1) & ".gif""")
Response.Write("alt=""" & Mid(contador, i, 1) & """>")
Next
%>
</font>
</p>