El siguiente script sirve como contador para una web.
No hay necesidad de crear previamente el archivo, el script se ocupa de verificar que el archivo exista, y si no existe lo crea sólo. Para definir el nombre del archivo es en la primera línea del script en la variable "archivo". La segunda linea, la variable "hits" se puede configurar si queremos que el contador empiece desde un numero en particular.
<% archivo = "c:\test.txt" hits = 0 Set fs = Server.CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(archivo,1,true,0) if not f.AtEndOfLine then hits = f.ReadLine f.Close Set f = Nothing
hits = hits+1 Set f = fs.OpenTextFile(archivo,2,true,0) f.write(hits) f.Close Set f = Nothing set fs=nothing
response.write "<B>La pagina ha recibido "& hits & " visitas</B>" %>
Autor: CoRSA
Fecha de envio: 27/11/2003
Si deseas colaborar enviando una nota como esta para mostrar en la web, ingresa aqui
