|
Contador simple de aplicación |
|
|
El objeto Application es un objeto con permanencia como puede ser el objeto Session con la diferéncia que se comparte entre todos los visitantes de nuestra web, de esta manera si especificamos:
<%
Application("copyright") = "(c) 2003 programacionweb.net"
%>
|
A partir de ahora Application("copyright") valdrá siempre lo mismo para todos los visitantes si no es que cambiamos su valor.
Veamos ahora cómo podemos crear un contador de visitas sencillo aprovechando esta opcion:
<%
Function Contador
If Application("visitas") = False Then
Application("visitas") = 1
Else
Application("visitas") = Application("visitas") + 1
End If
Contador = Application("visitas")
End Function
%>
|
Como podeis ver, hemos creado una funcion llamada Contador que si no existe la variable de aplicación visitas, la inicializa a 1, de lo contrario la incrementa y en ambos casos muestra su valor con Response.Write.
Para llamar a esta funcion lo haremos dela siguiente manera:
<!-- Usaremos VBScript para el contador -->
<%@ LANGUAGE="VBScript" %>
<%
' Contenido y declaracion de la funcion
Function Contador
If Application("visitas") = False Then
Application("visitas") = 1
Else
Application("visitas") = Application("visitas") + 1
End If
Contador = Application("visitas")
End Function
'Llmamos a la funcion
Response.Write "Hemos recivido " & Contador & " visitas."
%>
|
Y esto es todo, como habreis comprobado es mucho mas sencillo que con archivos o con bases de datos.
Eloi de San Martín
http://www.programacionweb.net/articulos/articulo/?num=244
|
