Tidak ada metode normal untuk looping TD dalam loop tr, sehingga jumlah set catatan pada halaman terakhir tidak dihitung.
Namun, ketika set rekaman tidak cukup, ia juga dapat secara otomatis mengisi baris dan kolom kosong. Jika ada kekurangan, tolong tunjukkan, terima kasih.
Cara menggunakannya sangat sederhana:
Salinan kode adalah sebagai berikut:
<%
Showdata ("Nama kueri")
CallpageHead (jumlah baris, kolom)
'-------------------------------------------------------------------------------
'Anda dapat menulis respons berikut.write () ke dalam fungsi untuk melihat hobi pribadi Anda.
Response.write (formatcrtable (lebar tabel, tinggi tabel))
Response.write (pagefoot ())
Callclosedata ()
%>
Fungsinya adalah sebagai berikut:
Salinan kode adalah sebagai berikut:
<%
'-------------------------------------------------------------------------------
'Hak cipta2005byjorkin.allrightsresserved
'-------------------------------------------------------------------------------
Publicrs
Publicpageno, cols, baris, maxpageno, maxredcount, maxpagesize
'-------------------------------------------------------------------------------
PublicFunctionshowData (SQLSTRING)
SetRs = server.CreateObject ("adodb.recordset")
rs.opensqlstrings, oconn, 1,3
Fungsi endfungsi
Public functionclosedata ()
rs.close
SetRs = tidak ada
Fungsi endfungsi
'Inisialisasi pagination
'Maxrows = jumlah baris maksimum
'Maxcols = jumlah maksimum kolom
'-------------------------------------------------------------------------------
PublicFunctionPagehead (Maxrows, Maxcols)
'-------------------------------------------------------------------------------
Baris = Maxrows
Cols = maxcols
MaxPagesize = 1
MaxRedCount = 0
maxpageno = 0
Pageno = 0
'-------------------------------------------------------------------------------
MaxRedCount = Rs.RecordCount
Ifmaxredcount> 0then
maxpagesize = baris*cols
maxpageno = cint ((maxredcount+maxpagesize-1)/maxpagesize)
rs.pagesize = maxpagesize
pageno = permintaan ("pageno")
Ifisempty (pageno) ornotisnumerik (pageno) orcint (pageno) <1orcint (pageno)> rs.pagecountthen
Pageno = 1
Endif
rs.Absolutepage = pageno
Endif
OnerrorresumeNext
Fungsi endfungsi
'Akhir fungsi halaman
'Tidak ada parameter
'-------------------------------------------------------------------------------
PublicFunctionPagefoot ()