I have always had a headache with multi-row or multi-column loops in Asp. Today I have gained something. I posted the following code as a souvenir for myself. It has been completely modified under the guidance of Brother Big Bird. My ability is limited and I can only do the following step. :
ASP/Visual Basic code
Copy the code code as follows:
<%
Const p=6 '2 items per page
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
%>
The previous code has not changed
Copy the code code as follows:
<%
Const p=6 '2 items per page
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
%>