No existe un método normal para el bucle TD dentro del bucle TR, por lo que no se calcula el número de conjuntos de registros en la última página.
Sin embargo, cuando el conjunto de registros es insuficiente, también puede completar automáticamente filas y columnas vacías. Si hay alguna deficiencia, por favor, indíquelo, gracias.
Cómo usar es muy simple:
La copia del código es la siguiente:
<%
showData ("Nombre de la consulta")
CallPagehead (número de filas, columnas)
'-------------------------------------------------------------------------------
'Puede escribir la siguiente respuesta.write () en la función para ver sus pasatiempos personales.
Response.Write (FormatCrtable (ancho de la tabla, altura de la tabla))
Response.Write (PageFoot ())
CallClosedata ()
%>
La función es la siguiente:
La copia del código es la siguiente:
<%
'-------------------------------------------------------------------------------
'Copyright2005byjorkin.
'-------------------------------------------------------------------------------
PublicRs
PublicPageno, Cols, filas, Maxpageno, MaxRedCount, MaxPagesize
'-------------------------------------------------------------------------------
PublicFunctionShowData (SQLStrings)
Setrs = server.createObject ("ADODB.Recordset")
Rs.Opensqlstrings, Oconn, 1,3
Función final
PublicFunctionClosedata ()
rs.
SETRS = nada
Función final
'Inicializar la paginación
'Maxrows = número máximo de filas
'Maxcols = número máximo de columnas
'-------------------------------------------------------------------------------
PublicFunctionPagehead (Maxrows, Maxcols)
'-------------------------------------------------------------------------------
Filas = maxrows
Cols = maxcols
maxpagesize = 1
maxredCount = 0
Maxpageno = 0
pageno = 0
'-------------------------------------------------------------------------------
maxredCount = rs.RecordCount
IfmaxredCount> 0then
maxpagesize = filas*cols
maxpageno = cint ((maxRedCount+maxpagesize-1)/maxpagesize)
rs.pagesize = maxPagesize
pageno = request ("Pageno")
Ifisempty (Pageno) Ornotisnumérico (Pageno) Orcint (Pageno) <1orcint (Pageno)> Rs.Pagecountthen
Pageno = 1
Endif
Rs.AbsolutePage = Pageno
Endif
OnerrorResumEnext
Función final
'El final de la función de la página
'No hay parámetros
'-------------------------------------------------------------------------------
PublicFunctionPageFoot ()