Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/11/2002, 08:10
Avatar de Ellyza
Ellyza
 
Fecha de Ingreso: agosto-2002
Ubicación: España
Mensajes: 176
Antigüedad: 22 años, 8 meses
Puntos: 0
Te dejo uno muy sencillo y que funciona a la perfección:
Lo pillé de no sé donde

Contador de clicks
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
Id Autonumerico
Url texto
clicks numerico
en una tabla llamada tblContador

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

archivo llamado clicks.asp:
Código:
<%
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>

Espero que te sirva, suerte