asp分页经典程序

最新推荐文章于 2019-07-19 15:51:46 发布
最新推荐文章于 2019-07-19 15:51:46 发布
阅读量833 收藏
点赞数
分类专栏： ASP 文章标签： asp function float input class div
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/itzhiren/article/details/6053628
版权

<%

'※------------------------些为ASP网页程序序分页类-----------------------※

'※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

'

'说明部分:外部可访问函数:

' 【GetPerPage】 整型 返回当前页

' 【GetTotalPage】 整型 返回总页数

' 【GetStartEndInfo】 数组 返回首尾号

' 【GetStart】 整型 返回查询语句开始取数

' 【GetEnd】 整型 返回查询语句结束取数

' 【GetPerNextInfo】 数组 返回上下页数字

' 【GetPerNextMoreInfo】 数组 返回上几页下几页数字

' 【GetPerNext】 数组 返回封装的上下页

' 【GetPerNextMore】 数组 返回封装的上几页下几页

' 【GetPageHeader】 字符串 返回封装分页头信息

' 【GetPageBody】 字符串 返回封装的分页主体信息

' 【GetPageEnd】 字符串 返回封装的分页尾部信息

' 【PageInfo】 字符串 返回封装的完整分页信息

' 【PageList】 封装的分页主体执行函数

'使用说明:

' 在所使用的文件中Include()本文件,使用New操作符新创建一个本对象。新创建对象时需设置构造函数所需参数

' 参数说明如下构造函数说明处！

Class PageList

'-------------------------定义类中用到的全局变量----------------------

Private PerPage '当前页数

Private PerLimit '当前每页显示条数

Private PerPageLimit '当前每页显示页数

Private TotalNums '当前分页中的总条数

Private TotalPage '当前分页中总页数

Private PageUrl '定义当前网页路径

Private PageStart '定义当前开始末ID

Private PageEnd '定义当前结束ID

Private PageStyle '定主当前分页显示样式

Private PageHeader '定义显示头部分

Private PageBody '定义显示主体部分

Private PageBottom '定义显示尾部分

Private DisplayInfo

'-----------------------------------初始化所有固定变量-------------------------------

'入口参数: pageParameter(0） :信息总条数

'pageParameter(1）:每页显示条数

'pageParameter(2）:每页显示页数

'styleParameter(0):动静态风格，true为动态 false为静态 no为不显示

'styleParameter(1):前几页后几页,上一页下一页风格.true为前几页 false为上一页 no为不显示

'styleParameter(2):设置跳转函数true为下拉 false为submit加input no为不显示

'styleParameter(3):设置是否显示主体部分

'初始化对像函数

Private Sub Class_Initialize()

On Error Resume Next

Set PageStyle = CreateObject("Scripting.Dictionary")

PageStyle.Add "DS","false"

PageStyle.Add "PN","true"

PageStyle.Add "JP","true"

PageStyle.Add "BY","true"

PerPage=cint(Request.QueryString("page"))

End Sub

'在此说明：如果设置为动态的、上一页下一页风格则为中部动态。如果设置为静态则只能为上几页和下几页

' 如果设置为动态的、上几页下几页风格则为步进动态

Public Property Let InitPara(PLRs)

If isArray(PLRs) Then

TotalNums=PLRs(0)

PerLimit=PLRs(1)

PerPageLimit=PLRs(2)

Else

TotalNums=1

PerLimit=1

PerPageLimit=1

End If

End Property

Public Property Let DisplayStyle(styleParameter)

If isArray(styleParameter) Then

PageStyle.Item("DS")=styleParameter(0) '动态样式

PageStyle.Item("PN")=styleParameter(1) '上下页样式

PageStyle.Item("JP")=styleParameter(2) '表单样式风格

PageStyle.Item("BY")=styleParameter(3) '设置主体部分风格

End If

End Property

'-------------定义得到前台显示变量函数---------------

