 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
大家都知道在Dreamwerver中可以很方便地实现记录集的分页显示，但是生成的代码的确很庞大，影响了网页的显示速度，看起来条理也不是很清楚，那么，可不可以用简朴的方法实现同样的功能呢？当然可以，笔者通过以下一些简朴的代码就实现了记录集的分页显示，现在拿出来大家一起分享。 主要代码如下: <% If rs1.recordcount>0 Then \\\' 记录集不为空则处理记录 rs1.pagesize = 10 \\\' 设置每页显示的记录数 num=rs1.recordcount \\\' 记录总数 pagenum=rs1.pagecount \\\' 页总数 page=request("page") \\\' 获取页码的原始信息 \\\' 处理页码原始信息的开始！ If page <> "" then page = cint(page) if err.number <> 0 then err.clear page = 1 end if if page < 1 then page = 1 end if else page = 1 End if if page*rs1.pagesize > num and not((page-1)*rs1.pagesize < num)then page=1 end if \\\' 处理页码原始信息的结束！设置当前页码 rs1.absolutepage = page %> <!--判定当前页是否是最后一页，并根据判定设置记录的重复显示--> <% if page<>pagenum then lablenum=rs1.pagesize else lablenum=num-(page-1)*rs1.pagesize end if for i=1 to lablenum %> <tr bgcolor="#FFFFFF"> <td height="25"><div align="center"><%=(rs1.Fields.Item("id").Value)%></div></td> <td><div align="center"><%=(rs1.Fields.Item("名称").Value)%></div></td> <td><div align="center"><%=(rs1.Fields.Item("地址").Value)%></div></td> <td><div align="center"><%=(rs1.Fields.Item("类别").Value)%></div></td> <td><div align="center"><%=(rs1.Fields.Item("最后修改").Value)%></div></td> <td><div align="center"><%=(rs1.Fields.Item("修改人").Value)%></div></td> </tr> <% rs1.movenext next %> <!--当前页的记录显示结束，以下代码为记录集分页链接代码--> <table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="35"> <div align="right"> <font color="#333333"> 共有 <%=num%> 个链接 | <a href=linkadmin.asp?page=1>首页</a> | <%if page>1 then%><a href=linkadmin.asp?page=<%=page-1%>><%end if%>上一页</a> | <%if page<pagenum then%><a href=linkadmin.asp?page=<%=page+1%>><%end if%>下一页</a> | <a href=linkadmin.asp?page=<%=pagenum%>>尾页</a> | 页次:<%=page%>/<%=pagenum%>页 | 共<%=pagenum%>页 </font> </div> </td> </tr> </table> <!--记录集分页链接代码结束，记录集为空时执行以下代码--> <%else%> <tr bgcolor="#FFFFFF"> <td height="25" colspan="6"><div align="center"><% response.Write("没有结果可显示！") %> </div></td> </tr> <% end if rs1.Close() Set rs1 = Nothing %> 好了，很简朴吧！只要简朴地修改一下就能插入到你的网页显示记录的地方了，赶紧试试吧！ 返回类别: 教程 上一教程: ASP中字符串函数的应用 下一教程: RECORDSET的几个属性设置方式 您可以阅读与"在ASP中轻松实现记录集分页显示"相关的教程: · ASP中轻松实现记录集分页 · 分栏显示记录集的表格演示，并实现了分页 · 用ASP实现分页显示的具体讲解 · ASP中实现分页显示的七种武器 · 用ASP实现长文章用分页符来分页显示 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
