Super ASP Big Page_my Contenido de clase que elijo del blog de Applebbs
Palabra clave Super ASP ASP Page_my Contenido de clase que tomo la decisión
Fuente
<%
'===========================================================================================================================================================
'ShowmorePageasp versión
'Versionhuangjm1.00
'Codebymaomao
'Creatate2004-09-28
'QQ: 5144707
'http://blog.csdn.net/maomaoysq
'WriteFormylover: Huangjm' Este programa se puede usar y modificar de forma gratuita, pero mantenga la información anterior
'
'función
'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: http: //www.***.com/***.asp? Aa = 1 & page = 9 & bb = 2
'
'
'Parámetros:
'Papgesize define el número de registros para cada página de la página de paginación
'GetCurpagenum Devuelve el número de conjuntos de registros de la página actual. Esta propiedad se lee solo
'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
'InterfaceOfClass
'Showpage muestra la barra de navegación de la página, el único método público
'
'#######################################
'Crea un objeto
'Sethjmpage = NewShowmorePage
'Obtenga la conexión de la base de datos
'hjmpage.getConn = Conn
Declaración de SQL
'hjmpage.getsql = "select*fromshop_bookswherenewsbook = 1erDerByBookIdDesc"
'Establezca los datos de registro en cada página en 20, y la pantalla predeterminada es 10.
'hjmpage.pagesize = 20
'Mostrar información de paginación, se puede llamar a cualquier ubicación, se puede llamar varias veces
'hjmpage.showpage ()
'setrs = hjmpage.getrs ()' Devuelve registros
'Mostrar datos comienza
'Puede personalizar el método de visualización aquí
'fori = 1tohjmpage.getCurpagenum' Número de registros en la página actual
'Response.WriteLeft (TRIM (RS ("BookName")), 13) y "..."
'Rs.Movenext
'próximo
'Show Data termina
'sethjmpage = nada
'#######################################
'===========================================================================================================================================================
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