Código de ASP - Contador gráfico

Contador gráficográfica de visualizaciones


ASP

estrellaestrellaestrellaestrellaestrella(7)
Publicado el 01 de Mayo del 2002 por David Jiménez
21.429 visualizaciones desde el 01 de Mayo del 2002. Una media de 35 por semana
Contador gráfico en ASP

Versión 1
estrellaestrellaestrellaestrellaestrella(7)

Publicado el 01 de Mayo del 2002gráfica de visualizaciones de la versión: Versión 1
21.430 visualizaciones desde el 01 de Mayo del 2002. Una media de 35 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
'-------------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%>



Comentarios sobre la versión: Versión 1 (7)

JAMES JOHN A. R.
23 de Agosto del 2002
estrellaestrellaestrellaestrellaestrella
ES UN CODIGO MUY INTERESANTE, VOY A PROBARLO PARA VERIFICAR.
PERO ASUMO QUE FUNCIONA CORRECTAMENTE, ASI QUE; FELICITACIONES AL AUTOR.
Responder
Antonio Rodríguez Balmori (Méx
22 de Noviembre del 2002
estrellaestrellaestrellaestrellaestrella
Muy bien funciona perfecto. Gracias
Responder
Charlie
21 de Diciembre del 2002
estrellaestrellaestrellaestrellaestrella
El codigo esta bien, pero hay algo que lo hace poco aplicable en el "real world".
Application_OnEnd() solo se ejecuta al hacer "unload", reset o apagando el server.
La realidad indica que un site deberia estar funcionando "virtualmente" siempre y no deberia apagarse nunca, por lo tanto el fichero no se actualizara con los nuevos valores hasta que esto ocurra.
Aunque por otro lado siempre tendremos el valor actualizado en la variable de aplicacion.
En general el codigo es muy bueno como ejemplo.
Responder
Jorge Alejandro
14 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
Con las modificaciones realizadas de acuerdo a los comentarios anteriores el mismo funciona perfectamente. Gracias.
Responder
Maiten
14 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
Hay algo mas corto que es:

\'**************************************************
\'CONTADOR.ASP
\'**************************************************
<%
set fso=server.createobject(\"scripting.filesystemobject\")
set mifile=fso.opentextfile(server.mappath(\"cuenta.txt\"), 1)
numero=mifile.readall
mifile.close
numero=numero+1
set mifile=fso.createtextfile(server.mappath(\"cuenta.txt\"), true)
mifile.writeline numero
mifile.close
set mifile = nothing
set fso=nothing
Response.ContentType=\"image/gif\"
Response.write \".\"
%>
\'**************************************************
\'FIN CONTADOR.ASP
\'**************************************************

y desde el index.htm o desde donde quieras contar pones:

\'**************************************************
\'INDEX.HTM
\'**************************************************
<IMG SRC=\'cuenta.asp\' width=\'0\' height=\'0\'>
\'**************************************************
\'FIN INDEX.HTM
\'**************************************************

y produce los mismos resultados :)
Responder
Angel
17 de Abril del 2004
estrellaestrellaestrellaestrellaestrella
Nesesito un codigo para una pagina, la idea esque al darle click a la imagen se agrege un valor a una cuenta, el llamado \"carrito de compras\" algun tutorial o pagina que me recomiendes de donde encontrar este codigo?
Responder
pablo
22 de Febrero del 2006
estrellaestrellaestrellaestrellaestrella
hola estoy aciendo un servlet que me permite ingresar datos a mysql, lo que hace muy bien pero cuando yo quiiero ingresar mas de 2 datos con un checkbox me sigue guardando el primer dato si a
hay algun gurú de la programacion por ahy porfa que me envie el codigo fuente para solucionar mi problema
GRACIAS
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s177