首页 / ASP / ASP经典分页类

ASP经典分页类

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了ASP经典分页类，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含8994字，纯文字阅读大概需要13分钟。

内容图文

ASP经典分页类
出处

'=====================================================================
'XDOWNPAGE   ASP版本
'版本   1.00
'Code by  zykj2000
'Email:   zykj_2000@163.net
'BBS:   http://bbs.513soft.net
'本程序可以免费使用、修改，希望我的程序能为您的工作带来方便
'但请保留以上请息
'
'程序特点
'本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，
'支持URL多个参数
'
'使用说明
'程序参数说明
'PapgeSize      定义分页每一页的记录数
'GetRS       返回经过分页的Recordset此属性只读
'GetConn      得到数据库连接
'GetSQL       得到查询语句
'程序方法说明
'ShowPage      显示分页导航条,唯一的公用方法
'
'例:
'
'   '包含文件
'
' Set mypage=new xdownpage   '创建对象
' mypage.getconn=conn    '得到数据库连接
' mypage.getsql="select * from productinfo order by id asc"
' mypage.pagesize=5    '设置每一页的记录条数据为5条
' set rs=mypage.getrs()    '返回Recordset
' mypage.showpage()    '显示分页信息，这个方法可以，在set rs=mypage.getrs()以后
'        任意位置调用，可以调用多次
' for i=1 to mypage.pagesize    '接下来的操作就和操作一个普通Recordset对象一样操作
'  if not rs.eof then   '这个标记是为了防止最后一页的溢出
'   response.write rs(0) & "
" '这里就可以自定义显示方式了
'   rs.movenext
'  else
'   exit for
'  end if
' next
'
'=====================================================================

Const Btn_First="9"  '定义第一页按钮显示样式
Const Btn_Prev="3"  '定义前一页按钮显示样式
Const Btn_Next="4"  '定义下一页按钮显示样式
Const Btn_Last=":"  '定义最后一页按钮显示样式
Const XD_Align="center"     '定义分页信息对齐方式
Const XD_Width="100%"     '定义分页信息框大小
Const XD_Height="20"
Class Xdownpage
Private XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord

'=================================================================
'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
XD_Rs.Open XD_SQL,XD_Conn,1,1
If not(XD_Rs.eof and XD_RS.BOF) Then
  If int_curpage>XD_RS.PageCount Then
   int_curpage=XD_RS.PageCount
  End If
  XD_Rs.AbsolutePage=int_curpage
End If
Set GetRs=XD_RS
End Property

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

'================================================================
'GetSQL   得到查询语句
'
'================================================================
Public Property Let GetSQL(str_sql)
XD_SQL=str_sql
End Property

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

End Sub

'====================================================================
'ShowPage  创建分页导航条
'有首页、前一页、下一页、末页、还有数字导航
'
'====================================================================
Public Sub ShowPage()
Dim str_tmp

int_totalRecord=XD_RS.RecordCount
If int_totalRecord<=0 Then
  str_error=str_error & "总记录数为零，请输入数据"
  Call ShowError()
