Contador de Clicks en ASP

Es interesante poder realizar tener una estadística de las veces que un usuario hace click en un determinado enlace, para eso podemos utilizar diversas técnicas pero la más generalizada es esta.

Podríamos enseñarte muchas maneras de hacer un contador de clicks, pero la más útil es esta, ya que te permitirá almacenar el rastreo de cada usuario en tu portal.

Aquí te vamos a enseñar como realizar este conteo mediante una base de datos Access, puedes adaptar el ejemplo a cualquier sistema de bases de datos, ya sea MySQL, Oracle, SQL Server, etc.

Debemos tener una tabla llamada "Clicks" con los siguientes campos:

IdClick --> Incremental
URL --> Carácter (255)
Clicks --> Numérica

Ahora para saber en que página de nuestro portal se ha hecho click insertaremos este código en cada una de nuestras páginas automatizadas, la mejor opción es hacer una función y realizar la inclusión mediante includes en el resto de páginas:

Dim rs, oConn, SQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base_de_datos.mdb")&";"
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL="Select IdClick From clicks Where URL='" & Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") & "';"

'Esta instrucción SQL busca si existe la URL ya en la base de datos.
Rs.Open SQL, oConn
If Rs.Eof=False Then 'Ya existe
SQL="Update clicks Set clicks=clicks+1 Where idclick=" & Rs1(0) 'Le pasamos como parámetro el ID recogido en la anterior consulta.
Else 'No existe
SQL="Insert Into clicks (URL, Clicks) Values ('" & Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") & "',1);"
End If
Rs.Close

'Ahora abrimos la consulta nueva
Rs.Open SQL, oConn
Con esto hemos guardado la URL en la que se ha picado.

Esta función, irá guardando registro por registro todos los clicks que se realicen en nuestro Web, por supuesto puedes mejorarla o ampliarla, ya que esta que hemos utilizado es muy básica y se puede exprimir mucho más.