Dreamwerver でレコード セットのページング表示を簡単に実装できることは誰もが知っていますが、生成されるコードは実際には非常に大きく、Web ページの表示速度に影響を与えるため、あまり明確ではないようです。簡単な方法で実現できましたが、機能はどうですか？もちろん、次の簡単なコードを使用してレコード セットのページング表示を実現できます。これを皆さんと共有します。
主なコードは以下のとおりです。
＜%
If rs1.recordcount>0 then 'レコードセットが空でない場合、レコードを処理します rs1.pagesize = 10 '各ページに表示されるレコード数を設定します num=rs1.recordcount 'レコードの総数 pagenum=rs1.pagecount '総ページ数 page=request(" page") 'ページ番号の元情報を取得' ページ番号の元情報の処理開始です！
ページ＜＞「」の場合、
ページ = cint(ページ)
if err.number ＜＞ 0 then
エラークリア
ページ=1
終了する場合
ページ < 1 の場合
ページ=1
終了する場合
それ以外
ページ=1
次の場合に終了
if page*rs1.pagesize ＞ num and not((page-1)*rs1.pagesize ＜ num)then
ページ=1
終了する場合
『ページ数オリジナル情報の処理終了！現在のページ番号を設定します rs1.absolutepage = page
%>
<!--現在のページが最終ページかどうかを判断し、その判断に基づいてレコードの繰り返し表示を設定します-->
＜% if page＜＞pagenum then
lablenum=rs1.pagesize
それ以外
lablenum=num-(page-1)*rs1.pagesize
終了する場合
i=1 から labelnum まで
%>
＜tr bgcolor="#FFFFFF">
<td height="25"><div align="center"><%=(rs1.Fields.Item("id").Value)%></div></td>
＜td＞＜div align="center">＜%=(rs1.Fields.Item("name").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center">＜%=(rs1.Fields.Item("Address").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center">＜%=(rs1.Fields.Item("Category").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center">＜%=(rs1.Fields.Item("最終更新日").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center">＜%=(rs1.Fields.Item("Modifier").Value)%＞＜/div＞＜/td＞
＜/tr＞
<%
rs1.movenext
次
%>
<!--現在のページのレコード表示が終了します。次のコードはレコード セットのページング リンク コードです-->
＜テーブル幅="70%" ボーダー="0" align="center" cellpadding="0" cellpacing="0">
＜tr＞
＜td高さ="35">
<div align="right">
<font color="#333333">
合計 <%=num%> 個のリンクがあります|
＜a href=linkadmin.asp?page=1＞ホームページ＜/a＞ |
＜%if page＞1 then%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞前のページ＜/a＞ |
＜%if page＜pagenum then%＞＜a href=linkadmin.asp?page=＜%=page+1%＞＞＜%end if%＞次のページ＜/a＞ |
＜a href=linkadmin.asp?page=＜%=pagenum%＞＞最後のページ＜/a＞ |
ページ:＜%=page%＞/＜%=pagenum%＞ページ |
合計<%=pagenum%>ページ</font>
＜/div＞
＜/td＞
＜/tr＞
＜/テーブル＞
<!--レコード セットのページング リンク コードが終了し、レコード セットが空の場合は次のコードが実行されます-->
＜%else%＞
＜tr bgcolor="#FFFFFF">
<td height="25"colspan="6"><div align="center"><% response.Write("表示する結果がありません!") %>
＜/div＞＜/td＞
＜/tr＞
<%
終了する場合
rs1.Close()
rs1 = 何も設定しない
%>
わかりました。とても簡単です。簡単な変更を加えるだけで、Web ページ上のレコードが表示される場所に挿入できます。今すぐ試してください。