Contador de clicks en ASP

Muchas veces tuvimos la necesidad de contar la cantidad de clicks que se realizaron sobre un determinado enlace, esto puede resultar muy útil por ejemplo para llevar una estadística de las veces que fue descargado un archivo o cuantos clicks sufrió algún banner de nuestro sitio.

Los datos de los links y clicks vamos a almacenarlos en una base de datos Access, que consta simplemente de tres campos:

cuentaclicks.mdb

Y vamos a utilizar una página ASP llamada clicks.asp para realizar el conteo y actualización de la base.

clicks.asp

<%
Response.Buffer=TRUE

url = Request.Querystring("url")

if url <>"" then

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("cuentaclicks.mdb")&";"

strsql = "SELECT * FROM tblContador WHERE url = '" & url & "'"

Set rs = Server.CreateObject("ADODB.RecordSet")
RS.open strsql, oConn, 3, 3

if rs.eof then
    rs.AddNew
    rs("clicks")= 1
    rs("url") = url
    rs.update
else
    rs("clicks")=rs("clicks")+1
    rs.update
end if

rs.Close
set rs=nothing
oConn.Close
response.redirect URL
end if
%>

Con este script no hace falta ingresar las url en la base de datos, el sistema detectará automáticamente que no existe y creará el registro correspondiente, almacenando a partir de entonces la cantidad de clicks en ese registro.

Para realizar el conteo de los links, debemos cambiar la forma en que creábamos los enlaces:

Antes lo hacíamos de esta manera:

<a href="seccion1.asp">Sección 1</a>

Y ahora debemos realizarlos:

<a href="clicks.asp?url=seccion1.asp">Sección 1</a>