Qualcosa ho fatto dopo tante prove : Ho creato un db con il nome di contaclick.mdb e la relativa pagina di nome click.mdb.Ho impostato la tabella e quando clicco sul link mi porta alla pagina che io devo monitorare ma quando ritorno indietro non aumenta il numero di visite.Forse ho sbagliato qualche cosa se qualcuno di voi mi puo aiutare gli sarei molto grato. Queste sono le due tabelle che ho creato :
contaclick.asp (nome database)
Codice:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>contaclick</title>
</head>
<%
ID=request.QueryString("ID")
If ID = "" then
Response.Write("<h3><center>ID non valorizzato</center></h3>")
Response.End
End If
' Controllo se il link alla pagina click è nella forma click?ID=numero, altrimenti mostro il messagio di errore
ID non valorizzato
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};" & "dbq="&Server.MapPath("database.mdb/contaclick.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "UPDATE click SET Click = Click + 1 WHERE ID =1;"
cn.Execute(strSQL)
' Aggiorno il campo Click di 1 ogni volta che il link in riferimento all'ID viene premuto
contaclick.asp?ID=1 incrementa il contatore dell'ID N" 1
strSQL="SELECT * FROM click where ID = 1;"
rs.Open strSQL,cn
if rs.EOF then
response.write("<h3><center>Si sono verificati problemi durante la lettura della base dati</center></h3>")
response.write("<h3><center>Il record <font color=""#0000FF""> 1 non esiste.</center></h3>")
response.end
end if
' Controllo se l'ID esiste, se non esiste mostro un messaggio d'errore e il N" dell'ID inesistente
Set cn = nothing
Set rs = nothing
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};" & "dbq="&Server.MapPath("database.mdb/contaclick.mdb")
Set rs = cn.Execute("Select * from click WHERE ID=1;")
Do While Not rs.EOF
response.redirect("http://www.polisportivavigo.altervista.org/vigonovo-legnaro 0-0.html")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cn.Close
Set Cn= Nothing
' redirect alla URL inserita nel campo Link
%>
<body>
</body>
</html>
click.asp(nome tabella)
Codice:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>click</title>
</head>
<body>
<a href="http://vigonovo-legnaro.html/click.asp?ID=1">vigonovo-legnaro 0-0</a>
<%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};" & "dbq="&Server.MapPath("database.mdb/contaclick.mdb")
Set rs = cn.Execute("Select * from click WHERE Link="http://www.polisportivavigo.altervista.org/vigonovo-legnaro 0-0.html")
' inserire la URL presente nel DB nel campo Link
Do While Not rs.EOF
Response.write "Questa pagina é stata visitata ("0") volte"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn= Nothing
%>
</body>
</html>
Il mio sito che sto costruendo si chiama:polisportivavigo.altervista.org
vi ringrazio anticipatamente
Il DB è composto cosi:
ID:Contatore
Click:Numerico
Link:Testo
Titolo:Testo
Descrizione:Testo
Alla voce link ho scritto l'indirizzo della pagina da monitorare in questo caso :http://www.polisportivavigo.altervis...gonovo-legnaro 0-0.html
Alla voce Titolo ho scritto il nome della pagina: vigonovo-legnaro 0-0
Mi viene un dubbio,ma quste due pagine devo metterle complete su ogni link da controllare?Io le ho messe dove ci sono tutte le altre