di Nanni Bassetti.
Chiunque abbia mai usato ASP per interrogare un database si è reso conto che quando si effettuano query di grandi dimensioni (cioè che danno un output di molti records), si finisce inevitabilmente per visualizzare una lista lunghissima di records, con conseguente rallentamento dei tempi di caricamento e di perdita della leggibilità.
La soluzione c'è ! Con ASP si possono "paginare" i risultati (come fanno i motori di ricerca) e dividerli in pagine da n records per volta, per mezzo delle proprietà PageSize, PageCount ed AbsolutePage dell'oggetto Recordset.
La PageSize indica quanti record devono essere contenuti in una pagina, mentre la PageCount determina il numero totale di pagine e la AbsolutePage permette di accedere alla pagina desiderata.
Ma vediamo un esempio il file MOTOR.ASP :
<% response.expires=0 %>
La proprietà expires dell'oggetto Response è impostata a zero per il motivo che il browser, in genere, richiama una pagina, in precedenza caricata, dalla CACHE e non dal server, quindi si rischia di visualizzare sempre la stessa pagina, poichè la query inviata dal programma in asp non si aggiorna.
Insomma è come quando una normale pagina web non viene caricata dal server ma direttamente dalla cache, non riusciremo mai a vedere se a quell'URL c'è un aggiornamento della pagina, a meno di non svuotare la cache del browser, ecco perchè usiamo response.expires=0 questo forza il browser a richiamare il file .asp dal server.
Anche dal punto di vista delle risorse questo sistema è più efficace della memorizzazione in RAM degli oggetti, infatti è molto meglio rifare la query di volta in volta
che conservere in memoria oggetti di grandi dimensioni, che moltiplicati per il numero di utenti che li stanno usando potrebbero mettere in crisi il server.
<HTML>
<HEAD>
<%
tipo=request.form("select")
if tipo="tutte" then tipo="%"
Qui la variabile tipo viene caricata del valore proveniente da un form in html, in cui c'è un tag
<input type=".." name="select">
select case request.querystring("dir")
case ""
session("curpage")=1
case "Next"
session("curpage")=session("curpage")+1
case "Prev"
session("curpage")=session("curpage")-1
end select
Con questa select analizziamo la variabile "dir" presa dalla querystring e ne leggiamo il contenuto, così da avere i seguenti casi:
se dir="Next" allora la variabile curpage si incrementa di un'unità, se dir="Prev" curpage si decrementa di un'unità, se invece dir="" allora curpage=1.
const adopenkeyset=3
dim objconnection
dim rs
if request.querystring("dir")="Next" or request.querystring("dir")="Prev" then
sql=request.form("sq")
else
sql="select * from ita where tipologia like '"&tipo&"' order by linea asc"
end if
Questa è il controllo sul fatto che se siamo già oltre la prima schermata di paginazione, allora la stringa sql la deve prendere dagli input "hidden" (li vedrete più in basso), altrimenti la sql dimentica la variabile "tipo", perchè alla seconda schermata (quando si schiaccia Prossima pagina), la variabile "tipo" chi la trasmette ? Ecco perchè bisogna trasportarsi tutta la stringa sql con gli input type=hidden.
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "corsetteria"
set rs=server.createobject("ADODB.recordset")
Qui c'è la solita connessione al database "corsetteria" e la stringa sql che definisce la query che vogliamo effettuare.
rs.pagesize=6
rs.open sql,objdbconnection,adopenkeyset
Ecco che utilizziamo la proprietà pagesize, ossia con rs.pagesize=6 stiamo imponendo al motor.asp di visualizzare pagine da 6 records per volta, chiaramente potremmo impostare il valore che ci pare più appropriato alle nostre esigenze.
if not rs.eof then
' se c'è almeno un record che soddisfa la query allora procedi con l'esecuzione dello script.
rs.absolutepage=clng(session("curpage"))
%>
Rs.AbsolutePage definisce la pagina che si sta visualizzando, assumendo il valore numerico dalla variabile "curpage".
<TITLE>Risultati della ricerca</TITLE></HEAD>
<body BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#0000FF" ALINK="#FF0000" VLINK="#FF00FF">
<p>
<div align="center">
<table border="0" width="547">
<center>
<tr valign="top">
<td>
<center>
</center>
<font size="-1">
Questi sono gli articoli che corrispondono meglio ai
criteri che avete utilizzato per la ricerca. Per visionare ogni singolo
prodotto in dettaglio, e per poterlo ordinare direttamente on line,
e' sufficiente
<b>cliccare sulla relativa immagine</b>.</font>
<p>
<p align="center">Page <%=session("curpage")%> of <%=rs.pagecount%> </p>
Prima di generare la tabella contenente i risultati mostriamo il numero di pagina (tramite la session("curpage")) e il numero totale di pagine da 6 records che si sono generate (tramite la rs.pagecount).
<div align="center">
<table border="1">
<tr> <%
g=0
do while (not g=rs.pagesize) and (not rs.eof)
g=g+1
num=rs("id")
%>
Inseriamo un Loop (ciclo) che non si ferma fintanto che la variabile "g" non raggiunge la dimensione di rs.pagesize, cioè 6.
Quindi "g" sarà incrementata di uno per ogni record letto dal database, quando saranno letti 6 records allora "g" sarà uguale a 6 e il loop finirà.
<td> <b><%=g%></b> <a href="prodotto.asp?id=<%=num%>"><img src="prodotti/<%=rs("fotop")%>">
</a> </td>
<td bgcolor="#ffffc6"> <b><font color="#000000">Articolo:</font></b>
<font color="#000000"><%=rs("articolo")%><br>
<b>Marca:</b> <a href="prodotto.asp?id=<%=num%>"><%=rs("marca")%></a>
<br>
<b>Tipo:</b> <%=rs("commento")%> <br>
<b>Linea:</b> <%=rs("linea")%> <br>
<b>Prezzo:</b> L. <%=rs("prezzo")%>
<br>
rs.movenext
loop
%>
In quest'ultimo pezzo dello script c'è la visualizzazione del prodotto "pescato" dal database, per mezzo della lettura dei campi opportuni.
</tr>
</table>
</div>
<center>
<table>
<tr>
<td> <%
if clng(session("curpage"))>1 then
%>
<form action="motor.asp?dir=Prev" method="post">
<input type="hidden" name="sq" value="<%=sql%>">
<input type="submit" value="Previous Page">
</form>
<% end if %> </td>
<td></td>
<td> <% if clng(session("curpage"))<rs.pagecount then %>
<form action="motor.asp?dir=Next" method="post">
<input type="hidden" name="sq" value="<%=sql%>">
<input type="submit" value="Next Page">
</form>
<% end if %> </td>
</tr>
</table>
</center>
Questo pezzo di codice è molto importante, infatti controlla se il numero di pagina è maggiore di 1 allora fa apparire il tasto "Previous Page" che se cliccato invia sulla querystring la variabile "dir" caricata col valore "Prev" ed in input "hidden" invia la stringa sql, che altrimenti sarebbe stata dimenticata.
Se invece il numero di pagina è ancora minore del numero complessivo delle pagine, allora appareil tasto "Next Page" che se cliccato invia sulla querystring la variabile "dir" caricata col valore "Next".
Chiaramente ricorderete sicuramente che all'inizio dello script avevamo inserito il controllo della variabile dir !
<%
rs.close
OBJdbConnection.close
set rs=nothing
set objdbconnection=nothing
%>
La chiusura del database, ricordatevi sempre di inserirla !!!
</td>
</tr>
</center>
</table>
<%end if%>
</div></BODY></HTML>
Paginazione con ASP
