La Web del Programador: Comunidad de Programadores
 
    Pregunta:  8047 - CONTARDOR GRAFICO ASP
Autor:  Jaqueline Vera Espinoza
hola a todos mi pregunta es como hacer, que una pagina web tenga un contador grafico, solamente lo hice con un contador simple, mi duda es la programacion cambia por completo.

gracias

  Respuesta:  Alejandro Cayssials
En una pagina counter.asp poner lo siguiente:
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\hits.txt"

On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">

<html>
<head>
<title>Graphic Counter</title>
</head>
<body>
<%
L=Len(NewHits)
i = 1
For i = i to L
num = Mid(NewHits,i,1)
Display = Display & "<img src=""" & num & ".gif"">"
Next
Response.Write Display
%>
</body>
</html>

y luego, en un archivo de texto, llamado hits.txt poner 0 como valor inicial o el numero de visitas inicial del contador.
Luego, para las imagenes, create los numeros y guardalos como 1.gif 2.gif 3.gif .... 9.gif 0.gif asi
Espero que te sirva.
Chau