Web 2 MC

Ecco come effettuare una semplice paginazione, per inserire le pagine in un vostro documento ASP ricco di contenuti.

    RecordsPerPagina = 6 'Specifica il numero di record da visualizzare per pagina
    page = Request("page")
    if page="" then page=1        
    Set rs=Server.CreateObject("ADODB.RecordSet")
    sql="SELECT * FROM TABELLA"
    RS.Open SQL, conn,3,1
    If RS.Eof=True or RS.Bof=True then
         %>
          <tr>
            <td  align="center">Nessun elemento presente </td>
          </tr>
         <% 
    Else
    if page=0 then
        page=1
    end if
    RS.PageSize = RecordsPerPagina
    RS.AbsolutePage = page 

    For I=1 to RecordsPerPagina

        if Not RS.EOF then
               Response.write RS("nome campo")
        end if
     RS.movenext
next

'Questa sezione stampa in fondo alla pagina la paginazione per scorrere i contenuti
For pag=1 to RS.PageCount
        InizioLink ="<A href='stessapagina.asp?page=" & pag & "'>LINK"
        FineLink ="</A>"
            if cstr(pag) = cstr(page) Then   
                InizioLink =""
                FineLink =""                                   
            end if
            Response.Write  InizioLink
            Response.Write "<font>" & pag & "</font>"
            Response.Write FineLink '& "</A> "
    Next

Segnala presso:

Articoli correlati

• Programmare in ASP: Vedere se un utente è ancora connesso
• Programmare in ASP: Trovare e visualizzare indirizzo IP visitatori
• Programmare in ASP: Scrivere file XML
• Programmare in ASP: Evitare memorizzazione cache di una pagina
• Programmare in ASP: Bloccare indirizzi IP e generare errore 403