
Contador gráfico
ASP
Publicado el 1 de Mayo del 2002 por David Jiménez
22.490 visualizaciones desde el 1 de Mayo del 2002
Contador gráfico en ASP
'-------------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%>
\'**************************************************
\'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
\'**************************************************
\'**************************************************
\'INDEX.HTM
\'**************************************************
<IMG SRC=\'cuenta.asp\' width=\'0\' height=\'0\'>
\'**************************************************
\'FIN INDEX.HTM
\'**************************************************
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.