:: FILOWEB.it: Paginazione dei risultati di query di grandi dimensioni

 
		<%@LANGUAGE = VBScript%>

<%

    '  DEFINISCO LE VARIABILI CHE MI SERVONO PER L' APPLICAZIONE

    Dim sc, cn, rs, quanti, pag, contatore



    '  DEFINISCO LA STRINGA DI CONNESSIONE

    sc = " " 

    sc = sc & " driver={Microsoft Access Driver (*.mdb)};dbq=" 

    sc = sc & Server.MapPath(" database.mdb" )



    '  IMPOSTO LA CONNESSIONE EDIL RECORDSET

    Set cn = Server.CreateObject(" ADODB.Connection" )

    Set rs = Server.CreateObject(" ADODB.Recordset" )



    '  APRO LA CONNESSIONE COL DATABASE

    cn.Open sc



    '  DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA

    quanti = 5



    '  RECUPERO IL NUMERO DI PAGINA CORRENTE

    '  E CONTROLLO CHE NON SIA INFERIORE A 1

    pag = Request.QueryString(" pag" )

    If IsNumeric(pag) = False Or pag < 1 Then pag = 1



    '  IMPOSTO UN CONTATORE

    contatore = 0

%>

<html>

<head>

<title>Paginazione dei risultati di query molto lunghe in ASP</title>

<style>a { color: blue; }</style>

</head>

<body>



<table align=" center"  width=" 300"  border=" 1" >

<%

    '  APRO IL RECORDSET

    rs.Open " SELECT nome FROM utenti ORDER BY nome ASC" , cn, 1

    '  EFFETTUO MATERIALMENTE LA PAGINAZIONE

    rs.PageSize = quanti

    rs.AbsolutePage = pag

    '  ESEGUO IL CICLO

    While rs.EOF = False And contatore < quanti

%>

    <tr><td><%=rs(" nome" )%></td></tr>

<%

        rs.MoveNext

        '  INCREMENTO IL VALORE DEL CONTATORE

        contatore = contatore + 1

    Wend

%>

</table>



</body>

</html>

<%

    '  UN PO DI PULIZIA...

    rs.Close

    Set rs = Nothing

    cn.Close

    Set cn = Nothing

%>