Hola, yo tengo en una página un contador de clicks en un enlace, más o menos es lo mismo que contar los clicks en una imagen.
Te explico, yo puse primero un identificador (id=1, id=2...) y cuando pincho sobre el link, pongo:
<a href="contador/clicks.asp?id=49">En tu caso aki imagen src img... etc</a>
Y este click va a la página
clicks.asp, que es esta:
Código:
clicks.asp
<%
Response.Buffer=TRUE
Dim url_ver, clicks, id, oConn, rs, SQL, url
id=Request.Querystring("id")
if id <>"" then
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("count_clicks.mdb"))
SQL="SELECT clicks, url_ver FROM count WHERE id='"&id&"'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open SQL, oConn, 3, 3
rs("clicks")=rs("clicks")+1
rs.update
url=rs("url_ver")
Response.Redirect url
rs.Close
set rs=nothing
oConn.Close
set oConn=nothing
end if
%>
Esta página suma los clicks al número de identificación (id=49, en este caso) y lo guarda en la base de datos.
Tu deberás modificar los nombres, mi base es del tipo:
base: contador.mdb
tabla: count
datos en la tabla: id, clicks, url_ver
El url_ver es el url de la imagen (ej imagen.jpg).
Finalmente, para ver los números de clicks, usa la página
mostrar.asp:
Código:
mostrar.asp
<%
Response.Buffer=TRUE
Dim clicks, download, id, oConn, rs, SQL
id=Request.Querystring("id")
if id <>"" then
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("count_clicks.mdb"))
SQL="SELECT clicks, download FROM count WHERE id='"&id&"'"
Set rs=Server.CreateObject("ADODB.RecordSet")
Response.Redirect("../html/id1.asp?clicks="&clicks&"&download="&download&"")
rs.Close
set rs=nothing
oConn.Close
set oConn=nothing
end if
%>
Espero, q te sirva. Léete bien el código porque es más fácil de lo que parece. A mi al principio me costó. El truco es leerte el código e intentar enterderlo.
Hasta Luego!