Kami sudah membicarakan program pagination kepada Anda sebelumnya. Di sini kami memberi Anda satu, dan menganalisisnya, dan Anda mungkin memiliki keuntungan baru.
Salinan kode adalah sebagai berikut:
<%
'Program berikut adalah bagian dari Kode Sistem Artikel Teknologi Pemrograman di situs web saya, fokus pada menyoroti pagination, sehingga kode tidak berguna lainnya dibersihkan, Anda dapat memodifikasinya dan menerapkannya
OnerRorRorReMenext 'mencegah pengguna memodifikasi URL sesuka untuk menyebabkan kesalahan
IfRequest.QueryString ("halaman") = "" thenpage = 1: else: page = cint (request.queryString ("page")) '' Jumlah halaman ke halaman URL =?
setLink1 = server.CreateObject ("adodb.connection") 'Database koneksi
link1.open "provider = microsoft.jet.oledb.4.0; datasource =" & server.mappath ("database 1.mdb")
setRs = server.CreateObject ("adodb.recordset")
Rs.Open "Pilih*dari Tabel 1", Link1,1,1 'Kalimat -kalimat ini menentukan kursor dari set catatan, jumlah catatan yang disimpan per halaman dan pengaturan halaman saat ini, yang sangat penting.
rs.pagesize = 13
rs.Absolutepage = halaman
iferr.number <> 0then 'mencegah pengguna dari URL dan database yang secara jahat tanpa catatan kesalahan catatan
"Kesalahan pengecualian terjadi" respons.write
respons.end
endif
%>
<Basetarget = '_ blank'> <!-Buat konten muncul di jendela baru->
<TABLEBORDER = 1>
<%
fori = 0tors.pagesize-1 'Menampilkan konten data tertentu. i+(halaman*13-13) +1 Solusi ini menunjukkan nomor spesifik setelah paging.
ifrs.eofthenexitfor
response.write "<tr> <td>" & i+(halaman*13-13) +1 & ": <ahref = '" & rs ("connect") & "'> & rs (" penulis ") &" </a> </td> </tr> "
rs.movenext
Berikutnya
%>
<tr> <tdalign = right>
<Basetarget = '_ Top'> <!-Buat koneksi paging tidak muncul di jendela baru. Berikut ini adalah program lengkap dari program paging sempurna yang ingin saya fokuskan. Anda dapat memodifikasinya sesuai kebutuhan->
<%
pagelen = split (request.serverVariables ("query_string"), "&") 'Dapatkan URL parameter setelah URL? nomor
ifubound (pagelen) <1then'if URL adalah tipe xxx.asp? page = 1 atau xxx.asp, gunakan metode pagination standar
ifpage> 1thenresponse.write "<ahref = 'A.asp? page = 1'> home </a> <ahref = 'A.asp? page =" & page-1 & "'> halaman sebelumnya </a>": else: response.write "beranda"
ifpage <rs.pagecountthenresponse.write "<ahref = 'A.asp? page =" & page+1 & "'> halaman berikutnya </a> <ahref = 'A.asp? page =" & rs.pagecount & "' Halaman terakhir </a>": else: response.write "Halaman berikutnya"
fori = 1Tors.pagecount
ifi = pagethenresponse.writei & "": else: response.write "<ahref = 'A.asp? page =" & i & "'>" & i & "</a>"