Artikel ini telah sepenuhnya diuji dan mendukung ASP+ACCESS dan ASP+SQL. Harap modifikasi bagian yang relevan.
Perhatikan bahwa saya menolak untuk menjawab pertanyaan dasar dengan tergesa-gesa. Kode ini sudah sangat sederhana. Jika Anda masih belum memahaminya, Anda dapat merujuk ke kolom lain di situs ini.
<!--#include file="conn.asp"-->
<% 'Di atas berisi file koneksi database
'-------------------------------- Basis data awal kueri
set rs=server.CreateObject("adodb.recordset")
rs.open "pilih * dari buku yang dipesan berdasarkan id desc", samb.,1,1
jika err.number<>0 maka
respon.tulis "Tidak ada data di database"
berakhir jika
'-------------------------------Paging dimulai
jika rs.recordcount=0 maka
respose.tulis "Tidak ada data"
kalau tidak
rs.PageSize =10 'Jumlah record per halaman
iCount=rs.RecordCount 'Jumlah total catatan
iPageSize=rs.PageSize
maxpage=rs.PageCount
halaman=permintaan("halaman")
jika Bukan IsNumeric(halaman) atau halaman="" maka
halaman=1
kalau tidak
halaman=cint(halaman)
berakhir jika
jika halaman<1 maka
halaman=1
elseif halaman>maxpage lalu
halaman=halaman maksimal
berakhir jika
rs.AbsolutePage=Halaman
jika halaman=halaman maksimal maka
x=iCount-(maxhalaman-1)*iPageSize
kalau tidak
x=iUkuran Halaman
berakhir jika
Untuk i=1 Ke x
Artikel yang mungkin menarik bagi Anda:
Halaman saat ini 1/2