杭州企业邮局网络公司--杭州域名服务网 杭州企业邮局
服务热线:0571-28812275
网站建设 域名注册 虚拟主机 企业邮局 网站推广 产品与服务 典型案例留言咨询 杭州虚拟主机首页 
 
 企业邮局基本知识
 企业邮局操作问题
 企业邮局界面预览
 企业邮局帮助
 域名控制面板
 联系我们
 客服中心
 交费方式
 留言咨询
 联系我们
 北京新网互联
 时代互联
 厦门中资源网络
 商务中国

ASP开发 行业新闻 网站建设
PHP开发 网络营销 JSP&JAVA开发

在ASP中轻松实现记录集分页显示


  大家都知道在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
   %>
  
     好了,很简单吧!只要简单地修改一下就能插入到你的网页显示记录的地方了,赶快试试吧!
  
  


发布时间:2006-2-18 13:25:13



回复:在ASP中轻松实现记录集分页显示 ………


回复主题:
回复内容:
相关图片:



公司简介 | 联系方式 | 如何交费 | 咨询留言 | 客户服务 | 代理合作 | 友情链接
Copyright © 2004-2005 Sdcom™ All rights reserved
   联系电话:0571-28812275/28812272 节假日值班:0571-88699879 Email: