Il n'y a pas de méthode normale de boucle TD dans Loop Tr, de sorte que le nombre d'ensembles d'enregistrements sur la dernière page n'est pas calculé.
Cependant, lorsque le jeu d'enregistrements est insuffisant, il peut également remplir automatiquement les lignes et les colonnes vides. S'il y a une carence, veuillez le signaler, merci.
Comment utiliser est très simple:
La copie de code est la suivante:
<%
showdata ("nom de requête")
CallPagehead (nombre de lignes, colonnes)
'-------------------------------------------------------------------------------
«Vous pouvez écrire la réponse suivante.Write () dans la fonction pour voir vos passe-temps personnels.
Response.Write (formatcrable (largeur du tableau, hauteur du tableau))
Réponse.write (pagefoot ())
CallClosedata ()
%>
La fonction est la suivante:
La copie de code est la suivante:
<%
'-------------------------------------------------------------------------------
'Copyright2005ByJorkin.AllRightSreserved
'-------------------------------------------------------------------------------
Public
Publicpageno, cols, rangées, maxpageno, maxredcount, maxpageSize
'-------------------------------------------------------------------------------
PublicFunctionShowData (SQLStrings)
Setrs = server.createObject ("adodb.recordSet")
Rs.OpenSQlStrings, Oconn, 1,3
Finition de fin
PublicFunctionClosedata ()
Rs.Close
Setrs = rien
Finition de fin
'Initialiser la pagination
'Maxrows = nombre maximum de lignes
'Maxcols = nombre maximum de colonnes
'-------------------------------------------------------------------------------
PublicFunctionPagehead (Maxrows, Maxcols)
'-------------------------------------------------------------------------------
Lignes = maxrows
Cols = maxcols
maxPageSize = 1
maxredcount = 0
maxpageno = 0
pageno = 0
'-------------------------------------------------------------------------------
MaxRedCount = Rs.recordCount
IfMaxRedCount> 0ment
maxPageSize = lignes * cols
maxpageno = cint ((maxRedCount + maxPageSize-1) / maxPageSize)
Rs.PageSize = MaxPageSize
pageno = request ("pageno")
IFisempty (pageno) ornotisnumeric (pageno) orcint (pageno) <1orcint (pageno)> Rs.pageCountThen
Pageno = 1
Endire
Rs.Absolutepage = Pageno
Endire
Onerrorresumenext
Finition de fin
'La fin de la fonction de la page
'Aucun paramètre
'-------------------------------------------------------------------------------
PublicFunctionPageFoot ()