Mi sono cimentato più volte nella crazione di script per la paginazione dei risultati delle query da Sql, ma ammetto di non aver mai trovato soluzioni che mi piacessero completamente (pur funzionando). Erano sempre un po' troppo arzigogolate.
Oggi mi sono messo alla ricerca di qualche spunto per la creazione di questa benedetta paginazione, con l'obiettivo di trovare un codice semplice, chiaro e facile da leggere. Anche in prospettiva di successive modifiche.
Siccome ne ho trovato uno che mi pare molto semplice e chiaro e avendo notato che anche qui, su questo forum, la soluzione al problema paginazione è molto richiesta, ho pensato di postare qui questo link, che forse potrà essere di aiuto anche ad altri per implementare un sistema di paginazione che ritengo pulito, chiaro da capire, e di facile adattamento alle varie esigenze.
questo è il link:
http://www.azpoint.net/news/Script_ASP_3348.asp
e qual'ora dovesse sparire (chissà magari fra qualche tempo non è più attivo), ecco il testo dello script in un esempio di pubblicazione:
<% 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
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
%>
Spero che possa essere utile ad altri, come lo è stato per me.
Rispondi quotando