End If
If int_totalRecord  int_TotalPage=1
Else
  If int_totalRecord mod PageSize =0 Then
   int_TotalPage = Int(int_TotalRecord / XD_PageSize * -1)*-1
  Else
   int_TotalPage = Int((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=showNumBtn
response.write str_tmp
str_tmp=ShowNextLast
response.write str_tmp
str_tmp=ShowPageInfo
response.write str_tmp
'Response.write " "
ShowGoto
response.write "
"

End Sub

'====================================================================
'ShowFirstPrv  显示首页、前一页
'
'
'====================================================================
Private Function ShowFirstPrv()
Dim Str_tmp,int_prvpage
If int_curpage=1 Then
  str_tmp=Btn_First&" "&Btn_Prev
Else
  int_prvpage=int_curpage-1
  str_tmp=""&Btn_First&" "& Btn_Prev&""
End If
ShowFirstPrv=str_tmp
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=""&Btn_Next&" "& Btn_Last&""
End If
ShowNextLast=str_tmp
End Function

'====================================================================
'ShowNumBtn  数字导航
'
'
'====================================================================
'Private Function showNumBtn()
' Dim i,str_tmp
' For i=1 to int_totalpage
'  str_tmp=str_tmp & "["&i&"] "
' Next
' showNumBtn=str_tmp
'
'End Function
'====================================================================
'ShowNumBtn 修改后的数字导航
'
'====================================================================
Function showNumBtn()
Dim i,str_tmp,end_page,start_page
if int_curpage>4 then
  if int_curpage+2   start_page=int_curpage-2
  end_page=int_curpage+2
  else
   start_page=int_totalpage-4
   end_page=int_totalpage
  end if
else
  start_page=1
  if int_totalpage>5 then
   end_page=5
  else
   end_page=int_totalpage
  end if
end if
For i=start_page to end_page
  str_tmp=str_tmp & " ["&i&"] "
Next
showNumBtn=str_tmp
End Function

'====================================================================
'ShowGoto 页面跳转
'
'
'====================================================================
Private Function ShowGoto()
Dim M_item
'========================================================
'将返回的Url参数逐个的写入隐藏域中，以便与参数继续传递
'========================================================
For Each M_item In Request.QueryString
  If InStr("page",M_Item)=0 Then '从参数中除去 "page" 的值
   Response.Write ""
  End If
Next
'========================================================
response.write " 转到第："
response.write " 页 "
End Function

'====================================================================
'ShowPageInfo  分页信息
'更据要求自行修改
'
'====================================================================
Private Function ShowPageInfo()
Dim str_tmp
str_tmp=" [页次:"&int_curpage&"/"&int_totalpage&"页] [共"&int_totalrecord&"条] ["&XD_PageSize&"条/页]"
ShowPageInfo=str_tmp
End Function

'====================================================================
'修改后的获取当前Url参数的函数
'Codeing by Redsun
'====================================================================
Private Function GetUrl()
Dim ScriptAddress, M_ItemUrl, M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))&"?"'取得当前地址
If (Request.QueryString <> "") Then
  M_ItemUrl = ""
  For Each M_item In Request.QueryString
   If InStr("page",M_Item)=0 Then
    M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"
   End If
  Next
  ScriptAddress = ScriptAddress & M_ItemUrl'取得带参数地址