Public Property Get PageInfo()

PageInfo=DisplayInfo

End Property

'-------------定义取得当前分页中的当前页函数------------------------------

Public ProPerty Get GetPerPage()

GetPerPage=PerPage

End ProPerty

'-------------定义取得当前分页类中总页数函数------------------------------

Public ProPerty Get GetTotalPage()

GetTotalPage=TotalPage

End ProPerty

Public ProPerty Get GetStart()

GetStart=(PerPage-1)*PerLimit+1

End ProPerty

'-----------------定义取得当前页中信息首尾号函数---------------------------

Public Property Get GetEnd()

Dim Ends

Ends=GetStart()+PerLimit-1

If Ends>TotalNums Then Ends=TotalNums

GetEnd=Ends

End Property

'--------------定义创建分面显示内容------------------------------------

Public Sub PageList()

Call SetDefaultStyle()

Call SetPageUrl()

Call SetToTalPage()

Call SetPerPage()

Call SetStaticDynamic()

Call SetDisplayPageInfo()

End Sub

'------------定义设置强制风格函数----------------------------------------

Private Sub SetDefaultStyle()

If PageStyle("DS")="false" Then

If PageStyle("PN")<>"no" Then PageStyle("PN")="true"

End If

If PageStyle("BY")="no" Then PageStyle("PN")="false"

End Sub

'-------------定认取得当前网页路径函数----------------------------------

Private Sub SetPageUrl()

On Error Resume Next

Dim queryString

Dim tmp_str

Dim tmp_key,tmp_array

queryString =Request.ServerVariables("QUERY_STRING")

queryString = Split(Request.ServerVariables("QUERY_STRING"), "&")

For Each tmp_key In queryString

tmp_array = Split(tmp_key,"=")

If tmp_array(0)<>"page" Then

tmp_str = tmp_str & tmp_array(0) & "=" & tmp_array(1) & "&"

End If

Next

PageUrl="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")&"?"&tmp_str

End Sub

'-------------定义设置当前分页类中总页数函数------------------------------

Private Sub SetTotalPage()

TotalPage=Abs(Int(-TotalNums/PerLimit))

End Sub

'--------------定义设置当前分页类中当前页数------------------------------

Private Sub SetPerPage()

If PerPage<=0 Then

PerPage=1

elseIf PerPage>TotalPage Then

PerPage=TotalPage

End IF

End Sub

'----------定义取得是否有上下页函数-----------------------------------

Public Function GetPerNextInfo()

Dim per,nexts

If PerPage>1 Then

per=PerPage-1

Else

per=false

End If

If PerPage<TotalPage Then

nexts=PerPage+1

Else

nexts=false

End If

GetPerNextInfo=array(per,nexts)

End Function

'-----------------定义取得是否有上几页和下几页函数-----------------

Public Function GetPerNextMoreInfo()

Dim start,ends

If PerPage>PerPageLimit Then

start=PageStart-1

Else

start=false

End If

If PageEnd<TotalPage Then

ends=PageEnd+1

Else

ends=false

End If

GetPerNextMoreInfo=array(start,ends)

End Function

'-----------------定义取得当前步进动态分页信息函数----------------------------

Private Sub SetDynamicPageInfo()

PageStart=PerPage

If PageStart<=0 Then PageStart=1

PageEnd=PerPageLimit+PageStart-1

If PageEnd>TotalPage Then PageEnd=TotalPage

End Sub

'-----------------定义取得当前中间动态分页信息函数----------------------------

Private Sub SetMidDynamicPageInfo()

Dim add

add=fix(PerPageLimit/2)

PageStart=PerPage-add

If PageStart<=0 Then PageStart=1

PageEnd=PerPageLimit+PageStart-1

If PageEnd>TotalPage Then PageEnd=TotalPage

End Sub

'-------------定义取得当前静态分页信息函数-------------------------------

Private Sub SetStaticPageInfo()

