登陆

asp循环行数问题

感谢大鸟哥哥的指导总算走出了这个循环的禁区

一直以来都很头疼asp里面的多行或者多列循环

今天算是有收获了以下代码贴出来为自己留念一下

经过大鸟哥的指导已做全面的修改,本人能力有限只能做到下面这步了:

ASP/Visual Basic代码
  1. <%       
  2. Const p=6 '每页2条       
  3. set rs = server.createobject("adodb.recordset")       
  4. sql = "Select * from show order by id Desc"      
  5. rs.Open sql,conn,1       
  6.       
  7. i=0      
  8. do while not rs.eof       
  9. %>  <td align="center" height="98">      
  10.     <a href="show.asp?id=<%=rs("id")%>">      
  11.     <img src="<%=rs("pic")%>" width="150" height="98" alt="<%=rs("name")%>" /></a>      
  12.   </td>   
  13. <%   
  14. If (i+1) Mod 3 =0 Then  
  15.  Response.Write "</tr>"  
  16.  If i<(p-1) Then Response.Write "<tr>"  
  17. End If  
  18. i=i+1   
  19. if i>p then exit do   
  20. rs.movenext   
  21. Loop  
  22. If i Mod 3 <>0 Then    
  23.  For m=3-(i Mod 3) To 1 Step -1   
  24.   response.write"<td> </td>"  
  25.  Next  
  26.  response.write"</tr>"  
  27. End If    
  28. If i = 3 Then  
  29.  response.write" <td> </td><td> </td><td> </td></tr>"  
  30. End if   
  31. rs.close   
  32. set rs=nothing   
  33. %>  

 

之前的代码未更改

XML/HTML代码
  1. <%   
  2. Const p=6 '每页2条   
  3. set rs = server.createobject("adodb.recordset")   
  4. sql = "Select * from show order by id Desc"  
  5. rs.Open sql,conn,1   
  6.   
  7. i=1  
  8. do while not rs.eof   
  9. %>  <td align="center" height="98">  
  10.     <a href="show.asp?id=<%=rs("id")%>">  
  11.     <img src="<%=rs("pic")%>" width="150" height="98" alt="<%=rs("name")%>" /></a>  
  12.   </td>  
  13. <%   
  14. if i mod 3 = 0 then   
  15. Response.Write("</tr><tr>")   
  16. end if   
  17. i=i+1   
  18. if i>p then exit do   
  19. rs.movenext   
  20. Loop   
  21. rs.close   
  22. set rs=nothing  
  23. %>  

Tags: 循环, asp, 行数

« 上一篇 | 下一篇 »

相关文章

访客评论

JackFans
哈哈有道理!
Post by 小锋 on 2008, September 18, 11:27 AM #1
JackFans
不要用table 会很简单。。没那么多逻辑了。呵呵。
用DIV。。。
JackFans
这样只完成了第一步。