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: 9pt">

<p align="center"><b><font size="3">Contador de visitas 4</font></b></p>

<p>Contador de visitas que utiliza la directiva &quot;Application&quot;</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>