Si tienes un servidor ASP, en la pagina donde vas aponer el contador por:
<!--#include file="contador.asp"-->
Luego haces un archivo o fichero que se llame contador.asp donde pones esto:
<%
REM This code builds a simple hit counter.
REM You will need to change the path in the CounterFile variable
CounterFile = Server.MapPath ("/cgi-bin/asp") & "jujo.txt"
REM This stores the file name in a variable...it could be any file
Set fs = CreateObject("Scripting.FileSystemObject")
REM use the CreateObject function to create a file object....basically a handle to it.
On Error Resume Next
REM Why is the abbove line here..... i'll come to that ina few lines :)
Set a = fs.OpenTextFile(CounterFile, 1, 0, 0)
c = a.Readline
REM Now the first time this executes the file is not present right so this will
REM return and error message....that's why the earlier On Error Resume Next statement...
set fs = Nothing
c = FormatNumber(c + 1,0)
REM ....FormatNumber Returns an expression formatted as a number.
Set fs = CreateObject("Scripting.FileSystemObject")
set b = fs.CreateTextFile (CounterFile, 1, 0)
REM Create the file again
b.WriteLine c
Set b = Nothing
Response.Write c
REM That's all there is to it
%>
Suerte
