<%
'===========================================================================================================================================================
'Versión de XdownPageasp
'Versión 1.00
'CodebyzyKJ2000
'Correo electrónico: [email protected]
'BBS: http: //bbs.513soft.net
'Este programa se puede usar y modificar de forma gratuita. Espero que mi programa pueda traer conveniencia a su trabajo.
'Pero por favor mantenga lo anterior, por favor, rechazo
'
'Características del programa
'Este programa encapsula principalmente la parte de paginación de datos, y el usuario personaliza la parte de pantalla de datos.
'Admite múltiples parámetros de URL
'
'Instrucciones para su uso
'Descripción del parámetro del programa
'Papgesize define el número de registros para cada página de la página de paginación
'GetRS Devuelve un conjunto de registros paginado Esta propiedad se lee solo
'GetConn obtiene la conexión de la base de datos
'GetSQL obtiene la declaración de consulta
'Descripción del método del programa
'Showpage muestra la barra de navegación de la página, el único método público
'
'===========================================================================================================================================================
Constbtn_first = "<fontface =" "webdings" "> 9 </font>" 'Defina el estilo de visualización del botón de la primera página
Constbtn_prev = "<fontface =" "webdings" "> 3 </font>" 'Defina el estilo de visualización del botón en la página anterior
Constbtn_next = "<fontface =" "webdings" "> 4 </font>" 'Defina el estilo de visualización del botón de página siguiente
Constbtn_last = "<fontface =" "webdings" ">: </font>" 'Defina el estilo de visualización del botón de la última página
Constxd_align = "Center" 'define la alineación de la información de la paginación
Constxd_width = "100%" 'define el tamaño del cuadro de información de la paginación
Clasexdownpage
Privatexd_pageCount, xd_conn, xd_rs, xd_sql, xd_pagesize, str_errors, int_curpage, str_url, int_totalpage, int_totalrecord, xd_surl
'===================================================================================================================================================================================================================================.
'Propiedad de páginas
'Establezca el tamaño de la página para cada página
'===================================================================================================================================================================================================================================.
PublicPropertyletPageSize (int_pagesize)
Ifisnumeric (int_pagesize) entonces
Xd_pagesize = clng (int_pagesize)
Demás
str_error = str_error & "El parámetro de páginas es incorrecto"
Ducha ()
Endif
Endpropertía
PublicPropertyGetPageSize
Ifxd_pagesize = "" o (no (isNumeric (xd_pagesize))) entonces
PageSize = 10
Demás
PageSize = xd_pagesize
Endif
Endpropertía
'===================================================================================================================================================================================================================================.
'Propiedad GetRS
'Volver al conjunto de registros paginado
'===================================================================================================================================================================================================================================.
PublicPropertyGetGetRS ()
Setxd_rs = server.createObject ("ADODB.Recordset")