ページングコードの例
<％ ''このプログラムのファイル名は次のとおりです。pages.asp％>
<％ ''には、ADO定数テーブルファイルadovbs.incが含まれています。
<！ - ＃includefile = "adovbs.inc" - >
<％ ''*データベース接続を確立します。ここにOracle8.05データベースがあります
setConn = server.createObject（ "adodb.connection"）
conn.open "provider = msdaora.1; dataSource = yoursrcname; userid = youruserid; password = yourpassword;"
setrs = server.createObject（ "adodb.RecordSet"） '' RecordSetオブジェクトを作成します
rs.cursorlocation = aduseclient ''セットレコードセットポインター属性
'' pageページ内のレコードの総数を設定し、必要に応じて調整できます
rs.Pagesize = 10
''クエリステートメントを設定します
strsql = "selectid、name、address、from from dordersbook orderbyid" "
rs.openstrsql、conn、adopenstatic、adlockreadonly、adcmdtext
％>
<html>
<head>
<title>ページングの例</title>
<ScriptLanguage = JavaScript>
//「[最初のページ]」をクリックするときの応答：
functionPageFirst（）
{
document.myform.currentpage.selectedIndex = 0;
document.myform.currentpage.onchange（）;
}
//「[前のページ]」をクリックするときの応答：
functionpageprior（）
{
document.myform.currentPage.SelectedIndex--;
document.myform.currentpage.onchange（）;
}
//「[次のページ]」をクリックするときの応答：
functionpagenext（）
{
document.myform.currentPage.SelectedIndex ++;
document.myform.currentpage.onchange（）;
}
//「[最後のページ]」をクリックするときの応答：
functionpagelast（）
{
document.myform.currentpage.selectedIndex = document.myform.currentpage.length-1;
document.myform.currentpage.onchange（）;
}
//「ページ？」を選択するときの応答：
functionPageCurrent（）
{//pages.aspはこのプログラムのファイル名です
document.myform.action = 'pages.asp？page ='+（document.myform.currentpage.selectedindex+1）
document.myform.submit（）;
}
</script>
</head>
<bodybgcolor = "＃ffffcc" link = "＃008000" vlink = "＃008000" link = "＃ff0000" ">
<％ifrs.eofthen
Response.write（ "<fontsize = 2color =＃000080> [データベースにレコードなし！] </font>"）
それ以外
''現在のページ番号を指定します
ifrequest（ "currentPage"）= "" then
rs.absolutepage = 1
それ以外
rs.absolutepage = clng（request（ "currentPage"））
endif
'' myformを作成し、メソッドを取得します
Response.write（ "<formmethod = getName = myform>"）
respons.write（ "<palign = center> <fontsize = 2color =＃008000>"）
''ページのターンハイパーリンクを設定します
ifrs.pagecount = 1then
Response.Write（ "[First Page] [前のページ] [次のページ] [最後のページ]"）
それ以外
ifrs.absolutepage = 1then
Response.write（ "[First Page] [前のページ]"）