分页函数

函数如下:

<%
private function fenye(rs, pagesize,args)
Dim intcur
Dim intpagesize
Dim total
Dim inttotal

args = split(args,",")
if  Request.querystring("page")="" then 
 intcur=1
 page = "first"
else
 select  case  request("page")
         case  "first"
                 intcur=1
                case  "previous"
                 intcur=cint(request("curpage"))
                 intcur=intcur-1
                case  "next"
                 intcur=cint(request("curpage"))
                 intcur=intcur+1
                case  "last"
                 intcur=cint(request("lastpage"))
                case  else 
                    intcur=request("page")
 end  select
end  if
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
 <tr>
         <td colspan="2" height="58">
   <%
   if rs.eof then
    response.write "没有栏目:("
   else
    intpagesize=pagesize
    rs.pagesize=intpagesize
    if not rs.eof then
     rs.AbsolutePage=intcur
    end if
    total=rs.recordcount
    inttotal=rs.pagecount
    Dim i
    i = 0
    %>
    <table border = 1 align = center>
     
     <tr>
      <%
      Dim n
      n = 0
      do while n <= UBound(args)%>
       <th>
        <%response.write args(n)%>
       </th>
       <%
      n = n + 1
      loop
       %>
     </tr>
     <%
     do while NOT rs.EOF and i<intpagesize%>
     <tr>
      <%
      Dim l
      l = 0
      do while l <= UBound(args)
      %>    
      <td>
       <%=rs(args(l))%>
      </td>
      <%
      l = l + 1
      loop
      %>
     </tr>
     <%
     i = i + 1
     rs.MoveNext
     loop
     %>
    </table>
    <%
   end if%>
  </td>
 </tr>
</table>
<div align="center"><br>
 <%=intcur%> /<%=inttotal%> 
 <%  if intcur>1  then  %>
  <a  href="index.asp?page=previous&curpage=<%=intcur%>">上一页</a>
 <%else%>
  上一页
 <%end if
 intcur=cint(intcur)
 inttotal=cint(inttotal)%>
 <%if intcur<inttotal then%>
  <a  href="index.asp?page=next&curpage=<%=intcur%>">下一页</a>
 <%else%>
  下一页
 <%end if%>
</div>
<%
rs.close
set rs = nothing
end function
%>

 

 

测试页面如下:

<!--#include file = "fenye.inc"-->
<%
dim conn  
dim connstr
dim rst
on error resume next
connstr="DBQ="+server.mappath("Nwind.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rst = server.createobject("adodb.recordset")
rst.open "select * from orders",conn,1,1
call fenye(rst,7,"OrderID,CustomerID,ShipVia")
rst.close
set rst = nothing
conn.close
set conn = nothing
%>

说明:

使用时在asp页面顶部加入
<!--#include file = "fenye.inc">

在需要分页的地方调用函数:
如:call fenye(rst,7,"OrderID,CustomerID,ShipVia")

函数原型:
variant fenye(recordset rs,integer pagesize,String args)

参数说明如下:
rs:   传入的recordset
n:   要求每页显示的记录数
columns:  要求显示的数据库中的字段


    做这样一个分页函数是因为有时自己写分页的时候觉得不是那么方便,每个地方都写一遍很浪费,也看到很多朋友都在问这个问题,所以写这样一个函数大家参考一下吧,第一次写这种东西,感觉很低级,但是还是希望大家捧场。。。。。谢谢!!!欢迎各种意见和建议!顺便说一下,这种ado的分页方法,我觉得实在是效率很低,因为我每次只要7条记录但是却要取出一个上百条甚至上千条的纪录集,如果一个服务器端的数据量少也就罢了,如果。。。。唉。。。所以,以后会再做几个不同原理的分页函数!


                                                                                                     我的email:
                                                                                             xuchi@uibeonline.com

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

musicfree_uibe

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值