感谢大鸟哥哥的指导总算走出了这个循环的禁区
一直以来都很头疼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" 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
- %>
之前的代码未更改
XML/HTML代码
- <%
- 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
- %>