starts=PerPage/PerPageLimit

If starts-fix(starts)>0 Then

starts=fix(starts)

Else

starts=starts-1

End If

PageStart=starts*PerPageLimit+1

PageEnd=PageStart+PerPageLimit-1

If PageEnd>TotalPage Then PageEnd=TotalPage

End Sub

'------------定义通过判断是静动态来设置首尾号----------------

Private Sub SetStaticDynamic()

If PageStyle("DS")="false" Then

SetStaticPageInfo()

ElseIF PageStyle("DS")="true" Then

If PageStyle("PN")="true" Then

SetDynamicPageInfo()

Else

SetMidDynamicPageInfo()

End If

Else

SetStaticPageInfo()

End If

End Sub

'-------------定义显示前几页和后几页函数----------------------------

Public Function GetPerNextMore(mark)

Dim tmp_str

If PageStyle("PN")="false" or PageStyle("PN")="no" Then

PageBody=PageBody&""

GetPerNextMore=""

Exit Function

End If

IfPerNextArray=GetPerNextMoreInfo()

If PageStyle("DS")="true" and PageStyle("DS")="true" Then

IfPerNextArray(0)=IfPerNextArray(0)+1-PerPageLimit

If IfPerNextArray(0)<=0 Then IfPerNextArray(0)=1

If PerPage=1 Then IfPerNextArray(0)=false

End If

If IfPerNextArray(0) and mark="true" Then tmp_str="<font face='Webdings'><a href="&PageUrl&"page="&IfPerNextArray(0)&" title=前"&PerPageLimit&"页>9</a></font>"&chr(10)

If IfPerNextArray(1) and mark<>"true" Then tmp_str="<font face='Webdings'><a href="&PageUrl&"page="&IfPerNextArray(1)&" title=后"&PerPageLimit&"页>:</a></font>"&chr(10)

PageBody=PageBody&tmp_str

GetPerNextMore=tmp_str

End Function

'-------------定义显示前一页和后一页函数----------------------------

Public Function GetPerNext(mark)

Dim tmp_str

If PageStyle("PN")<>"false" Then

GetPerNext=""

Exit Function

End If

IfPerNextArray=GetPerNextInfo()

If IfPerNextArray(0) and mark="true" Then tmp_str="<font face='Webdings'><a href="&PageUrl&"page="&IfPerNextArray(0)&" title= 前一页>3</a></font> "

If IfPerNextArray(1) and mark<>"true" Then tmp_str="<font face='Webdings'><a href="&PageUrl&"page="&IfPerNextArray(1)&" title=后一页>4</a></font>"

PageBody=PageBody&tmp_str

GetPerNext=tmp_str

End Function

'-------------------定义显示分页头函数-------------------

Public Function GetPageHeader()

Dim tmp_str

If PageStyle("DS")="no" Then

GetPageHeader=""

Exit Function

End If

tmp_str="第"&PerPage&"页/共"&GetTotalPage()&"页 共"&TotalNums&"条"

PageHeader="<div style='float:left;display:inline;width:25%'>"&tmp_str&"</div>"&Chr(10)

GetPageHeader=tmp_str

End Function

'-------------------定义显示分页主体函数-------------------

Public Function GetPageBody()

If PageStyle("BY")="no" Then

GetPageBody=""

Exit Function

End IF

For PageStart=PageStart to PageEnd

If PerPage=PageStart Then

PageBody=PageBody&"<a href="&PageUrl&"page="&PageStart&" title=第"&PageStart&"页><span style='color:#F00'><b>["&PageStart&"]</b></span></a>"&Chr(10)

Else

PageBody=PageBody&"<a href="&PageUrl&"page="&PageStart&" title=第"&PageStart&"页>["&PageStart&"]</a>"&Chr(10)

End If

Next

GetPageBody=PageBody

End Function

'-------------------定义显示分页主体函数-------------------

