Código fuente de 'Contador de impresiones.asp'
<html>
<head>
<title>Contador de impresiones - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<body style="font-family: Arial; font-size: 11pt">
<p align="center"><b><font size="3">Contador de impresiones</font></b><br><br></p>
Este script utiliza un documento "Impresiones.txt" donde cuenta el número de impresiones.
<br>
Primero añade 1 a la cuenta y luego redirige a la imagen a mostrar (en este caso se ha deshabilitado
este último caso: ver código para activar las últimas líneas).
<br>
<%
' name of the text document that will track the numer of impressions
count_file="Impresiones.txt"
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath(count_file))
counter = clng(act.readline)
counter = counter + 1
act.close
Set act = fso.createtextfile(server.mappath(count_file), true)
act.writeline(counter)
act.Close
' redirect to the image you want to display
'response.redirect "images/codeave-logo.gif"
%>
</body>
</html>