paginazione in html

[sempro]

Devo implementare una funzione che mi permetta la paginazione (ad esempio in una ricerca sarebbero numeri di pagina in fondo alla pagina) di una serie di titoli di documenti, stile la paginazione che usa (ad esempio) google quando cerchi qualcosa..
Il problema è che essendo un sito accessibile da tutti non posso usare script java e vb… se qualcuno ha già implmentato qlc può darmi qualche suggerimento e/o un "po’ di codice" :-)

grazie

[piero06]

Ma la paginazione di cosa la fai ?

Ovvero ...i dati da impaginare da dove arivano ? da un db ?

[antos]

Originariamente inviato da sempro
Devo implementare una funzione che mi permetta la paginazione (ad esempio in una ricerca sarebbero numeri di pagina in fondo alla pagina) di una serie di titoli di documenti, stile la paginazione che usa (ad esempio) google quando cerchi qualcosa..
Il problema è che essendo un sito accessibile da tutti non posso usare script java e vb… se qualcuno ha già implmentato qlc può darmi qualche suggerimento e/o un "po’ di codice" :-)

grazie

visto che vuoi la massima accessiblità devi usare per forza linguaggi lato server

[sempro]

no problem. ho già risolto da solo :tongue:

[Sgnafurz]

sempro, potresti scrivere che soluzione hai adottato per completezza del thread?
perché cosi il 3d non serve a niente e farebbe semplicemente perdere del tempo a coloro che dovessero imbattersi in esso durante una ricerca

[sempro]

ok, posterò il mio codice..

'numero_documenti è il totale di documenti da visualizzare
Dim pagine_necessarie As Integer = (num_documenti \ 6) + 1
If pagine_necessarie > 1 Then

    'aux contiene la pagina corrente nell'ordine delle decine (se cont+1=26 => aux=20)
    Dim aux As Integer = CType(((cont) \ 10) & 0, String)

    'hyperlink "Pagine precedenti"
    If pagine_necessarie > 10 Then
        If (cont + 1) > 10 Then
            Dim pag_prec As New HyperLink
            pag_prec.ID = "pag_prec"
            pag_prec.Text = "Precedenti "
            pag_prec.CssClass = "profilin"
            pag_prec.ToolTip = "pagine precedenti"
            pag_prec.NavigateUrl = pagina + "?pag=" + CStr(aux)

            desk.Controls.Add(pag_prec)
        End If
    End If

    'devo visualizzare 10 indici di pagina x volta 
    For i = 1 To 10
        'visualizzo l'indice di pagina solo se c'è effetivamente
        If (i + aux) <= pagine_necessarie Then
            'cont+1 è l'indice di pagina corrente
            If (i + aux) = (cont + 1) Then
                'se l'indice corrisponde alla pagina corrente inserisco una label disattivata
                Dim Pagina_corrente As New Label
                Pagina_corrente.Text = "  " + CStr(i + aux) + "  "
                Pagina_corrente.ToolTip = "Pagina corrente"
                Pagina_corrente.CssClass = "profilin"
                Pagina_corrente.Enabled = False
                desk.Controls.Add(Pagina_corrente)
            Else
                'stampo gli indici di pagina
                Dim Indice_Pagina As New HyperLink
                Indice_Pagina.ID = "pag" + CStr(i + aux)
                Indice_Pagina.Text = "  " + CStr(i + aux) + "  "
                Indice_Pagina.CssClass = "profilin"
                Indice_Pagina.ToolTip = "visualizza la pagina " + CStr(i + aux)
                Indice_Pagina.NavigateUrl = pagina + "?pag=" + CStr(i + aux)

                desk.Controls.Add(Indice_Pagina)
            End If
        End If
    Next i

    'hyperlink "Pagine successive"
    If pagine_necessarie > 10 Then
        If (pagine_necessarie - aux) > 10 Then
            Dim pag_succ As New HyperLink
            pag_succ.ID = "pag_succ"
            pag_succ.Text = " Successive "
            pag_succ.CssClass = "profilin"
            pag_succ.ToolTip = "pagine successive"
            pag_succ.NavigateUrl = pagina + "?pag=" + CStr(aux + 10 + 1)

            desk.Controls.Add(pag_succ)
        End If
    End If

    'label "num_pag" comunicante il numero totale di pagine
    Dim num_pag As New Label
    num_pag.Text = "  > Pagine totali:" & pagine_necessarie
    num_pag.ToolTip = "numero pagine"
    num_pag.CssClass = "profilin"
    num_pag.Enabled = False
    desk.Controls.Add(num_pag)

End If

mi dispiace se osno rimaste alcune variabili della mi applicazione..
ciao