 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<!-- 本示例演示一个通用的记录集分栏显示，因为有的时候显示产品等要每行显示若干个，而不是每行显示一个。如有有这种分栏显示的表格，直接把下面的代码套进去就行了，本示例是每行显示2个记录，再最下面还显示了分页栏。 --> <% \\\'打开数据库 Set conn = Server.CreateObject("ADODB.Connection") strconn="Driver={sql server};server=localhost;database=northwind;uid=sa;pwd=sa;" conn.Open strconn \\\'获取本页地址 Dim fileName,postion fileName = Request.ServerVariables("script_name") postion = InstrRev(fileName,"/")+1 fileName = Mid(fileName,postion) \\\'打开记录集www.knowsky.com set rs=server.CreateObject("adodb.recordset") rs.open "select titleofcourtesy,firstname,photopath from Employees order by employeeid desc",conn,1,1 %> <!-- 产品展示表格 --> <table width="90%" height="300" border="0" align="center"> <% if not(rs.bof and rs.eof) then pages=4 rs.pagesize=pages if not isempty(Request.QueryString("page")) then thispage=clng(Request.QueryString("page")) else thispage=1 end if rscount=rs.recordcount if thispage="" then thispage=1 if thispage<1 then thispage=1 if (thispage-1)*pages>rscount then if (rscount mod pages)=0 then thispage=rscountpages else thispage=rscountpages+1 end if end if if(rscount mod pages)=0 then allpages=rscountpages else allpages=rscountpages+1 end if rs.absolutepage=thispage i=1 %> <tr> <%do while not rs.eof and pages>0 %> <td valign="top"><a href="<%=rs("PhotoPath")%>" target="_blank"><img src="<%=rs("PhotoPath")%>" alt="" width="100" height="100" border="0"></a><br> <%=rs("titleofcourtesy")&rs("firstname")%> </td> <% \\\'分栏主要由下面这个判定来执行的，本例是每行显示两栏 if (i mod 2) =0 then %> </tr><tr> <%end if%> <% pages = pages - 1 rs.movenext i=i+1 loop end if %> </table> <!-- /产品展示表格 --> <!-- 产品分页表格 --> <table width="90%" border="0" align="center"> <tr> <td> <center> 共<%=allpages%>页 当前第<%= thispage %>页 <% if thispage<>1 then %> <a href="<%=filename&"?page=1"%>">首页</a> <a href="<%=filename&"?page="&(thispage-1)%>">上页</a> <% End If %> <% if thispage<>allpages then %> <a href="<%=filename&"?page="&(thispage+1)%>">下页</a> <a href="<%=filename&"?page="&allpages&""%>">末页</a> <% End If %> </center></td> </tr> </table> <!-- /产品分页表格 --> 返回类别: 教程 上一教程: 随机访问RECORDSET的一条记录 下一教程: 用ASP实现从SQL SERVER导出数据到ACCESS 您可以阅读与"分栏显示记录集的表格演示，并实现了分页"相关的教程: · 在ASP中轻松实现记录集分页显示 · ASP中轻松实现记录集分页 · 将ASP纪录集输出成N列的的表格形式显示的方式 · ADO存取数据时如何实现留言记录的分页显示 · 实现可动态改变宽度的表格简朴方式 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
