contador
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.
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>
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>