ACCESS 高效分页类

最新推荐文章于 2024-09-11 15:33:18 发布
最新推荐文章于 2024-09-11 15:33:18 发布
阅读量940 收藏
点赞数
分类专栏： php，asp技巧 文章标签： access function url search javascript class

<%

'
'程序特点
'本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，
'支持URL多个参数，支持多表关联查询，支持多字段排序
'
'使用说明
'程序参数说明
'PapgeSize      定义分页每一页的记录数
'GetRS      返回经过分页的Recordset此属性只读
'GetConn      得到数据库连接
'GetField      得到查询字段
'GetTbName      得到表名
'GetWhere      得到条件
'GetOrder      得到排序

'程序方法说明
'ShowPage      显示分页导航条,唯一的公用方法
'
'===================================================================

'Const Btn_First=" <font face=""webdings"">9 </font>"  '定义第一页按钮显示样式
'Const Btn_Prev=" <font face=""webdings"">3 </font>"  '定义前一页按钮显示样式
'Const Btn_Next=" <font face=""webdings"">4 </font>"  '定义下一页按钮显示样式
'Const Btn_Last=" <font face=""webdings"">: </font>"  '定义最后一页按钮显示样式

Const Btn_First="首页"  '定义第一页按钮显示样式
Const Btn_Prev="上一页"  '定义前一页按钮显示样式
Const Btn_Next="下一页"  '定义下一页按钮显示样式
Const Btn_Last="末页"  '定义最后一页按钮显示样式

Class Cls_PageView
Private XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_TbName,XD_Where,XD_Order,XD_Key,XD_PageSize,XD_Field,XD_total,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL,swhere,sorder


'=================================================================
'PageSize 属性
'设置每一页的分页大小
'=================================================================
Public Property Let PageSize(int_PageSize)
If IsNumeric(Int_Pagesize) Then
  XD_PageSize=CLng(int_PageSize)
Else
  str_error=str_error & "PageSize的参数不正确"
  ShowError()
End If
End Property
Public Property Get PageSize
If XD_PageSize="" or (not(IsNumeric(XD_PageSize))) Then
  PageSize=10   
Else
  PageSize=XD_PageSize
End If
End Property

'=================================================================
'GetRS 属性
'返回分页后的记录集
'=================================================================
Public Property Get GetRs()
Set XD_Rs=Server.createobject("adodb.recordset")
XD_Rs.PageSize=PageSize
If XD_Where = "" Then
swhere = ""
Else
swhere = " where "&XD_Where
End If
If XD_Order = "" Then
sorder = " order by "&XD_Key&" desc"
Else
sorder = " order by "&XD_Order
End If

XD_total = XD_Conn.ExeCute ("select count("& XD_Key &") from "& XD_TbName &swhere)(0)'总记录数
XD_PageCount = abs(int(-abs(XD_total/PageSize)))'总页数
If Int_curpage>XD_PageCount Then Int_curpage=XD_PageCount
XD_SQL = "select "&XD_Field&" from "&XD_TbName&swhere&sorder
XD_Rs.Open XD_SQL,XD_Conn,1,1
XD_Rs.absoluteposition=XD_Rs.absoluteposition+((abs(int_curpage)-1)*PageSize)
Set GetRs=XD_Rs
End Property

'================================================================
'GetConn  得到数据库连接
'
'================================================================
Public Property Let GetConn(obj_Conn)
Set XD_Conn=obj_Conn
End Property

'================================================================
'GetTbName  得到表名
'
'================================================================
Public Property Let GetTbName(str_TbName)
XD_TbName=str_TbName
End Property
'================================================================
'GetField  得到表名
'
'================================================================
Public Property Let GetField(str_Field)
XD_Field=str_Field
End Property

'================================================================
'GetWhere  得到条件
'
'================================================================
Public Property Let GetWhere(str_Where)
XD_Where=str_Where
End Property
'================================================================
'GetKey  得到主键
'
'================================================================
Public Property Let GetKey(str_Key)
XD_Key=str_Key
End Property

