经过大鸟哥的指导已做全面的修改，本人能力有限只能做到下面这步了： 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 %> 之前的代码未更改 复制代码 代码如下:<% 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 %>

　　推荐阅读

　　AJAX简单应用实例-弹出层

function createobj() { if (window.ActiveXObject) { return(new ActiveXObject("Microsoft.XMLHTTP")); } else if (window.XMLHttpRequest) { return(new XMLHttpRequest()); >>>详细阅读

本文标题：asp循环行数输出函数

地址：http://www.17bianji.com/kaifa2/ASP/32180.html

 1/2    1