支持多风格变换的ASP分页类图 - 军军小站|张军博客

http://www.corange.cn//uploadfiles/080813_67414.jpg

这个分页使用的是0游标，也就是Rs.OpenSql,Conn,0,1。但是感觉也快不了多少，10万条数据的分页时间300多豪秒之间。

<%
'******************************
'名称：分页类
'日期：2005/12/3
'作者：西楼冷月
'网址：www.xilou.net|www.chinaCMS.org
'描述：无
'版权：转载请注名出处，作者
'******************************
ClassPage
PrivateCurrPage
PrivatePageN
PrivateUrlStr
PrivateTempStr
PrivateErrInfo
PrivateIsErr
PrivateTotalRecord
PrivateTotalPage
PublicPageRs

PrivateTempA(11)
PrivateTempB(8)
'------------------------------------------------------------
PrivateSubClass_Initialize()
CurrPage=1'//默认显示当前页为第一页
PageN=10'//默认每页显示10条数据
UrlStr="#"
TempStr=""
ErrInfo="ErrInfo:"
IsErr=False
EndSub
PrivateSubClass_Terminate()
IfIsObject(PageRs)Then
PageRs.Close
SetPageRs=Nothing
EndIf
EraseTempA
EraseTempB
EndSub
'----------------------------------------------------------
'//获取当前页码
PublicPropertyLetCurrentPage(Val)
CurrPage=Val
EndProperty
PublicPropertyGetCurrentPage()
CurrentPage=CurrPage
EndProperty
'//获取每页显示条数
PublicPropertyLetPageNum(Val)
PageN=Val
EndProperty
PublicPropertyGetPageNum()
PageNum=PageN
EndProperty
'//获取URL
PublicPropertyLetUrl(Val)
UrlStr=Val
EndProperty
PublicPropertyGetUrl()
Url=UrlStr
EndProperty
'//获取模板
PublicPropertyLetTemp(Val)
TempStr=Val
EndProperty
PublicPropertyGetTemp()
Temp=TempStr
EndProperty
'------------------------------------------------------------

PublicSubExec(Sql,ConnObj)
OnErrorResumeNext
SetPageRs=Server.CreateObject("ADODB.RecordSet")
PageRs.CursorLocation=3'使用客户端游标，可以使效率提高
PageRs.PageSize=PageN'定义分页记录集每页显示记录数
PageRs.OpenSql,ConnObj,0,1
IfErr.Number<>0Then
Err.Clear
PageRs.Close
SetPageRs=Nothing
ErrInfo=ErrInfo&"建立或打开记录集错误..."
IsErr=True
Response.WriteErrInfo
Response.End
EndIf
TotalRecord=PageRs.RecordCount'//如果为0呢？
IfTotalRecord>=1Then
'----------------------------------------------------------------------------开始
'//计算总页数,Ps,为什么不用PageRs.PageCount呢？
'IfTotalRecordModPageN=0Then
'TotalPage=PageRs.RecordCount\PageN
'Else
'TotalPage=PageRs.RecordCount\PageN
'TotalPage=Abs(Int(TotalPage))
'EndIf
TotalPage=PageRs.PageCount
'//处理当前接收页码,默认的为1，所以不是数字类型的都会为1
IfIsNumeric(CurrPage)Then
CurrPage=CLNg(CurrPage)
IfCurrPage<1ThenCurrPage=1
IfCurrPage>TotalPageThenCurrPage=TotalPage
Else
'//DimM:M="":IsNumeric(M)=True
CurrPage=1
EndIf
'---------------------------------------------------------------------------结束
Else
TotalPage=0
CurrPage=1
EndIf
'//
PageRs.AbsolutePage=CurrPage'absolutepage：设置指针指向某页开头
PageRs.PageSize=PageN
EndSub
PrivateSubInit()
'PrivateTempA(10)
TempA(1)="{N1}"'//首页
TempA(2)="{N2}"'//上一页
TempA(3)="{N3}"'//下一页
TempA(4)="{N4}"'//尾页
TempA(5)="{N5}"'//当前页码
TempA(6)="{N6}"'//页码总数
TempA(7)="{N7}"'//每页条数
TempA(8)="{N8}"'//文章总数
TempA(9)="{L}"'//循环标签开始
TempA(10)="{N}"'//循环内单标签：页码
TempA(11)="{L/}"'//循环标签结束
'PrivateTempB(8)
TempB(1)="首页"
TempB(2)="上一页"
TempB(3)="下一页"
TempB(4)="尾页"
TempB(5)=CurrPage'//当前页码
TempB(6)=TotalPage'//页码总数
TempB(7)=PageN'//每页条数
TempB(8)=TotalRecord'//文章总数
EndSub
PublicSubShow(Style)
IfIsErr=TrueThen
Response.WriteErrInfo
ExitSub
EndIf