'================================================================
'GetOrder  得到排序
'
'================================================================
Public Property Let GetOrder(str_Order)
XD_Order=str_Order
End Property

'==================================================================
'Class_Initialize 类的初始化
'初始化当前页的值
'
'==================================================================
Private Sub Class_Initialize
'========================
'设定一些参数的黙认值
'========================
XD_PageSize=10  '设定分页的默认值为10
'========================
'获取当前面的值
'========================
If Trim(Request("Page"))="" or Not(IsNumeric(Trim(Request("Page")))) Then
  int_curpage=1
Else
  Int_curpage=CInt(Trim(Request("Page")))
End If
If Int_curpage <1 Then Int_curpage=1
End Sub

'====================================================================
'ShowPage  创建分页导航条
'有首页、前一页、下一页、末页、还有数字导航
'
'====================================================================
Public Sub ShowPage()
Dim str_tmp
XD_sURL = GetUrl()
int_totalRecord=XD_total
int_TotalPage=XD_PageCount
If int_totalRecord <=0 Then
  str_error=str_error & "总记录数为零，请输入数据"
  Call ShowError()
End If
If int_totalRecord="" then
    int_TotalPage=1
Else
  If int_totalRecord mod PageSize =0 Then
  int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1
  Else
  int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1
  End If
End If

If Int_curpage>int_Totalpage Then
  int_curpage=int_TotalPage
End If

'==================================================================
'显示分页信息，各个模块根据自己要求更改显求位置
'==================================================================
response.write ""
str_tmp=ShowFirstPrv '显示首页、前一页
response.write str_tmp
str_tmp=ShowNextLast'下一页、末页
response.write str_tmp
str_tmp=ShowPageInfo
response.write str_tmp
str_tmp=GetPageEnd
response.write str_tmp
response.write ""
End Sub

'====================================================================
'ShowFirstPrv  显示首页、前一页
'
'
'====================================================================
Private Function ShowFirstPrv()
Dim Str_tmp,int_prvpage
If Int_curpage=0 or Int_curpage=1 Then
  str_tmp=Btn_First&" "&Btn_Prev
Else
  int_prvpage=Int_curpage-1
  str_tmp=" <a href="""&XD_sURL & "1" & """>" & Btn_First&" </a> <a href=""" & XD_sURL & CStr(int_prvpage) & """>" & Btn_Prev&" </a>"
End If
ShowFirstPrv=str_tmp&"&nbsp;"
End Function

'====================================================================
'ShowNextLast  下一页、末页
'
'
'====================================================================
Private Function ShowNextLast()
Dim str_tmp,int_Nextpage
If Int_curpage>=int_totalpage Then
  str_tmp=Btn_Next & " " & Btn_Last
Else
  Int_NextPage=int_curpage+1
  str_tmp=" <a href=""" & XD_sURL & CStr(int_nextpage) & """>" & Btn_Next&" </a> <a href="""& XD_sURL & CStr(int_totalpage) & """>" &  Btn_Last&" </a>"
End If
ShowNextLast=str_tmp&"&nbsp;"
End Function


'====================================================================
'ShowPageInfo  分页信息
'更据要求自行修改
'
'====================================================================
Private Function ShowPageInfo()
Dim str_tmp
str_tmp="页次: <font color=#ff0000>"&int_curpage&" </font>/ <font color=#ff0000>"&int_totalpage&" </font>页 共 <font color=#ff0000>"&int_totalrecord&" </font>条记录 <font color=#ff0000>"&XD_PageSize&" </font>条/每页"
ShowPageInfo=str_tmp
End Function

'==================================================================
'GetPageEnd  下拉跳转
'根据要求自行修改
'
'==================================================================
Public Function GetPageEnd()
Dim str_tmp
str_tmp = " <input name=""thepage"" type=""text"" id=""thepage"" value="""& int_curpage &""" size=""3"">" & vbCrLf
str_tmp = str_tmp & " <a href=""javascript:gourl();"">GO </a>" & vbCrLf
str_tmp = str_tmp & chr(13) & " <" & "script language=JavaScript>"
str_tmp = str_tmp & chr(13) & "function gourl(){"
str_tmp = str_tmp & chr(13) & "document.location=""" & XD_sURL &"""+document.all.thepage.value+"""";"
str_tmp = str_tmp & chr(13) & "}"
str_tmp = str_tmp & chr(13) & " <" & "/script>"
GetPageEnd=str_tmp
End Function

