Contador gráfico con ASP

Escrito por WebExperto el Jueves 27 de Junio de 2002 a las 00:00hs

Para ello necesitamos 10 imágenes del número 0 al 9, un archivo de texto en donde almacenaremos la cantidad de visitas, y por último el archivo .ASP que se encarga de mostrar el contador. 

Vamos a realizar un contador como el siguiente...

Visitante Nº

Implementación

Cada imagen será llamada con correspondiente número + .GIF, como por ejemplo: 0.gif, 1.gif, etc.
Creamos un archivo llamado contador.txt en donde asignaremos como primer valor el número 0 (cero).

contador.asp

<%
'Creamos la conexión 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 conexión
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>


Download

Pueden descargar el archivo contador_grafico.zip, en el cual se encuentran todas las imágenes de los números, el archivo de texto y el .ASP con el código fuente del contador.


comentarios



  1. Hola amigo, no veo por ningun lado el link del q hablas para bajar las imagenes y el codigo fuente, te agradecería me envies ese archivo zip a mi cuenta de correo, ya q necesito implementar esto de las visitias en un sitio web q estoy desarrollando pa mi tesis. Gracias



  2. Arreglado, ya te estoy avisando por email.



  3. Esta bueno, Gracias , aunque buscaba preferentemente grafico de torta



  4. Gracias Guru .. Sacas de Apuros



  5. Orale gracias de verdad me sirve empiezo en esto

agregar comentario


Se permiten las etiquetas HTML <b>, <i> y <p>. Si ingresa alguna dirección web o dirección de email serán convertidos en enlaces automáticamente.





publicidad