ループTR内にTDをループする通常の方法はないため、最後のページのレコードセットの数は計算されません。
ただし、レコードセットが不十分な場合、空の行や列を自動的に埋めることもできます。不足がある場合は、それを指摘してください、ありがとう。
使用方法は非常にシンプルです：
コードコピーは次のとおりです。
<％
showdata（ "クエリ名"）
callpagehead（行数、列）
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'次の応答を書くことができます。write（）は関数に、あなたの個人的な趣味を見ることができます。
Response.write（formatcrtable（テーブル幅、テーブルの高さ））
respons.write（pagefoot（））
callclosedata（）
％>
関数は次のとおりです。
コードコピーは次のとおりです。
<％
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Copyright2005ByJorkin.AllrightSreserved
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
publicrs
PublicPageno、cols、rows、maxpageno、maxredcount、maxpagesize
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
publicfunctionshowdata（sqlstrings）
setrs = server.createObject（ "adodb.recordset"）
rs.opensqlstrings、oconn、1,3
エンド機能
publicFunctionClosedata（）
rs.close
setrs =何もない
エンド機能
'ページネーションを初期化します
'maxrows =行の最大数
'maxcols =列の最大数
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
publicFunctionPagehead（Maxrows、Maxcols）
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
rows = maxrows
cols = maxcols
maxpagesize = 1
maxredcount = 0
maxpageno = 0
Pageno = 0
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
maxredCount = rs.RecordCount
ifmaxredcount> 0then
maxpagesize = rows*cols
maxpageno = cint（（maxredcount+maxpagesize-1）/maxpagesize）
rs.pagesize = maxpagesize
pageno = request（ "pageno"）
ifisempty（pageno）ornotisnumeric（pageno）orcint（pageno）<1orcint（pageno）> rs.pagecountthen
pageno = 1
endif
rs.absolutepage = pageno
endif
onerrorresumenext
エンド機能
'ページ関数の終わり
'パラメーターはありません
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
publicFunctionPageFoot（）