經(jīng)過大鳥哥的指導(dǎo)已做全面的修改，本人能力有限只能做到下面這步了：
ASP/Visual Basic代碼
復(fù)制代碼 代碼如下:
%
Const p=6 '每頁(yè)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
%>
之前的代碼未更改
復(fù)制代碼 代碼如下:
%
Const p=6 '每頁(yè)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
%>
您可能感興趣的文章:- 詳細(xì)講解ASP腳本循環(huán)語(yǔ)句
- asp經(jīng)常被忽視的一種死循環(huán)
- asp下循環(huán)一行多少個(gè)
- asp.net for循環(huán)語(yǔ)句
- asp.net使用for循環(huán)實(shí)現(xiàn)Datalist的分列顯示功能
- asp.net下無(wú)法循環(huán)綁定投票的標(biāo)題和選項(xiàng)的解決方法
- asp.net中for和do循環(huán)語(yǔ)句用法分享
- asp中用for循環(huán)的一個(gè)小技巧
- asp中for循環(huán)的使用方法
- asp循環(huán)語(yǔ)句總結(jié)
