作家
登录

asp循环行数输出函数

作者: 来源:www.28hudong.com 2013-03-30 08:27:03 阅读 我要评论

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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)