レコードセットを列に表示し、ページングを実装するテーブルのデモ

著者：Eve Cole 更新時間：2009-06-24 17:04:30

<%
'データベースを開く
set conn = Server.CreateObject("ADODB.Connection")
strconn="ドライバー={SQL サーバー};サーバー=ローカルホスト;データベース=ノースウィンド;uid=sa;pwd=sa;"
conn.Open strconn
'このページのアドレスを取得する
Dim ファイル名、位置
ファイル名 = Request.ServerVariables("スクリプト名")
位置 = InstrRev(ファイル名,"/")+1
ファイル名 = Mid(ファイル名,位置)
'レコードセットwww.downcodes.comを開きます
set rs=server.CreateObject("adodb.recordset")
rs.open "従業員 ID の説明で従業員の順序からタイトル、名、写真パスを選択",conn,1,1
%>

<table width="90%" height="300" border="0" align="center">
<%
そうでない場合 (rs.bof および rs.eof)
ページ=4
rs.pagesize=ページ
isempty(Request.QueryString("page")) でない場合は、
thispage=clng(Request.QueryString("ページ"))
それ以外
このページ=1
終了する場合
rscount=rs.レコードカウント
thispage="" の場合、thispage=1
このページ<1 の場合、このページ=1
if (thispage-1)*pages>rscount then
if (rscount mod ページ)=0 then
thispage=rscountpages
それ以外
thispage=rscountページ+1
終了する場合
終了する場合
if(rscount mod ページ)=0 then
すべてのページ=rscountページ
それ以外
すべてのページ=rscountページ+1
終了する場合
rs.absolutepage=このページ
i=1
%>
<tr>
<%do ながら rs.eof とページ>0 %>
<td valign="top"><a href="<%=rs("PhotoPath")%>" target="_blank"><img src="<%=rs("PhotoPath")%>" alt= "" width="100" height="100" border="0"></a><br>
<%=rs("titleofcourtsy")&rs("firstname")%> </td>
<%
' 列分割は主に以下の判断により行われます。この例では 1 行に 2 列が表示されます。
if (i mod 2) =0 then
%>
</tr><tr>
<%end if%>
<%
ページ = ページ - 1
rs.movenext
i=i+1
ループ
終了する場合
%>

</テーブル>


<table width="90%" border="0" align="center">
<tr>
<td> <センター>
合計 <%=allpages%> ページ 現在のページ <%= thispage %> 
<% if thispage<>1 then %>
<a href="<%=filename&"?page=1"%>">ホームページ</a> <a href="<%=filename&"?page="&(thispage-1)%>">前のページ</a>
<% % の場合は終了>
<% if thispage<>allpages then %>
<a href="<%=filename&"?page="&(thispage+1)%>">次のページ</a> <a href="<%=filename&"?page="&allpages&""%>" >最後のページ</a>
<% % の場合は終了>
</center></td>
</tr>
</テーブル>