Originariamente inviato da Gelion
ho un dominio con aruba
codice:
In questa lezione sarà analizzato come realizzare un semplice conta click che si appoggia ad un database.

Si necessita, quindi, appunto di un database (utilizzeremo Access) e di una pagina.

DATABASE
Lo chiameremo contaclick.mdb e conterrà un'unica tabella con 2 campi:
- url
- click

Il primo campo conterrà un indirizzo relativo o assoluto (solitamente se è assoluto si tratta di un conta click per siti esterni al nostro) e sarà TESTO. Il secondo, sarà un valore numerico in quanto contiene il numero dei click.

PAGINA ASP
Che chiameremo vai.asp essa contiene questo semplice codice:

<%@ language=VBScript %>
<%
URL = Request.QueryString("URL")

'apertura database
Set conn = Server.CreateObject("ADODB.Connection")
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & Server.MapPath("contaclick.mdb")
conn.open dsnpath

'aggiornamento database
Conn.Execute "UPDATE Click SET Click = Click + 1 WHERE _
      URL='" & URL & "'"
Conn.Close
Set Conn= Nothing
Response.redirect URL
%>
Vediamo cosa fa questo codice.
Al caricamento della pagina vai.asp viene aperto il database e viene eseguita una stringa che aggiorna il campo click, aggiungendo +1 al valore già esistente all'url relativo. 

Infatti per contare il click della pagina newsletter.asp basterà fare un link del genere:

vai.asp?url=newsletter.asp

in questo modo viene caricata la pagina asp che aggiunge appunto +1 al campo relativo all'url newsletter.asp e poi reindirizza a questa stessa pagina.

Logicamente nel database devono esser già inserite tutte le url esatte di cui si vogliono contare i click.