Paragraf berikut adalah kode paging dasar:
＜% SQL = "SELECT ………………………… menghilangkan pernyataan SQL set RS = server.createObject (" adodb.recordset ") rs.open sql, conn, 1, 1 jika tidak rs.eOf lalu halaman = 30 'Tentukan jumlah catatan yang ditampilkan per halaman rs.pageSize = halaman HOUSE PAGS = HOUTE PAGE. Halaman dapat dibagi dalam total halaman = request.QueryString ("halaman") 'Jumlah halaman yang melewati browser' jika pernyataan termasuk dalam proses pemecahan masalah dasar jika tidak ada (halaman) atau cint (halaman) ＜ 1 maka halaman lain -lain. output di sini …………… ＜ % halaman = halaman - 1 rs.movenext loope response.write ("Tidak ada konten dalam database!") Akhiri jika rs.close set rs = tidak ada % %>Sistem telah menyuruh data. Mari kita lihat definisi fungsi pagination yang dibahas saat ini.
＜% sub pageUrl (purl) redup eurl txts = request.serverVariable ("url") txts = kiri (txts, instrrev (txts, "/", len (txts))-1) eurl = "http: //"; & Request.serverVariable ("server_name") & txts untuk i = 1 ke allpages txt = "" txt = "＜ kuat>" txt = txt & "＜ a href =" & eurl & purl & "page =" & i & ">" if i = cint (halaman) lalu tx = txt & "＜ font =" ＜ font = "jika i = cint (halaman) lalu tx = txt &" ＜ font = "＜ font =" jika i = cint (halaman) lalu tx = txt & "＜ font =" ＜ font = "＜" Cint (halaman) lalu txt = txt & "＜/font>" txt = txt & "＜/a> ∥ ＜/strong>" response.write (txt) Sub %ujung berikutnya>Simpan kode fungsi pagination di atas menyalin ke file ASP. Gunakan termasuk untuk memperkenalkannya di halaman yang perlu Anda gunakan untuk memanggilnya kapan pun panggilan ("/Nama file yang Anda panggil?") OK. Misalnya, jika Anda ingin menyebutnya di halaman berita saya, itu adalah <%call ("/news.asp?")%>
Apa yang baru saja kami lihat terbatas, yang berarti bahwa dalam potongan kode pertama, kecuali untuk konten kueri SQL dan konten output, variabel lain yang menyatakan set rekaman tidak dapat diubah, jika tidak mereka tidak akan dapat berjalan. Bahkan, program ini tidak relevan. Yang paling penting adalah bahwa fungsi pagination ini dapat dipanggil dalam daun ASP apa pun.