'==================================================================
'GetURL  得到当前的URL
'更据URL参数不同，获取不同的结果
'
'==================================================================
Private Function GetURL()
Dim strurl,str_url,i,j,search_str,result_url
search_str="Page="

strurl=Request.ServerVariables("URL")
Strurl=split(strurl,"/")
i=UBound(strurl,1)
str_url=strurl(i)'得到当前页文件名

str_params=Trim(Request.ServerVariables("QUERY_STRING"))
If str_params="" Then
  result_url=str_url & "?Page="
Else
  If InstrRev(str_params,search_str)=0 Then
  result_url=str_url & "?" & str_params &"&Page="
  Else
  j=InstrRev(str_params,search_str)-2
  If j=-1 Then
    result_url=str_url & "?Page="
  Else
    str_params=Left(str_params,j)
    result_url=str_url & "?" & str_params &"&Page="
  End If
  End If
End If
GetURL=result_url
End Function

'====================================================================
' 设置 Terminate 事件。
'
'====================================================================
Private Sub Class_Terminate 
XD_RS.close
Set XD_RS=nothing
End Sub
'====================================================================
'ShowError  错误提示
'
'
'====================================================================
Private Sub ShowError()
If str_Error <> "" Then
  Response.Write("" & str_Error & "")
  Response.End
End If
End Sub
End class
%>~

-----------------------------------------------------------------

使用例子：

VBScript code 
    
    

     
     <
     
     %

     
     '
     
     创建对象
     
     

     
     Set
     
      mm
     
     =
     
     new
     
      Cls_PageView

     
     With
     
      mm
    
     
     '
     
     设置每一页的记录条数据为30条
     
     

     
         .PageSize
     
     =
     
     30
     
     
    
     
     '
     
     得到数据库连接
     
     

     
         .GetConn
     
     =
     
     Conn
    .GetTbName
     
     =
     
     "
     
     table1
     
     "
     
     
    .GetField
     
     =
     
     "
     
     id,aaaa,bbbb,cccc
     
     "
     
     
    .GetWhere
     
     =
     
     ""
     
     
    .GetKey
     
     =
     
     "
     
     id
     
     "
     
     
    .GetOrder
     
     =
     
     "
     
     id asc
     
     "
     
     

     
     End
     
      
     
     With
     
     

     
     '
     
     返回Recordset
     
     

     
     Set
     
      Rs
     
     =
     
     mm.GetRs()

     
     For
     
      i
     
     =
     
     1
     
      
     
     to
     
      mm.PageSize
    
     
     If
     
      Rs.EOF 
     
     or
     
      Rs.BOF 
     
     Then
     
      
     
     Exit
     
      
     
     For
     
     
    bgColor
     
     =
     
     "
     
     #DFEFFF
     
     "
     
     
    
     
     If
     
      i 
     
     Mod
     
      
     
     2
     
     =
     
     0
     
      
     
     Then
     
      bgColor
     
     =
     
     "
     
     #FFFFFF
     
     "
     
     
