經過大鳥哥的指導已做全面的修改，本人能力有限只能做到下面這步了：
ASP/Visual Basic代碼
復制代碼 代碼如下:
%
Const p=6 '每頁2條
set rs = server.createobject("adodb.recordset")
sql = "Select * from show order by id Desc"
rs.Open sql,conn,1
i=0
do while not rs.eof
%> td align="center" height="98">
a href="show.asp?id=%=rs("id")%>">
img src="%=rs("pic")%>" width="150" height="98" alt="%=rs("name")%>" />/a>
/td>
%
If (i+1) Mod 3 =0 Then
Response.Write "/tr>"
If i(p-1) Then Response.Write "tr>"
End If
i=i+1
if i>p then exit do
rs.movenext
Loop
If i Mod 3 >0 Then
For m=3-(i Mod 3) To 1 Step -1
response.write"td> /td>"
Next
response.write"/tr>"
End If
If i = 3 Then
response.write" td> /td>td> /td>td> /td>/tr>"
End if
rs.close
set rs=nothing
%>
之前的代碼未更改
復制代碼 代碼如下:
%
Const p=6 '每頁2條
set rs = server.createobject("adodb.recordset")
sql = "Select * from show order by id Desc"
rs.Open sql,conn,1
i=1
do while not rs.eof
%> td align="center" height="98">
a href="show.asp?id=%=rs("id")%>">
img src="%=rs("pic")%>" width="150" height="98" alt="%=rs("name")%>" />/a>
/td>
%
if i mod 3 = 0 then
Response.Write("/tr>tr>")
end if
i=i+1
if i>p then exit do
rs.movenext
Loop
rs.close
set rs=nothing
%>
您可能感興趣的文章:- 詳細講解ASP腳本循環語句
- asp經常被忽視的一種死循環
- asp下循環一行多少個
- asp.net for循環語句
- asp.net使用for循環實現Datalist的分列顯示功能
- asp.net下無法循環綁定投票的標題和選項的解決方法
- asp.net中for和do循環語句用法分享
- asp中用for循環的一個小技巧
- asp中for循環的使用方法
- asp循環語句總結
