Código fuente de 'Contador de clicks (sin bd).asp'
<html>
<head>
<title>Contador de clicks (sin bd) - 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 clicks (sin bd)</font></b></p>
<script language="JavaScript1.2">
function refresh()
{
window.location.reload( false );
}
</script>
<%
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("enlacea.txt"))
counter = clng(act.readline)
act.close
%>
<a href="Contador de clicks (sin bd).asp?u_enlace=enlacea.asp">enlace A</a> (<%= counter %> clicks)
<br>
<%
set act = fso.opentextfile(server.mappath("enlaceb.txt"))
counter = clng(act.readline)
act.close
%>
<a href="Contador de clicks (sin bd).asp?u_enlace=enlaceb.asp">enlace B</a> (<%= counter %> clicks)
<br>
<%
set act = fso.opentextfile(server.mappath("enlacec.txt"))
counter = clng(act.readline)
act.close
%>
<a href="Contador de clicks (sin bd).asp?u_enlace=enlacec.asp">enlace C</a> (<%= counter %> clicks)
<p><b>Nota:</b> <a href="javascript:refresh()">refresca</a> la página para
actualizar valores.</p>
<%
u_enlace=request.querystring("u_enlace")
counter_add= replace(u_enlace,".asp",".txt")
response.write counter_add & " " & u_enlace
set fso = createobject("scripting.filesystemobject")
on error resume next
set act = fso.opentextfile(server.mappath(counter_add))
counter = clng(act.readline)
act.close
counter = counter + 1
Set act = fso.CreateTextFile(server.mappath(counter_add), true)
act.WriteLine(counter)
act.Close
response.redirect (u_enlace)
%>