Ho prelevato del codice che aggiunge ad un database il numero di volte che si visita una pagina del sito, ma se vorrei visualizzare questo numero come faccio? (Es. Pagina visitata ... volte). Grazie dell'attenzione.
Ah, il codice è questo:
' ----------------------------------------------
' CONTATORE VISITE PAGINE
' ----------------------------------------------
Dim url, qs, conn, RS, accessi
'Recuperiamo il nome della pagina in esecuzione completo del suo percorso
url = Request.ServerVariables("SCRIPT_NAME")
'Recuperiamo l'eventuale querystring
qs = Request.QueryString
'Se c'è una querystring allora completiamo il nome della pagina richiesta
If qs <> "" AND (Not IsNull(qs)) Then url = url & "?" & qs
'Apriamo il nostro database
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../mdb-database/contatore.mdb")
'Impostiamo la query che verifica se la pagina richiesta è già
'presente nel db
SQL = "SELECT ID_pagina FROM pagine WHERE url = '" & url & "'"
'Eseguiamo la query di verifica e memorizziamo il risultato
'nel recordset RS
Set RS = conn.Execute(SQL)
'Se la pagina è già presente allora incrementa il conteggio delle
'visualizzazioni, altrimenti memorizza per la prima volta la pagina nel db
If Not RS.EOF Then
SQL = "UPDATE pagine SET accessi = accessi + 1 WHERE ID_pagina = " & RS(0)
Else
SQL = "INSERT INTO pagine (url, accessi) VALUES ('" & url & "',1)"
End If
'Eseguiamo la query scelta
conn.Execute(SQL)
'Liberiamo memoria
Set RS = Nothing
conn.Close
Set conn = Nothing
%>
Rispondi quotando
