Código Fuente

---

3 ¡votar!

Contador gráfico en ASP

1. En primer lugar, hay que crear las imágenes que van a sustituir a los números del contador. Estas imágenes tendrán el nombre 0.gif, 1.gif, 2.gif, ... , 9.gif. Se pueden guardar en una carpeta llamada "contador". 2. En segundo lugar, crear un fichero de texto (p.e.:"contador.txt") e introducir en él el número inicial a partir del cual hay que empezar a contar.

'-------------CODIGO PARA EL ARCHIVO GLOBAL.ASA------------

Sub Application_OnStart

set fso=server.CreateObject("Scripting.FileSystemObject")

set fichero=fso.OpenTextFile(Server.MapPath("contador.txt"))

Application("visitas")=fichero.ReadLine

fichero.Close

End Sub

Sub Session_OnStart

Application.Lock

Application("visitas")=cint(Application("visitas"))+1

Application.Unlock

End Sub

Sub Application_OnEnd

'Creamos un nuevo fichero con la misma ruta y nombre



set fichero2=fso.CreateTextFile(server.MapPath("contador.txt"),true)



'Escribimos en el nuevo fichero la cifra de la última visita



fichero2.Write(cstr(Application("visitas"))

fichero2.Close

set fso=nothing

set fichero=nothing

set fichero2=nothing

End Sub



'-------------CODIGO PARA LA PAGINA DONDE TIENE QUE APARECER EL CONTADOR------------

<%for i=1 to len(Application("visitas"))

num=mid(Application("visitas"),i,1)

Response.Write "<img src=images/contador/" & num & ".gif>"

next%>

Descargar adjuntos

Escrito por: Jav2000

Recomendar a un amigo

Compartir en redes

Email  

Comentarios

Anónimo dice:

ewewew

15/10/2007, a las 10:32:42

Anónimo dice:

Este tipo se tiene que dedicar a otra cosa

10/06/2004, a las 14:22:21

Anónimo dice:

Ladris!!! Por que no ponen una pagina de diseno grafico, si Uds. son programadores yo soy Astronauta de la Nasa

17/09/2003, a las 13:03:47