Private Sub SetPageBody()

GetPerNextMore("true")

GetPerNext("true")

GetPageBody()

GetPerNextMore("false")

GetPerNext("false")

PageBody="<div style='float:left;display:inline;width:45%;text-align:center'>"&PageBody&"</div>"&Chr(10)

End Sub

'-------------------定义显示分页尾函数-------------------

Public Function GetPageEnd()

Dim tmp_str

If PageStyle("JP")="no" Then

GetPageEnd=""

PageBottom=""

Exit Function

ElseIF PageStyle("JP")="true" Then

tmp_str="跳到<select name='pageSelect' onChange='document.location=this.value'>"

for i=1 to GetTotalPage()

If i=PerPage Then

tmp_str=tmp_str&"<option value="&PageUrl&"page="&i&" selected>"&i&"</option>"

Else

tmp_str=tmp_str&"<option value="&PageUrl&"page="&i&">"&i&"</option>"

End If

Next

tmp_str=tmp_str&"</select>页"

ElseIF PageStyle("JP")="false" Then

tmp_str="<input type='text' name='pageSelect' id='pageSelect' size='3' maxlength='5' value='"&PerPage&"'>"

tmp_str=tmp_str&" <input type='button' value='GO' onClick=""document.location='"&PageUrl&"page='+ pageSelect.value"">"

End If

PageBottom="<div style='float:right;display:inline;width:20%'>"&tmp_str&"</div>"&Chr(10)

GetPageEnd=tmp_str

End Function

'-------------定义得到前台显示变量函数---------------

Private Sub SetDisplayPageInfo()

GetPageHeader()

SetPageBody()

GetPageEnd()

DisplayInfo="<div style='margin:5px;'>"&chr(10)&PageHeader&PageBody&PageBottom&"</div>"

End Sub

End Class

%>

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

调用例子：

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<meta name="robots" content="noindex, nofollow">

<title>ASP分页程序</title>

<style type="text/css">

a{

color: #000000;

text-decoration: none;

}

a:hover {

color: #000000;

text-decoration: underline;

}

</style>

</head>

<!--#Include file="PageList.asp"-->

<%

Dim a

Set a=New PageList

totalList=1000

'模拟分页一页显示条数

listLimit=5

'模拟分页一页显示分页数

pageLists=10

'设置分页参数

a.InitPara=array(totalList,listLimit,pageLists)

a.PageList()

For i=a.GetStart to a.GetEnd

response.write i&"<br>"

Next

response.write a.PageInfo

%>

</html>

 

搜出来的，有空的时候可以研究一下

