Código fuente de 'Contador de visitas 4.asp'
<html>
<head>
<title>Contador de visitas 4 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<p align="center"><b><font size="3">Contador de visitas 4</font></b></p>
<p>Contador de visitas que utiliza la directiva "Application"</p>
<%
' Lock the application
Application.Lock
' Get the name of the file name executed
sFileName = Request.ServerVariables("SCRIPT_NAME")
' Increment the count for this file
Application(sFileName) = Application(sFileName) + 1
Response.write "Número de visitas: " & Application(sFileName)
' Unlock the application
Application.Unlock
%>
</body>
</html>