CallInit()
SelectCaseStyle
Case1
Response.WriteStyleA()
Case2
Response.WriteStyleB()
Case3
Response.WriteStyleC()
Case4
Response.WriteStyleD()
CaseElse
ErrInfo=ErrInfo&"不存在当前样式..."
Response.WriteErrInfo
EndSelect
EndSub
PublicFunctionShowStyle(Style)
IfIsErr=TrueThen
ShowStyle=ErrInfo
ExitFunction
EndIf

CallInit()
SelectCaseStyle
Case1
ShowStyle=StyleA()
Case2
ShowStyle=StyleB()
CaseElse
ErrInfo=ErrInfo&"不存在当前样式..."
ShowStyle=ErrInfo
EndSelect
EndFunction

PrivateFunctionStyleA()
'首页上一页下一页尾页本页为第1/20页，共20页，每页10条，文章总数200条
'//分页样例：[首页][上页][下页][尾页][页次：4/5页][共86篇20篇/页]转到：_页
'//标签：{N1}{N2}{N3}{N4}||共:{N8}条记录{N6}页当前为第{N5}页每页{N7}条
IfIsEmpty(TempStr)Then
ErrInfo=ErrInfo&"模板为空..."
StyleB=ErrInfo
ExitFunction
EndIf
DimM
IfTotalPage>1Then
IfCurrPage>1Then
M="<ahref='"&UrlStr&"Page=1'>"&"首页"&"</a>"
TempStr=Replace(TempStr,"{N1}",M)
M="<ahref='"&UrlStr&"Page="&CurrPage-1&"'>"&"上一页"&"</a>"
TempStr=Replace(TempStr,"{N2}",M)
IfCurrPage<TotalPageThen
M="<ahref='"&UrlStr&"Page="&CurrPage+1&"'>"&"下一页"&"</a>"
TempStr=Replace(TempStr,"{N3}",M)
M="<ahref='"&UrlStr&"Page="&TotalPage&"'>"&"尾页"&"</a>"
TempStr=Replace(TempStr,"{N4}",M)
Else
TempStr=Replace(TempStr,"{N3}","下一页")
TempStr=Replace(TempStr,"{N4}","尾页")
EndIf
Else
TempStr=Replace(TempStr,"{N1}","首页")
TempStr=Replace(TempStr,"{N2}","上一页")
M="<ahref='"&UrlStr&"Page="&CurrPage+1&"'>"&"下一页"&"</a>"
TempStr=Replace(TempStr,"{N3}",M)
M="<ahref='"&UrlStr&"Page="&TotalPage&"'>"&"尾页"&"</a>"
TempStr=Replace(TempStr,"{N4}",M)
EndIf
Else
TempStr=Replace(TempStr,"{N1}","首页")
TempStr=Replace(TempStr,"{N2}","上一页")
TempStr=Replace(TempStr,"{N3}","下一页")
TempStr=Replace(TempStr,"{N4}","尾页")
EndIf
T=TempStr
T=Replace(T,"{N8}",TotalRecord)
T=Replace(T,"{N6}",TotalPage)
T=Replace(T,"{N5}",CurrPage)
T=Replace(T,"{N7}",PageN)
TempStr=T
StyleA=TempStr
EndFunction

