Buongiorno a tutti!
Tempo fa’ avevo trovato su questo forum la seguente impaginazione e ora vi chiedo di darmi una mano per aggiungere il numero delle pagine.
Un cosa come l’impaginazione di Roby.
Vi ringrazio veramente per l'aiuto!codice:<% server.ScriptTimeout = 300 '5 minuti 'Recupero le variabili per paginare page = Cint(request.querystring("page")) if page = 0 then page = 1 'Assegno il nome del database database = "xxxxxx" call dbConnect(objConn, database) response.write ("<html>") response.write ("<title>Paginazione</title>") response.write ("<body>") 'Totale dei record strSQL = "SELECT COUNT(*) FROM tb1" Set objRS = objConn.Execute(strSQL) tot_record = objRS(0) set objRS = nothing 'Record per pagina pageSize = 2 'Primo record di ogni pagina inizio = (page - 1) * pageSize 'Pagine complessive per effetto della paginazione pagine_totali = tot_record / pageSize 'Arrotondamento in caso di resto della divisione precedente if pagine_totali - CInt(pagine_totali) > 0 then pagine_totali = CInt(pagine_totali + 1) else pagine_totali = CInt(pagine_totali) end If 'Visualizzazione dei record paginati strSQL = "SELECT 1, 2, 3 FROM tb1 LIMIT "& inizio &", "& pageSize Set objRS = server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn if not objRS.EOF then Response.Write ("<table style=""font-family:verdana;font:12px;"">") Response.Write ("<tr>") Response.Write ("<td style=""width:150px;"">Nome</td>") Response.Write ("<td style=""width:150px;"">Cognome</td>") Response.Write ("</tr>") do while not objRS.EOF Response.Write ("<tr>") Response.Write ("<td>"& objRS("1") &"</td>") Response.Write ("<td>"& objRS("2") &"</td>") Response.Write ("<td>"& objRS("3") &"></td>") Response.Write ("</tr>") objRS.movenext Loop Response.Write ("<tr style=""height:50px;"">") 'Pagine precedenti if page > 1 then Response.write("<td>Pagina precedente</td>") else Response.Write ("<td></td>") end if 'Pagine successive if tot_record > pageSize and pagine_totali > page then Response.write("<td>Pagina successiva</td>") else Response.Write ("<td></td>") end if Response.Write ("</tr>") Response.Write ("</table>") else Response.write ("Non ci sono record.") end if objRS.close set objRS = nothing response.write ("</body>") response.write ("</html>") call dbDisconnect(objConn, database) 'SUB 'Apertura connessione database sub dbConnect(objConn, database) connectionstring = "DRIVER={MySQL ODBC 3.51 Driver};DATABASE="& database &";SERVER=localhost;UID=xxxxxx;PASSWORD=xxxxxxxxx" set objConn = server.createObject("ADODB.Connection") objConn.Open connectionstring end sub 'Chiusura connessione database sub dbDisconnect(objConn, database) objConn.close set objConn = nothing end sub %>
Rispondi quotando
