Visualizzazione risultati 1 fino 2 di 2

Discussione: Contaclick pagine singole

  1. #1
    Guest

    Predefinito Contaclick pagine singole

    Salve a tutti ,avrei un problema e ho guardato sulla faq e non ho trovato niente.
    Questo e il mio problema: inanzitutto premetto che capisco poco del linguaggio html ma leggendo un po qua e un po la sono riuscito a iniziare la costruzione del mio piccolo sito di pallavolo.Io avrei bisogno di inserire nel mio sito una tabella che mi conta i vari ingressi nelle pagine del sito stesso.Ho guardato in giro e ne ho trovate parecchie ma il mio problema e che non so come configurarle,se qualcuno di voi mi potesse aiutarmi e magari crearmela ne sarei molto grato.
    http://www.polisportivavigo.altervista.org

  2. #2
    Guest

    Predefinito

    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

Regole di scrittura

  • Non puoi creare nuove discussioni
  • Non puoi rispondere ai messaggi
  • Non puoi inserire allegati.
  • Non puoi modificare i tuoi messaggi
  •