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

<html>
<head>
<title>Contadores ASP. Contador de sesiones. 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 sesiones</font></font></b></p>
<font style="font-size: 8pt">Simple contador de sesiones que almacena el número de hits en un 
fichero de texto &quot;Contador.txt&quot; (debes crearlo tú y añadir un 1 en la 
primera línea). <br>
Para incrementar el número de sesiones debes abrir otro 
navegador o cerrar todas las ventanas del existente y volver a abrirlo.</font><br>
<br>
<%
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("Contador.txt"))
counter = clng(act.readline)
if session("been_here_before") = "" then
session("been_here_before") = "Yes"
counter = counter + 1
Set act = fso.CreateTextFile(server.mappath("Contador.txt"), true)
act.WriteLine(counter)
end if
act.Close
Response.Write "Número de sesiones: " & counter
%> 
</font>
</body>

</html>