Crear una clase de paginación universal ASP

Desde el comienzo del aprendizaje hasta el uso de ASP hasta ahora, he escrito muchos programas. Lo más problemático es escribir paginación de datos. Cada vez, se debe a la diferencia de varios nombres variables o varios parámetros. Por lo tanto, es necesario escribir un código de paginación largo y complicado cada vez. El código largo empeora la legibilidad del programa y es fácil viajar en negocios. No puedo encontrar ningún error después de la depuración durante mucho tiempo, por lo que lentamente comencé a usar algunas funciones de paginación o clases de paginación proporcionadas en Internet. De hecho, es mucho sin problemas, pero el método habitual de funciones y clases es encapsular la parte de visualización de datos. Cada vez, para lograr el efecto deseado, la función o clase en sí misma debe cambiarse, por lo que no es muy conveniente de usar. Las páginas escritas por usted mismo ya son lo suficientemente complicadas, y mucho menos las de otras personas.

Así que escribí una clase paginada solo mientras tuve tiempo ayer, y me sentí bien conmigo mismo (no me aplastaras con un huevo). Compartiré mi experiencia contigo aquí (no puedo hablar de experiencia, pensemos en ello). Ya no quiero hablar sobre el principio de paginación aquí. De todos modos, todos lo entienden, y no sabré si quiero hablar en profundidad. jeje.

1. El objetivo de crear una clase de paginación

Antes de escribir, pensé en qué tipo de clase quería escribir. Cuando recordé el pasado al escribir Paging, lo más molesto era el complicado código de paginación que tenía que escribir cada vez. La mayor preocupación era que cada vez era la diferencia entre solo unos pocos nombres variables. Entonces, lo primero que debe lograr es encapsular esto, el segundo es encapsular la barra de navegación de la paginación. El tercero es encapsular la parte de visualización de datos al no ser utilizada. Esto no es conveniente para el programa, y ​​para los usuarios que tienen diferentes efectos de visualización cada vez, es más problemático que escribir por sí mismos. Entonces, mi objetivo es hacer una encapsulación simple del conjunto de registros.

2. Proceso de creación

Entonces, la primera propiedad que escribí es devolver una grabación procesada

Setxd_rs = server.createObject ("ADODB.Recordset")

Xd_rs.pagesize = págsageize

XD_RS.OPENXD_SQL, XD_CONN, 1,1

Ifnot (xd_rs.eofandxd_rs.bof) entonces

Ifint_curpage> xd_rs.pagecountthen

int_curpage = xd_rs.pageCount

Endif

XD_RS.ABSOLUTEPAGE = INT_CURPAGE

Endif