Visitas de un usuario con ASP

20/Ene/2009 ASP , , , , Deja un comentario

Existen múltiples formas de llevar la cuenta de las veces que un usuario ha visitado nuestra página. El optar por una u otra forma depende de cómo tengamos planteado el funcionamiento de nuestra web y del fin que queramos conseguir.

Inicialmente podemos hacer una división entre si nuestra página obliga a los usuarios a identificarse o si simplemente tenemos usuarios que visitan nuestra web sin identificación alguna.

  1. Si nuestros usuarios se identifican. Cada vez que un usuario se identifique pasaremos a llevar su control de accesos. Es decir, incrementar en una unidad el número de visitas actual. Para llevar este control podremos usar una base de datos, un fichero de texto o dejarle una cookie al usuario. Si usamos una base de datos o un fichero de texto asociaremos el id del usuario y el número de visitas.
  2. Nuestros usuarios NO se identifican. Cada vez que entre un usuario en la web deberemos de incrementar su número de visitas. En este caso solo podremos hacerlo mediante el uso de cookies ya que no hay otra forma de asociar al usuario con el número de visitas que este nos ha hecho.

En este caso vamos a dar la solución a nivel de cookie, ya que la podemos aplicar en ambos casos.

Cada vez que el usuario acceda a nuestra página le dejaremos una cookie que contenga el número de visitas que nos ha hecho. Es por ello que la cookie habrá que dejársela cuando el usuario abra la sesión en nuestra web, independientemente de por la página que lo haga. Si bien se puede realizar en alguna página en concreto. Hay que recordar que cuando el usuario abre una sesión se ejecuta el método Session_OnStart que se codifica en el fichero global.asa.

  1.  
  2. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
  3. Sub Session_OnStart
  4. ...
  5. end Sub
  6. </SCRIPT>
  7.  

Para acceder a la cookie utilizaremos el método .Cookies del objeto Request. El método recibirá como parámetro el nombre de la cookie a recuperar. En nuestro caso la llamaremos visitas y el contenido será el número de visitas

  1.  
  2. visitas = Request.Cookies("visitas")
  3.  

Una vez que hayamos leido la cookie, simplemente tendremos que incrementar el valor numérico de la cookie.

Con lo que respecta al incremente en el número de visitas del usuario habrá que tener en cuenta el que cuando el usuario no tiene la cookie es su primera visita. Además, cuando incrementemos el valor en uno hay que recordar que al leer la cookie se nos devuelve un valor que es una cadena de texto, es por ello que para incrementarlo deberemos de convertirlo previamente a valor numérico, para ello nos valdremos de funciones como Cint() o CLng().

  1.  
  2. if visitas = "" then
  3. 'El usuario no tiene cookie.
  4. visitas = "1"
  5. else
  6. 'El usuario si que tiene una cookie
  7. numVisitas = CLng(visitas) +1
  8. visitas = CStr(numVisitas)
  9. end if
  10.  
  11.  

Para volver a devolver la cookie al usuario utilizaremos de nuevo el método .Cookies. Si bien, ahora es del objeto Response.

  1.  
  2. Response.Cookies("visitas") = visitas
  3.  

También deberemos de hacer especial hincapié en la fecha de expiración de la cookie, ya que por defecto la cookie va a existir mientras el usuario mantenga activa la sesión. Para que la próxima vez que el usuario visite nuestra página tenga la cookie deberemos de asignar a la misma una fecha de expiración adecuada. En este caso lo hacemos modificando el método expires de la colección Cookies.

  1.  
  2. Response.Cookies("visitas").expires = "12/12/2050"
  3.  

El método Session_OnStart final quedará de la siguiente forma:

  1.  
  2. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
  3. Sub Session_OnStart
  4.  
  5. visitas = Request.Cookies("visitas")
  6.  
  7. if visitas = "" then
  8. 'El usuario no tiene cookie.
  9. visitas = "1"
  10. else
  11. 'El usuario si que tiene una cookie
  12. numVisitas = CLng(visitas) +1
  13. visitas = CStr(numVisitas)
  14. end if
  15.  
  16. Response.Cookies("visitas") = visitas
  17. Response.Cookies("visitas").expires = "12/12/2050"
  18.  
  19. end Sub
  20. </SCRIPT>
  21.  

¿Algo que nos quieras comentar?

Déjanos tu comentario, no te preocupes que tu email no será publicado

*

*