End If
GetUrl = ScriptAddress & "page="
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("
" & SW_Error & "")
  Response.End
End If
End Sub

End class

内容总结

以上是互联网集市为您收集整理的ASP经典分页类全部内容，希望文章能够帮你解决ASP经典分页类所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/384784.html

来源：【匿名】

【上一篇】收藏的ASP常用的函数集【下一篇】ASP知识讲座四

更多 ►

【ASP经典分页类】教程文章相关的互联网学习教程文章

ASP.NET MVC获取微信返回的json数据分页【代码】

View@model JiaYe.WeiXin.Models.ViewModels.UserViewModel <div class="pull-left pagination"><ul class="pagination pagination-outline">@{//分页算法：（总记录数+每页记录数-1）/每页记录数var totalPageNum = (Model.OpenIdResult.openid.Count + 10 - 1)/10;for (int id = 1; id <= totalPageNum; id++){<li class="page-number"><a href="/User/Index/@id">@id</a></li>}}</ul></div>Controllerpublic ActionResult Index...

ASP.NET MVC分页实现之改进版-增加同一个视图可设置多个分页

我之前就已经实现了ASP.NET MVC分页（查看该博文），但它有局限性，必须确保在同一个视图中只能有一处分页，若需要在同一个视图中设置多个分页，却无能为力，为此，我重新对原先的代码进行了优化，增加了更为灵活的配置属性及生成规则，解决了上述问题，代码如下：一、PageInfo类using System;using System.Collections.Generic;using System.Linq;using System.Web; namespace ROIS.Models{ /// <summary> /// 分页信息 ...

AspNetPager分页记录显示实例【图】

在牛腩视频中的最后一集，涉及到了一个外部控件AspNetPager实现分页记录显示的一个小例子没有完成，据了解分页显示功能在软件设计中是很重要的一个功能，因此，在这里讲未完成的工作完成。在视频中讲到，gridview的分页功能属于假分页，为什么呢？因为每次分页必须查询完数据库中所有的记录，这样如果数据量过大，将会造成很大不便。所以选择了AspNetPager这个控件。其实，这个控件只是提供了一个分页功能，它并不能显示...

ASP基础教程:ADO存取数据库时如何分页显示

《动态网站设计十八般武艺 --ASP 篇》一文从第一期至今已和朋友们一起度过了大半个年头，相信通过在这一段时间中的学习、实践到再学习、再实践，大家已经能够熟练运用 ASP 的内建对象、 ActiveX 组件去编写一些基本的 ASP 应用程序。从我收到的朋友们的来信中可以明显的感觉到，大家的 ASP 功力正不断地提升。最近很多朋友来信希望我写一些 ASP 在现实运用中的实例。因此，从本期开始我决定将《动态网站设计十八般武艺 --ASP 篇》的...

ASP.NET C# List分页

List.Skip((pagecount-1)*pagesize).Take(pagesize)假设你每页10条数据当前是第3页跳到第4页则:List.Skip((4-1)*10).Take(10)本文来自SunShine，转载请标明出处：http://do.jhost.cn/sunshine/ReadNews?action=read&id=227原文：http://www.cnblogs.com/hgmyz/p/6370871.html

ASP正则函数替换分页后的参数

Function DRexPage(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.IgnoreCase=True RegEx.pattern="(\&)?page=(\d)+" DRexPage=regEx.replace(Str,"") ‘(Str,"$1") Set RegEx=Nothing End Function 在分页系统里面用到的把page后面得东西都给丢掉原文：http://www.jb51.net/article/15266.htm

ASP.NET MVC5 PagedList分页示例【图】

ASP.NET MVC是目前ASP.NET开发当中轻量级的Web开发解决方案，在ASP.NET MVC概述这篇译文当中，已经详细的介绍了ASP.NET MVC与Web Forms的区别以及各自的适用场景。由于ASP.NET MVC尤其适合网站的开发（Web Forms更适合业务系统的开发），目前成为很多网站开发者的首先框架。这里举个典型的例子（表格的分页），以此熟悉一下ASP.NET MVC的开发。开发环境：Windows 8.1企业版+VS2013旗舰版+SQL Server 2014。首先利用VS2013的向导，创...

LayUI分页基于ASP.NET MVC【代码】【图】

---恢复内容开始---今天写了挺久的分页，百度了很多都没有很好的.Net实例，今天我来更新一期关于layuiTable分页首先你得理解layui的官方文档的Table分页部分，我在这里附上地址 https://www.layui.com/doc/modules/table.html 方便你们随时边看我的实例和lay文档其实我写的很简单首先介绍我用到的东西，使用前段模板：layui的table和layui的表单（此处不细提），开发工具：Vs2017，数据库：Sqlserver2008，ORM：EF，框架：ASP.NET ...

asp网络编程:ASP中几种分页显示的比较

下面通过对比来看看几种方式的用时对比。　　一，使用存储过程分页，这种情况又分为两种方式：　　第一种，使用command对象，如下：　　Set Cmd=server.CreateObject("Adodb.Command")　　Cmd.ActiveConnection=conn　　Cmd.CommandText="ycuu_gb_getmsg"　　Cmd.CommandType=4‘adCmdStoredProc　　cmd.prepared=true‘　　set param=Cmd.CreateParameter("@iPageNo",adInteger,1,2,Page)　　Cmd.Parameters.Append param　　set ...

Entity Framework后台采用分页方式取数据与AspNetPager控件的使用【代码】【图】

本文是一个对AspNetPager控件使用的笔记!　　有关AspNetPager控件可以查看杨涛主页。这是一个开放的自定义ASP.NET控件，支持各种自定义的数据分页方式，使用很方便，而且功能也很强大，网站开发过程中使用该控件可以省去很多不必要的麻烦。　　本页下载：AspNetPager745DLL.zip　　然后看一下在页面上如何通过Entity Framework将分页数据传递给该控件以实现真分页。页面前端代码：<asp:ListView ID="listView_alternative" runat="...

asp.net实现简单分页实例

本文实例讲述了asp.net实现简单分页的方法。分享给大家供大家参考。具体实现方法如下：复制代码代码如下:/// <summary> /// 分页内容 /// </summary> /// <param name="size">页面大小</param> /// <param name="count">页面数量</param> /// <param name="currendIndex">当前页</param> /// <param name="pattern">url模式：demo.aspx?page={0}</param> /// <param name="target">窗口模式</param> /// <returns></returns> publ...

ASP.NET的分页方法（四）【代码】

这是我早先得到的一段JS代码，只需要修改一下开头的几个参数，就可以使用，不知道能否试用于静态页面呢，大家可以尝试一下 <script language="javascript">var obj, j;var page = 0;var nowPage = 0;//当前页var listNum = 3;//每页显示<ul>数var PagesLen;//总页数var PageNum = 4;//分页链接接数(5个)onload = function () {obj = document.getElementById("pageshow").getElementsByTagName("li");j = obj.lengthPag...

Asp.net mvc项目分页功能【代码】【图】

1.定义一个分页用的Page<T>类 1/* 使用示例：2 var pager = new Pager<Article>(3 this.ControllerContext, //上下文4 type.Articles,//数据源5 10//,每页大小6 //"page" url中分页参数名称，默认为page7 );8 * */ 9///<summary> 10/// 基于ControlerContext的分页辅助类11///</summary> 12///<typeparam name="T"></typeparam> 13 14publi...

ASPNETPager常用属性（近来用到分页属性）

ASPNETPager常用属性建议去封装好，然后调用这样比较容易<webdiyer:aspnetpager id="AspNetPager1" runat="server" alwaysshow="True" PageSize="5" custominfosectionwidth="20%" custominfotextalign="Right" firstpagetext="第一页" horizontalalign="Left" lastpagetext="末一页" navigationbuttontype="Image" nextpagetext="后...

ASP分页格式

page=trim(request.form("page"))sqlTemp=""session("sqlSearch")=sqlTemp&""rsM.open session("sqlSearch"),connM,1,1 countYes=trueif rsM.eof then Response.write "0215-|-"%><table class="tableMa" cellspacing="1px" cellpadding="0"> <tr> <th>暂无数据</th> </tr></table><% countYes=false‘无消息 Response.end else rsM.PageSize = 10 ...

ASP - 技术教程分类

ASP 教程 ASP 简介 ASP 安装 ASP 语法 ASP 变量 ASP 程序 ASP 表单 ASP Cookies ASP Session ASP Application ASP #include ASP Global.asa ASP 发送电子邮件 ASP Response ASP Request ASP Application ASP Session ASP Server ASP Error ASP FileSystem ASP Drive ASP File ASP Folder ASP Dictionary ASP ADO ASP Content Rotator AJAX 简介 AJAX ASP AJAX 数据库 ASP 快速参考 ASP 总结 ASP 实例 asp 全部

ASP - 最热教程

查看ASP详细错误提示信息的图文设置方法 asp实现本周的一周时间列表的代码 asp取得数组中的最大值的方法 ASP实现URL编码 asp中把数据导出为excel的2种方法 ASP模拟POST请求异步提交数据的方法 asp 获取access系统表，查询等操作代码 asp实现二进制字符串转换为Unicode字符...asp php jsp的区别有哪些 ASP常用源代码的总结（下）

首页 / ASP / ASP经典分页类

ASP经典分页类

内容导读

内容图文

内容总结

内容备注

内容手机端

【ASP经典分页类】教程文章相关的互联网学习教程文章

ASP.NET MVC获取微信返回的json数据分页【代码】

ASP.NET MVC分页实现之改进版-增加同一个视图可设置多个分页

AspNetPager分页记录显示实例【图】

ASP基础教程:ADO存取数据库时如何分页显示

ASP.NET C# List分页

ASP正则函数替换分页后的参数

ASP.NET MVC5 PagedList分页示例【图】

LayUI分页基于ASP.NET MVC【代码】【图】

asp网络编程:ASP中几种分页显示的比较

Entity Framework后台采用分页方式取数据与AspNetPager控件的使用【代码】【图】

asp.net实现简单分页实例

ASP.NET的分页方法（四）【代码】

Asp.net mvc项目分页功能【代码】【图】

ASPNETPager常用属性（近来用到分页属性）

ASP分页格式

ASP - 相关标签

ASP - 技术教程分类

ASP - 最新教程

ASP - 最热教程