经过大鸟哥的指导已做全面的修改,本人能力有限只能做到下面这步了: 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