Contoh kode paging
<%'' Nama file dari program ini adalah: halaman.asp%>
<%'' berisi file tabel konstan ADO adovbs.inc, yang dapat disalin dari direktori "/Programfiles/CommonFiles/System/ADO">
<!-#includeFile = "adovbs.inc"->
<%''* Membangun koneksi basis data, berikut adalah database Oracle8.05
SetConn = server.CreateObject ("adodb.connection")
conn.open "penyedia = msdaora.1; DataSource = yoursrcname; userid = yourUserId; kata sandi = yourpassword;"
SetRs = server.CreateObject ("adodb.recordset") '' buat objek recordset
rs.cursorlocation = aduseclient '' ATTRIBUT SET Rekam Set Pointer
'' * Tetapkan jumlah total catatan dalam satu halaman, dan dapat disesuaikan sesuai kebutuhan
rs.pagesize = 10
'' * Tetapkan pernyataan kueri
Strsql = "selectid, nama, alamat, telepon dari alamat buku pesanan
rs.openstrsql, conn, adoptatic, adlockreadonly, adcmdtext
%>
<Html>
<head>
<title> contoh paging </iteme>
<ScriptLanguage = JavaScript>
// respons saat mengklik "[halaman pertama]":
functionPageFirst ()
{
document.myform.currentpage.selectectedIndex = 0;
document.myform.currentpage.onchange ();
}
// respons saat mengklik "[halaman sebelumnya]":
functionPagePrior ()
{
document.myform.currentpage.selectectedIndex--;
document.myform.currentpage.onchange ();
}
// respons saat mengklik "[halaman berikutnya]":
functionPageNext ()
{
document.myform.currentpage.selectectedIndex ++;
document.myform.currentpage.onchange ();
}
// respons saat mengklik "[halaman terakhir]":
functionPageLast ()
{
document.myform.currentpage.selectectedIndex = document.myform.currentpage.length-1;
document.myform.currentpage.onchange ();
}
// respons saat memilih "halaman?":
functionPageCurrent ()
{//Pages.asp adalah nama file dari program ini
document.myform.action = 'pages.asp? page ='+(document.myform.currentpage.selectedIndex+1)
document.myform.submit ();
}
</script>
</head>
<Bodybgcolor = "#ffffcc" tautan = "#008000" vlink = "#008000" tautan = "#ff0000" ">
<%Ifrs.eofthen
Response.write ("<fontsize = 2color =#000080> [tidak ada catatan dalam database!] </font>")
KALAU TIDAK
'' Tentukan nomor halaman saat ini
IfRequest ("currentpage") = "" Lalu
rs.Absolutepage = 1
Kalau tidak
rs.absolutepage = clng (permintaan ("currentpage"))
Endif
'' Buat bentuk myform, metode ini
Response.write ("<formmethod = getName = myForm>")
Response.write ("<palign = center> <fontsize = 2color =#008000>")
'' Setel halaman Turn Hyperlink
ifrs.pagecount = 1then
Response.write ("[halaman pertama] [halaman sebelumnya] [halaman berikutnya] [halaman terakhir]")
kalau tidak
IFRS.ABSOLUTEPAGE = 1then
Response.write ("[halaman pertama] [halaman sebelumnya]")