itzhiren
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
ASP分页方法集合
关注技术
04-08 1058
Set rs = Server.CreateObject ("ADODB.Recordset")sql = "Select * from cnarticle"rs.Open sql,conn,1,1%>page=request.querystring("page") page值为接受值rs.PageSize = 2 每页显示记录数if Not IsEmpty(page) then 如果pag
ASP经典分页类
10-31
ASP经典分页类 ASP经典分页类是一个经典的分页类，主要用于对数据进行分页操作。该类具有以下特点： ...ASP经典分页类是一个功能强大且易于使用的分页类，非常适合大多数Web应用程序的分页需求。
ASP分页代码【已封装】
.cpp的应用开发指南
07-08 160
&lt;% '+++++++++++++++++++++++++++++++++++++ '◆ 模块名称： 公共翻页模块 '◆文 件 名： TurnPage.asp '◆传入参数： Rs_tmp (记录集), PageSize (每页显示的记录条数) '◆输 出： 记录集翻页显示功能 '+++++++++++++++++++++++++++++++++++++ ' Sub Tu...
ASP通用分页类
weixin_30839881的博客
08-30 60
1.Conn属性　　　 ：用来获取一个已创建的Connection对象。 2.SQL属性　　　　　 ：根据传入的SQL语句，自动创建RecordSet对象 3.PageSize属性　　 ：设置第页的记录条数 4.FieldList属性　　　 ：如果需要显示库中的数据，一定要设置此属性。它是用来获取需要显示的正确的字段名。 5.URL属性　　　...
ASP万用分页程序
01-02
下面这段是基本的分页代码：  ……………………省略了sql语句 　Set rs=Server.Createobject(ADODB.RECORDSET) 　rs.Open sql, conn, 1, 1 　if not rs.eof then 　pages = 30 '定义每页显示的记录数 　rs....
asp中无限流分页程序代码
01-20
‘****************************************************************** ‘** 本程序名：”无限流”分页程序 ‘** 作者：Arbiter(AAsx) ‘** 版本：Million Level ‘** ‘** QQ：22222xx ‘** Email：...
asp分页（自己整理的2个分页程序）
01-03
<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936″%> <!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” ... <head> <... charset=gb2312″ />...asp分页程序</
ASP.NET程序中用Repeater实现分页
01-01
一、程序功能：　为Repeater实现分页　二、窗体设计：　1、新建ASP.NET Web应用程序，命名为Repeater2，保存路径为http://192.168.0.1/Repeater2（注：我机子上的网站的IP是192.168.0.1的主目录是D:\web文件夹）然后...
ASP分页类(支持多风格变换)
01-20
这个分页使用的是0游标，也就是Rs.Open Sql,Conn,0,1。但是感觉也快不了多少，10万条数据的分页时间300多豪秒之间。 代码如下:<% ‘****************************** ‘名称：分页类 ‘日期：2005/12/3 ‘作者：西楼冷月 ‘网址：www.xilou.net | www.chinaCMS.org ‘描述：无 ‘版权：转载请注名出处，作者 ‘****************************** Class Page Private CurrPage Private PageN Private UrlStr Private
asp分页类，很详细，很快
03-07
asp分页类，asp分页类，很详细，很快
asp分页类,套用方便,收藏
07-29
asp分页类,套用方便,值得收藏
asp高效分页类(ASP+Access)
09-14
asp高效分页类(ASP+Access),写了一个分页类，传递需要的参数即可，主要是速度比较高。Access数据库已经填充了几十万条数据，用于测试速度
ASP分页代码，已经写成类了，值得参考 转自 cuiwl 的 Blog
11-15 1247
 ASP通用分页类一、类的属性、方法　　这是一个ASP通用分页类。你可以用它方便的给记录集分页，当然在网上有许多的分页类和分页函数。本分页主要有Conn、SQL、URL、FieldList、PageSize、Template、Init、Show、Close等属性和方法。　　1.Conn属性　　　 ：用来获取一个已创建的Connection对象。　　2.SQL属性　　　　　 ：根据传入的
叶子ASP分页类
wvtjplh的专栏
01-20 2040
叶子的分页方法，目前版本是0.04 Beta，是才子目前见过最快的分页法，逐页翻页速度极快，平均只有=================================================================名称:    叶子asp分页类-ac调用示范Name:    ShowoPage(asp class)RCSfile:   pageAC.aspRevisi
ASP - 三种常用分页
qq_19250999的博客
07-19 440
前段时间一直被公司后台数据翻页卡顿的问题困扰，因为数据量比较大，使用的是Adodb的Recordset对象进行数据遍历。 当时猜测是由于Recordset每次都读取了所有数据，并且每次翻页都刷新了页面，没有利用Recordset的缓存优势进行翻页，所以导致数据加载非常慢。 解决办法： 1. Recordset + JS无刷新翻页 使用Recordset方式，由于是因为Recordset的缓存没有得...
asp分页代码
aaa117659928的专栏
09-17 324
如果有提示编码问题 请删除调试提示的错误编码即可 &lt;div class="abc"&gt;当前账户余额：&lt;%=zcje%&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &lt;a href="usecz.asp"&gt;充值&lt;/a&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值