私はいつも Asp の複数行または複数列のループに悩まされていました。今日は自分へのお土産として、Big Bird の指導の下で完全に修正されたものを投稿しました。には制限があり、次の手順しか実行できません。
ASP/Visual Basic コード
次のようにコードをコピーします。
<%
Const p=6 ' 1 ページあたり 2 項目
set rs =server.createobject(adodb.recordset)
sql = ID による表示順序から * を選択 説明
rs.SQL、conn、1を開く
i=0
rs.eof ではないときに実行します
%> <td align=center height=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> 幅=150 高さ=98 /></td>
<%
(i+1) Mod 3 =0 の場合
応答.書き込み </tr>
If i<(p-1) then Response.Write <tr>
終了の場合
i=i+1
if i>p then exit do
rs.movenext
ループ
If i Mod 3 <>0 then
m=3-(i Mod 3) の場合 1 ステップ -1
応答.write<td> </td>
次
応答.書き込み</tr>
終了の場合
i = 3 の場合
応答.write <td> </td><td> </td><td> </td></tr>
次の場合に終了
rs.close
rs=何も設定しない
%>
前のコードは変更されていません
次のようにコードをコピーします。
<%
Const p=6 ' 1 ページあたり 2 項目
set rs =server.createobject(adodb.recordset)
sql = ID による表示順序から * を選択 説明
rs.SQL、conn、1を開く
i=1
rs.eof ではないときに実行します
%> <td align=center height=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> 幅=150 高さ=98 /></td>
<%
mod 3 = 0の場合
Response.Write(</tr><tr>)
終了する場合
i=i+1
if i>p then exit do
rs.movenext
ループ
rs.close
rs=何も設定しない
%>