%
     
     >
     
       
  
     
     <
     
     tr bgcolor
     
     =
     
     "
     
     <%=bgColor%>
     
     "
     
     >
     
      
    
     
     <
     
     td width
     
     =
     
     "
     
     60
     
     "
     
     ><
     
     %
     
     =
     
     Rs(
     
     0
     
     )%
     
     ></
     
     td
     
     >
     
     
    
     
     <
     
     td width
     
     =
     
     "
     
     150
     
     "
     
     ><
     
     %
     
     =
     
     Rs(
     
     1
     
     )%
     
     ></
     
     td
     
     >
     
     
    
     
     <
     
     td width
     
     =
     
     "
     
     *
     
     "
     
     ><
     
     %
     
     =
     
     left
     
     (Rs(
     
     2
     
     ),
     
     20
     
     )%
     
     ></
     
     td
     
     >
     
     
    
     
     <
     
     td width
     
     =
     
     "
     
     150
     
     "
     
     ><
     
     %
     
     =
     
     Rs(
     
     3
     
     )%
     
     ></
     
     td
     
     >
     
     
  
     
     </
     
     tr
     
     >
     
     

     
     <
     
     %
    Rs.MoveNext

     
     Next
     
     
%
     
     >
yjbnew
关注
专栏目录
ACCESS高效分页示例
10-16
ACCESS高效分页示例， 测试数据50万
access数据库帮助类
weixin_30362801的博客
04-06 112
using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Data; using System.Configuration; using System.Data.OleDb; namespace SiteUrls{ ...
Accesss数据库的DBhelper类（带分页）
weixin_30905981的博客
03-04 208
首先配置web.config，使配置文件连接access数据库： <connectionStrings> <add name="DBConnection" connectionString="Provider=Microsoft.Jet.Oledb.4.0;Data Source=|DataDirectory|#lcng.mdb" /> //数据库在本网站A...
java access 分页查询语句,简单又高效的Access分页语句
weixin_30607125的博客
03-19 281
Access实现分页其实也可以在查询语句里面做。除了流行的top分页法之外，其实还有一种更简单，更容易理解，并且效率也不低的分页法。先来一段传统的top分页法。SELECT TOP 10 *FROM TestTableWHERE (ID >=(SELECT MAX(id)FROM (SELECT TOP 21 idFROM TestTableORDER BY id) AS T))ORDER ...
java access 分页查询_Access数据库的高效分页
weixin_35948624的博客
02-25 174
最近在做一个blogs,因为空间的限制,只能用Access数据库测试了一下,当数据量2000+的时候分页比较慢我的SQL语句是sql = "select top 10 * from tb_article where id not in (select top " + current * 10 + " id from tb_article order by id desc ) order by id...
Access数据库查询分页方法
hangl_ciom的博客
08-04 4722
对于数据库记录比较多的情况，查询时就需要分页，以下叙述两种分页方法。 1 Access查询结果分页方法一 1.1 方法 设每页记录数为CntPerPage，要获得第Page页的查询结果，用以下SQL语句。 SELECT * FROM (SELECT TOP CntPerPage * FROM( SELECT TOP Page*CntPerPage * FROM TableName WHERE Qu...
ACCESS高效分页
低调地装B的代码农
05-16 552
由于Access数据库内没有存储过程一说. 那么实现它的分页上效率问题一直都是麻烦事..下面一段代码,相当来说算了很高效的了. 如果有什么更好的方法,请多指教! 谢谢! 调用方法： string strSql = " Select P.ProductID,P.ProClassID,P.ProductName,P.ProFlag,P.DateTime,P.ProductImage,C.Pro
Access分页语句
博客园: https://www.cnblogs.com/fger/
10-22 2481
select * from 数据表名 where id between (SELECT max(id) FROM (select top 1 id from 数据表名 order by id)) and ( SELECT max(id) FROM (select top 300 id from 数据表名 order by id)) 与SQL分页方式不同，不过SQL也可以使用这种方式 Top1和T...
Access数据库的高效分页
weixin_30762087的博客
05-29 237
来源：http://hi.baidu.com/ysuhy/blog/item/31e51f24f998546834a80faa.html ========================================= 以下所有分页方法只能用ID排序分页！不能用其他字段。 //max()分页方法只能根据ID（自增，主键，永远不会重复！），其他字段的话可能会出现重复的值，出现重复的值后用MA...
十万条Access数据表分页的两个解决方法
10-30
在处理十万条记录的Access数据库分页问题时，我们面临的主要难题是数据量大导致的性能瓶颈。当数据记录数量巨大时，如果采用不合适的分页方式，会导致数据库操作缓慢，用户体验极差。针对这个问题，我们可以采用以下...
asp高效分页类(ASP+Access)
09-14
"asp高效分页类(ASP+Access)"就是解决这个问题的一个解决方案，它提供了一种高效的方法来处理大量数据的分页显示，特别适用于使用Access数据库的Web应用程序。 在ASP中，实现分页通常涉及以下几个关键知识点： 1. ...
易语言-access数据库分页显示
06-29
本篇将详细讲解如何使用易语言实现Access数据库的记录分页显示，以及相关的关键知识点。 首先，我们需要了解Access数据库。Access是由微软开发的关系型数据库管理系统（RDBMS），它支持结构化查询语言（SQL）进行...
一种高效的ASP+ACCESS分页方法
05-29
本文将详细介绍一种适用于ACCESS数据库的高效分页方法，该方法不仅能够提高页面加载速度，减少服务器资源消耗，还能简化数据更新时的操作流程。 #### 传统分页方法的问题 1. **资源消耗高**：传统的分页方式通常...
Access大数据高效分页语句
weixin_34163741的博客
05-29 263
Access大数据高效分页语句 oracle的分页查询可以利用rowid伪列。 db2的分页查询可以利用row_number() over()聚合函数。 mysql有limit。 access仿佛先天缺陷，仅提供了top n。那如何利用top来实现分页查询呢？ 假设在access中有表t1 createtable t1( tc1 varchar(50)notnullp...
软件著作权申请教程（超详细）（2024新版）软著申请
m0_75269526的博客
09-09 2594
软件著作权，软著，软著申请，软用户使用手册：提交登记软件的任何一种文档的连续的前30页和连续的后30页，每页不少于30行。如果是多人合作开发著作权人不是一个人的话，还需要准备一份合作开发协议。首先我们需要在官网里面注册一个账号，并且完成实名认证，一般是注册【个人】的身份。合作开发协议书：这个如果是著作权人有多个（多个人一起开发）就需要提供这个材料。在填报完成之后需要打印一个签章页签字（如果不是个人需要盖章）注册完成后点击下面进行登记，如果没有实名需要先实名认证（源代码：源程序前连续的30页和后连续的30页。
js中【Worker】相关知识点详细解读
最新发布
2301_79858914的博客
09-11 565
JavaScript 中的 Worker 是一个可以在后台线程中运行代码的 API，这样可以避免主线程（通常是 UI 线程）被阻塞。使用 Worker 时，JavaScript 可以在多线程环境中工作，解决了单线程的瓶颈问题。通常情况下，JavaScript 是单线程的，也就是所有的代码（包括 DOM 操作和事件处理等）都在同一个线程里执行。如果某段代码需要大量计算，或者运行时间过长，会阻塞整个页面，导致界面卡顿甚至崩溃。Worker提供了一种将复杂或耗时的任务分配到后台线程执行的方法。
Module “console“ has been externalized for browser compatibility.
Alvin的博客
09-07 298
在 Vue 3.5.3 中使用 Vite 作为构建工具时，如果你尝试直接从。模块外部化了，这意味着它不会在客户端环境中暴露。去除导入 error 函数的代码。函数，会遇到一个错误，提示。这是因为 Vite 默认将。Vue 3.5.3 中。
echarts.js+china.js实现中国地图各省数据案例
qq_58258855的博客
09-11 366
实现中国地图各省数据案例
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值