dubbio impaginazione tabelle

[Alex75]

Salve avrei una domanda da porvi. Ho il seguente codice per la paginazione di un recordset:

--------------------------------------------------------------------------

<% Dim DBConn
Set DBConn=Server.CreateObject("ADODB.Connection")
DBConn.Open "Negozio"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1 :master:
strSQL = "SELECT * FROM Prodotti"
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page
If objRS.Eof=True or objRS.Bof=True then
Response.Write "

Nessun risultato trovato</P>"
Else
Response.Write ("<center><table border=1><tr>
<th>Nome Prodotto</th><th>Tipo Prodotto</th>
<th>Colore</th></tr>")
For i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.Write("<tr><td>“ & objRS("NomeProdotto") & "</td>")
Response.Write("<td>" & objRS("TipoProdotto") & "</td>")
Response.Write("<td>" & objRS("Colore") & "</td></tr>")
objRS.MoveNext
end if
Next
Response.Write ("</table></center>")
End if
Response.Write "

Pagine: "
For pag=1 to objRS.PageCount
Response.Write "<A href='Paginazione.asp?page=" & pag & "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>


------------------------------------------------------------------------

Premetto che il codice l'ho trovato su internet. La domanda è la seguente: da come è impostato il codice mi sembra che ogni volta che viene cambiata pagina il programma rieffettua la connessione al database e il caricamento dei dati nel recordset. La qualcosa mi sembra una perdita di tempo. Basterebbe, infatti, caricare una sola volta i dati e poi effettuare l'impaginazione con Absolute.
Il mio dubbio riguarda le seguenti righe di codice:
if page="" then page=1 :master:
strSQL = "SELECT * FROM Prodotti"
objRS.open strSQL, DBConn, 1
La select e la connessione al database potrebbe essere risparmiata nel caso di page<>1
Voi che dite?

Spero di essere stato chiaro?
Se volete potete intervenire, modificando il codice.

[alexba64]

Che bello quando ci sono domande da "porci"

La domanda te la faccio io però:

Cos'e' l'impaginazione con Absolute

[Alex75]

Così come vedi nel codice:
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page
AbsolutePage serve a posizionare il recordset in modo che la pagina attiva sia quella specificata (in questo caso page)

[yro]

non ho capito se devi paginare dei record o impaginare delle tabelle...

[Alex75]

Come vedi nel codice io ho una tabella da visualizzare . Questa tabella ha molti record, così io decido di fare in modo che ogni pagina me ne visualizzi 5 e non di più.

[yro]

per la paginazione, se il codice che hai non ti ispira prova la classe aspbox di imente

http://www.imente.org/index.php/deve...asses/aspdbox/

magari è più funzionale per le tue esigenze.

ps: io non ho avuto occasione di provarla, ma conoscendo i lavori fatti fin'ora sarà sicuramente ben fatta!

[Alex75]

La domanda che ponevo all'inizio riguarda il fatto che secondo me non occorre ricaricare i dati nel RecordSet ogni volta che si cambia pagina. Io modificherei così il codice ponendo un opportuno end if:

<% Dim DBConn
Set DBConn=Server.CreateObject("ADODB.Connection")
DBConn.Open "Negozio"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1 // così se la page="" carica il recordset
strSQL = "SELECT * FROM Prodotti" // altrimenti esegue l'AbsolutePage
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
end if
objRS.AbsolutePage = page
If objRS.Eof=True or objRS.Bof=True then
Response.Write "

Nessun risultato trovato</P>"
Else
Response.Write ("<center><table border=1><tr>
<th>Nome Prodotto</th><th>Tipo Prodotto</th>
<th>Colore</th></tr>")
For i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.Write("<tr><td>“ & objRS("NomeProdotto") & "</td>")
Response.Write("<td>" & objRS("TipoProdotto") & "</td>")
Response.Write("<td>" & objRS("Colore") & "</td></tr>")
objRS.MoveNext
end if
Next
Response.Write ("</table></center>")
End if
Response.Write "

Pagine: "
For pag=1 to objRS.PageCount
Response.Write "<A href='Paginazione.asp?page=" & pag & "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>
-----------------------------------------------------------------
Voi che ne dite?

[kalosjo]

E che differenza c'è?

ho visto la modifica......... controlla bene e capirai che hai scritto una cosa assolutamente inguardabile.....

Edit:
Quello che vorresti tu è una pagina che carica tutti i dati e te li fa vedere a gruppi di 5 senza però ricaricare ogni volta il recordset (e quindi la pagina). Dovresti caricare tutto in vettori con javascript e cambiare il contenuto della tabella sul client.
Ma così, se vengono fuori 20.000 righe ammazzi la pagina...........

[alexba64]

Se la pagina è sempre la stessa, ogni volta che la ricarichi per passare ai record successivi, inevitabilmente ricarchi anche lo scirpt del recordset, in sostanza riesegui la pagina e reinterroghi il db

[Alex75]

SI D'ACCORDO. MA SE TU GUARDI IL CODICE:
For pag=1 to objRS.PageCount
Response.Write "<A href='Paginazione.asp?page=" & pag & "'>"
Response.Write pag
Response.Write "</A> "
Next

TI ACCORGI CHE QUANDO MI SPOSTO DA UNA PAGINA ALL'ALTRA LA PAGINA VIENE RICARICATA CON UN VALORE PAGE CHE POSSO RICAVARMI CON L'ISTRUZIONE REQUEST.
ECCO PERCHE' TI DICEVO PRIMA CHE SOLO NEL CASO PAGE="" (PRIMO CARICAMENTO) CI CONNETTIAMO AL DATABASE E CARICHIAMO IL RECORDSET. SE INVECE PAGE HA UN VALORE, TIPO 1 O 2 O 3, NON MI SEMBRA IL CASO DI RIFARE LA CONNESSIONE POICHE' I DATI DOVREBBERO ESSERE GIA' NEL RECORDSET. COSI' HO PENSATO DI AGGIUNGERE UN END IF AL CODICE COME PUOI VEDERE NEL PRECEDENTE MESSAGGIO. MA TE LO RISCRIVO ABBREVIATO:

page = Request("page")
if page="" then page=1 // così se la page="" carica il recordset
strSQL = "SELECT * FROM Prodotti" // altrimenti esegue l'AbsolutePage
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
end if
objRS.AbsolutePage = page