代码说

code is poetry

代码说    
碎碎念:我胡汉三又回来啦!  换一换

ASP动态分页

作者:coderzheng 发布于:2010-3-22 21:55 Monday 分类:Cs晚八点  阅读模式

分页和普通分页是一样的,主要就是如何“先横向再纵向”排列的问题 这个问题在论坛讨论了好多,你可以查看顶贴,或者使用论坛的搜索功能。 下面的函数只做参考,希望你能理解,主要原理即是判断生成下一表格行达到要求。 <% function showpros(tablename,topnum,fildname,loopnum,typenum) Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select top "&topnum&" * from "&tablename rs.Open sql,conn,1,1 if rs.eof and rs.bof then response.Write("暂时无该记录") else response.Write("<table width='100%'>") for i=1 to rs.recordcount if (i mod loopnum=1) then response.write"<tr>" end if select case typenum case "1" response.Write("<td><table width='100%'><tr><td bgcolor=red width='50%'>") response.Write(rs(""&fildname&"")) response.Write("</td><td bgcolor=black>") response.Write("方式1之"&i&"记录")'此处的“方式1”可以替换显示为其余字段的值 response.Write("</td></tr>")'如果字段比较多,继续添加新个表格行来显示 response.Write("</table></td>") case "2" response.Write("<td><table width='100%'><tr><td bgcolor=red>") response.Write(rs(""&fildname&"")) response.Write("</td></tr>") response.Write("<tr><td bgcolor=black>") response.Write("方式2之"&i&"记录") response.Write("</td></tr>") response.Write("</table></td>") end select if (i mod loopnum=0) then response.write"</tr>" end if rs.movenext next response.Write("</table>") end if rs.close Set rs = Nothing end function %> 参数说明:showpros(tablename,topnum,fildname,loopnum,typenum) whichpro为选择何类型的产品种类 topnum表示提取多少条记录 fildname表示调试显示的字段,具体应用的时候可以省去该参数,在函数内部直接使用 loopnum表示显示的循环每行的记录条数 typenum表示循环显示的方法:目前分了两类,横向并列、纵向并列显示同一数据记录行的不同记录 原帖内容: <% function showpros(tablename,topnum,fildname,loopnum,typenum) Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select top "&topnum&" * from "&tablename rs.Open sql,conn,1,1 if rs.eof and rs.bof then response.Write("暂时无该记录") else response.Write("<table width='100%'>") for i=1 to rs.recordcount if (i mod loopnum=1) then response.write"<tr>" end if select case typenum case "1" response.Write("<td><table width='100%'><tr><td bgcolor=red width='50%'>") response.Write(rs(""&fildname&"")) response.Write("</td><td bgcolor=black>") response.Write("方式1之"&i&"记录")'此处的“方式1”可以替换显示为其余字段的值 response.Write("</td></tr>")'如果字段比较多,继续添加新个表格行来显示 response.Write("</table></td>") case "2" response.Write("<td><table width='100%'><tr><td bgcolor=red>") response.Write(rs(""&fildname&"")) response.Write("</td></tr>") response.Write("<tr><td bgcolor=black>") response.Write("方式2之"&i&"记录") response.Write("</td></tr>") response.Write("</table></td>") end select if (i mod loopnum=0) then response.write"</tr>" end if rs.movenext next response.Write("</table>") end if rs.close Set rs = Nothing end function %> 参数说明:showpros(tablename,topnum,fildname,loopnum,typenum) whichpro为选择何类型的产品种类 topnum表示提取多少条记录 fildname表示调试显示的字段,具体应用的时候可以省去该参数,在函数内部直接使用 loopnum表示显示的循环每行的记录条数 typenum表示循环显示的方法:目前分了两类,横向并列、纵向并列显示同一数据记录行的不同记录 http://www.cnbruce.com/test/function/index.asp

标签: asp分页 cs晚八点

你可以发表评论、引用到你的网站或博客,或通过RSS 2.0订阅这个博客的所有文章。
上一篇: Apache下使用Alias创建虚拟目录的问题  |  下一篇:php中文乱码终极解决方案