Es gibt keine normale Methode zum Schleifen von TD in Loop TR, sodass die Anzahl der Datensatzsätze auf der letzten Seite nicht berechnet wird.
Wenn jedoch der Datensatz nicht ausreicht, kann er auch automatisch leere Zeilen und Spalten ausfüllen. Wenn es einen Mangel gibt, weisen Sie bitte darauf hin, danke.
Die Verwendung ist sehr einfach:
Die Codekopie lautet wie folgt:
<%
showData ("Abfragename")
CallPagehead (Anzahl der Zeilen, Spalten)
'---------------------------------------------------------------------------
'Sie können die folgende Antwort schreiben. Write () in die Funktion, um Ihre persönlichen Hobbys zu sehen.
Antwort.Write (formatcrtable (Tabellenbreite, Tabellenhöhe))
Response.write (pagefoot ())
CALLCLEOSEDATA () CALLE
%>
Die Funktion ist wie folgt:
Die Codekopie lautet wie folgt:
<%
'---------------------------------------------------------------------------
'Copyright2005ByJorkin.AllrightSreserved
'---------------------------------------------------------------------------
Öffentlich
PublicPageno, Cols, Reihen, Maxpageno, MaxredCount, MaxpageSize
'---------------------------------------------------------------------------
PublicFunctionShowdata (SQLStrings)
Setrs = server.createObject ("adodb.recordset")
Rs.opensqlstrings, Oconn, 1,3
Endfunktion
PublicFunctionClosedata ()
rs.close
Setrs = nichts
Endfunktion
'Initialisieren Sie die Pagination
'Maxrows = maximale Anzahl von Zeilen
'Maxcols = maximale Anzahl von Spalten
'---------------------------------------------------------------------------
PublicFunctionPagehead (Maxrows, Maxcols)
'---------------------------------------------------------------------------
Zeilen = Maxrows
Cols = maxcols
maxpageSize = 1
MaxRedCount = 0
maxpageno = 0
pageno = 0
'---------------------------------------------------------------------------
MaxRedCount = Rs.RecordCount
IfmaxRedCount> 0Then
maxpageSize = Zeilen*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
Endif
Rs.absolutepage = Pageno
Endif
OnErrorresumeNext
Endfunktion
'Das Ende der Seitenfunktion
'Keine Parameter
'---------------------------------------------------------------------------
PublicFunctionPagefoot ()