Contador gráfico
ASP
Publicado el 1 de Mayo del 2002 por David Jiménez
22.414 visualizaciones desde el 1 de Mayo del 2002
Contador gráfico en ASP
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta(7)'-------------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 nombreset 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.readallmifile.closenumero=numero+1set mifile=fso.createtextfile(server.mappath(\"cuenta.txt\"), true)mifile.writeline numeromifile.closeset mifile = nothingset fso=nothingResponse.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.