Não existe um método normal de loop de TD dentro do loop TR; portanto, o número de conjuntos de registros na última página não é calculado.
No entanto, quando o conjunto de registros é insuficiente, ele também pode preencher automaticamente linhas e colunas vazias. Se houver alguma deficiência, aponte isso, obrigado.
Como usar é muito simples:
A cópia do código é a seguinte:
<%
ShowData ("Nome da consulta")
Callpagehead (número de linhas, colunas)
'-------------------------------------------------------------------------------
'Você pode escrever a seguinte resposta.write () na função para ver seus hobbies pessoais.
Response.write (formatcrtable (largura da tabela, altura da tabela))
Response.Write (Pagefoot ())
CallClosedata ()
%>
A função é a seguinte:
A cópia do código é a seguinte:
<%
'-------------------------------------------------------------------------------
'Copyright2005ByJorkin.AllrightSreserved
'-------------------------------------------------------------------------------
Publicrs
Publicpageno, Cols, linhas, Maxpageno, MaxredCount, MaxPagesize
'-------------------------------------------------------------------------------
PublicFunctionShowdata (SQLSTRINGS)
Setrs = server.createObject ("adodb.recordset")
Rs.OpensqlStrings, OCONN, 1,3
Função final
PublicFunctionClosedata ()
rs.close
Setrs = nada
Função final
'Inicialize a paginação
'Maxrows = número máximo de linhas
'Maxcols = número máximo de colunas
'-------------------------------------------------------------------------------
PublicFunctionPageHead (Maxrows, Maxcols)
'-------------------------------------------------------------------------------
Linhas = maxrows
Cols = maxcols
maxPagesize = 1
maxredCount = 0
maxpageno = 0
pageno = 0
'-------------------------------------------------------------------------------
maxredCount = rs.recordCount
IfmaxredCount> 0then
maxPagesize = linhas*cols
maxpageno = cint ((maxredcount+maxpagesize-1)/maxpagesize)
rs.pagesize = maxPagesize
pageno = solicitação ("Pageno")
IfisEmpty (Pageno) ornotisnumeric (Pageno) Orcint (Pageno) <1orcint (Pageno)> rs.pagecountThen
Pageno = 1
Endif
rs.absolutePage = pageno
Endif
OnErrorReSumenext
Função final
'O fim da função da página
'Sem parâmetros
'-------------------------------------------------------------------------------
PublicFunctionPageFoot ()