Módulo de paginación completo

#1 (**permalink**) 18/05/2002, 14:04

Ultimamente maese vgaray ha posteado unos tips muy interesantes sobre paginación, así que yo quiero también desde aquí aportar el siguiente módulo que he desarrollado para, con unas mínimas llamadas a unas funciones, paginar un recordset rápidamente pero de manera que se pueda personalizar (hasta cierto punto, aunque creo que bastante) la salida de datos, y sobre todo, el navegador del recordset: botones, links, nº de páginas, nº de registros, etc...

La función principal permite, mediante el paso de un parámetro, escoger el método de paginación, getrows o el más común.

Para el que le interese he puesto un ejemplo y un zip con el ejemplo e instrucciones en:
www.alen-sl.es/xarod/modulopaginar

Y para cualquier duda podeis preguntarme aquí.

El ejemplo de la página usa el siguiente código:

Código:

&lt;% Option Explicit %&gt;
&lt;!--#include file = &quot;modulo_paginar.asp&quot;--&gt;
&lt;%
Dim oMiConn
set oMiConn = Server.CreateObject(&quot;ADODB.Connection&quot;) 
oMiConn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot;&amp;Server.MapPath(&quot;paginar.mdb&quot;)&amp;&quot;;&quot;

Dim strMiConsulta
strMiConsulta = &quot;SELECT * FROM Paginar&quot;

'LLAMADA CON METODO GETROWS
Dim arrMiGetRows
Call PaginarConstructor (&quot;gr&quot; , oMiConn , arrMiGetRows , strMiConsulta , 10 , 5, &quot;&quot;)

Response.Write &quot;&lt;p align=center&gt;&quot;

Response.Write PaginarMsg(&quot;Nº de registros en la base de datos:&quot; , &quot;No se ha encontrado ningún registro en la base de datos.&quot;)&amp;&quot;&lt;br&gt;&quot;
Response.Write PaginarNavegador_v1(&quot;reg&quot; , &quot;#990000&quot; , &quot;#999999&quot; , &quot;&quot;) &amp; &quot;&lt;br&gt;&quot;

Response.Write &quot;&lt;/p&gt;&quot;
Response.Write &quot;&lt;hr&gt;&quot;
Response.Write &quot;&lt;p&gt;&lt;ul&gt;&lt;ul&gt;&lt;ul&gt;&quot;

'PAUTA A SEGUIR CON GETROWS ---------------
Dim I
For I = (PaginaActual-1)*TamPagina To (PaginaActual*(TamPagina))-1
	If I &lt;= (RegistrosTotales-1) Then 
		Response.write (&quot;ID: &lt;b&gt;&quot; &amp; arrMiGetRows(0,I) &amp; &quot;&lt;/b&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;valor: &lt;b&gt;&quot; &amp; arrMiGetRows(1,I) &amp; &quot;&lt;/b&gt;&lt;br&gt;&quot;)
	End If
Next
%&gt;

Salu2

#2 (**permalink**) 18/05/2002, 14:49

Me olvidaba, despues del next falta la siguiente linea, que es la funcion que crea el navegador de botones (o links de texto):

Response.Write PaginarNavegador_v2(4 , "pag")

Aunque mejor lo veis en la propia pagina
Salu2

Mecenias · #3 (**permalink**) 20/05/2002, 05:23

Dios SANTO!!!, me leiste el pensamiento, cuando tuviera un rato tenia pensado hacer algo asi ya que la paginacion que utilizaba hasta ahora no era muy estandar que digamos, he visto la tuya y a primera vista me parece buena,cuando tenga un poco mas de tiempo la reviso bien y te doy la opinion, a primera vista es muy buena

P.D:Tengo tu permiso para utiliarla?

Un saludo

Mecenias · #4 (**permalink**) 20/05/2002, 05:23

Dios SANTO!!!, me leiste el pensamiento, cuando tuviera un rato tenia pensado hacer algo asi ya que la paginacion que utilizaba hasta ahora no era muy estandar que digamos, he visto la tuya y a primera vista me parece buena,cuando tenga un poco mas de tiempo la reviso bien y te doy la opinion, a primera vista es muy buena

P.D:Tengo tu permiso para utiliarla?

Un saludo

#5 (**permalink**) 20/05/2002, 06:20

Por supuesto, si la he puesto aqui es para que cualquiera pueda utilizarla, soy partidario del código libre.

En breve subiré una modificación para poder utilizar recordsets sin base de datos (como po ejemplo meter en un recordset los archivos de una carpeta).

Saludos