一直以來都很頭疼Asp裡面的多行或者多列循環今天算是有收穫了以下程式碼貼出來為自己留念一下經過大鳥哥的指導已做全面的修改，本人能力有限只能做到下面這一步了：
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 /></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 /></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
%>