Código fuente de 'Contador de visitas.asp'

<html>
<head>
<title>Contadores ASP. Contador de visitas. Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"><b><font size="3">Contador de visitas</font></font></b></p>
<font size="2">Simple contador de visitas que almacena el número de hits en un 
fichero de texto &quot;Contador.txt&quot; </font>(si este no ha sido creado, se 
crea automáticamente).<br>
<br>
<%  
Set fs = CreateObject("Scripting.FileSystemObject") 
Wfile=server.mappath("\") & "contador.txt" 
on error resume next 
Set a = fs.OpenTextFile(Wfile) 
hits = Clng(a.ReadLine) 
hits = hits + 1 
a.close 
if error then 
hits = 1 
end if 

Set a = fs.CreateTextFile(Wfile,True) 
a.WriteLine(hits) 
a.Close 
%>Número de hits: <% =hits %>
</font>
</body>

</html>