PrivateFunctionStyleB()
'首页|<1234567>|尾页
'//标签:{N1}{N2}{L}{N}{L/}{N3}{N4}
IfIsEmpty(TempStr)Then
ErrInfo=ErrInfo&"模板为空..."
StyleB=ErrInfo
ExitFunction
EndIf
DimForceNum,BackNum'//当前页的前面和后面显示个数
ForceNum=5
BackNum=4
DimM
'//首页
M="<ahref='"&UrlStr&"Page=1'>"&TempB(1)&"</a>"
TempStr=Replace(TempStr,"{N1}",M)
'//尾页
M="<ahref='"&UrlStr&"Page="&TempB(6)&"'>"&TempB(4)&"</a>"
TempStr=Replace(TempStr,"{N4}",M)
'//前一页
M="|<"
IfCurrPage-1>=1Then
M="<ahref='"&UrlStr&"Page="&CurrPage-1&"'>"&"|<"&"</a>"
EndIf
TempStr=Replace(TempStr,"{N2}",M)
'//后一页
M=">|"
IfCurrPage+1<=TotalPageThen
M="<ahref='"&UrlStr&"Page="&CurrPage+1&"'>"&">|"&"</a>"
EndIf
TempStr=Replace(TempStr,"{N3}",M)
'//取出循环标签
DimN1,N2,N3,N4,N5,N6
IfInStr(TempStr,"{L}")>0Then
N1=InStr(TempStr,"{L}")
EndIf
IfInStr(TempStr,"{L/}")>0Then
N2=InStr(TempStr,"{L/}")
EndIf
IfN2<=N1Then
ErrInfo=ErrInfo&"循环标签出错..."
StyleB=ErrInfo
ExitFunction
EndIf
N3=Mid(TempStr,N1,N2-N1+4)'//储存包括{L}{L/}循环标签的模板
N4=Replace(N3,"{L}","")'//储存不包括{L}{L/}循环标签的模板
N4=Replace(N4,"{L/}","")
'//页码列表
DimFirstPageNum,LastPageNum
IfCurrPage-ForceNum<=1Then
FirstPageNum=1
PageList=""
Else
FirstPageNum=CurrPage-ForceNum
PageList="......"
EndIf
IfCurrPage+BackNum>=TotalPageThen
LastPageNum=TotalPage
PageList_2=""
Else
LastPageNum=CurrPage+BackNum
PageList_2="......"
EndIf
DimI
ForI=FirstPageNumToLastPageNum
IfI=CurrPageThen
N5=Replace(N4,"{N}","<b>"&I&"</b>")
N6=N6&N5
Else
M="<ahref='"&UrlStr&"Page="&I&"'>"&I&"</a>"
N5=Replace(N4,"{N}",M)
N6=N6&N5
EndIf
Next
TempStr=Replace(TempStr,N3,N6)
StyleB=TempStr
EndFunction

PrivateFunctionStyleC()
'首页|<|<<1234567>>|>|尾页
'//此风格在StyleB的基础上修改，增加两个标签：{N9}上10页{N10}下10页
'//标签:{N1}{N2}{N9}{L}{N}{L/}{N10}{N3}{N4}
DimT
T=StyleB()
'//前十页
M="|<<"
IfCurrPage-10>=1Then
M="<ahref='"&UrlStr&"Page="&CurrPage-10&"'>"&"|<<"&"</a>"
EndIf
T=Replace(T,"{N9}",M)
M=">>|"
IfCurrPage+10<=TotalPageThen
M="<ahref='"&UrlStr&"Page="&CurrPage+10&"'>"&">>|"&"</a>"
EndIf
T=Replace(T,"{N10}",M)
StyleC=T
EndFunction

PrivateFunctionStyleD()
'//此风格在StyleC的基础上修改
'//共{N8}条记录{N6}页当前为第{N5}页每页{N7}条
'//首页|<|<<1234567>>|>|尾页
'//标签:{N1}{N2}{N9}{L}{N}{L/}{N10}{N3}{N4}
DimT
T=StyleC()
T=Replace(T,"{N8}",TotalRecord)
T=Replace(T,"{N6}",TotalPage)
T=Replace(T,"{N5}",CurrPage)
T=Replace(T,"{N7}",PageN)
StyleD=T
EndFunction

EndClass
%>

支持多风格变换的ASP分页类图

更多文章、技术交流、商务合作、联系博主

微信扫码或搜索：z360901061

微信扫一扫加我为好友

QQ号联系： 360901061

您的支持是博主写作最大的动力，如果您喜欢我的文章，感觉我的文章对您有帮助，请用微信扫描下面二维码支持博主2元、5元、10元、20元等您想捐的金额吧，狠狠点击下面给点支持吧，站长非常感激您！手机微信长按不能支付解决办法：请将微信支付二维码保存到相册，切换到微信，然后点击微信右上角扫一扫功能，选择支付二维码完成支付。

【本文对您有帮助就好】元

2元

5元

10元

20元

自定义