DBデータのページング処理
ASPに限らずVBScriptを使った際の一般的な方法ですが、データベースから取得したデータをページングして表示する方法を紹介しています。
サンプルコード
rec_count = 0
page_size = 50
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,db,3,3
rs.PageSize = page_size
rs.AbsolutePage = page
do while not rs.eof and rec_count < page_size
rs.movenext
rec_count = rec_count + 1
Loop
rs.close
db.close概要
rs.open sql,db,3,3 として開くのが味噌です。
また、 rs.PageSize = page_size rs.AbsolutePage = page として、ページのサイズ・位置を指定し、 do while not rs.eof and rec_count < page_size rs.movenext rec_count = rec_count + 1 Loop としてレコード数がページサイズ分になるまでカウントして、達したらとめてあげます