亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

支持多風(fēng)格變換的ASP分頁(yè)類 圖

系統(tǒng) 1736 0
<iframe name="google_ads_frame" marginwidth="0" marginheight="0" src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-pub-4490194096475053&amp;dt=1225766794984&amp;lmt=1219829524&amp;prev_slotnames=1891601125&amp;output=html&amp;slotname=3685991503&amp;correlator=1225766794421&amp;url=http%3A%2F%2Fwww.corange.cn%2Farchives%2F2008%2F08%2F1439.html&amp;ea=0&amp;ref=http%3A%2F%2Fwww.corange.cn%2Fhtml%2Fcorange__71.html&amp;frm=0&amp;ga_vid=1912024400.1225687205&amp;ga_sid=1225766664&amp;ga_hid=1058147276&amp;ga_fc=true&amp;flash=9.0.124.0&amp;u_h=768&amp;u_w=1024&amp;u_ah=715&amp;u_aw=1024&amp;u_cd=32&amp;u_tz=480&amp;u_java=true" frameborder="0" width="300" scrolling="no" height="250" allowtransparency></iframe>
這個(gè)分頁(yè)使用的是0游標(biāo),也就是Rs.OpenSql,Conn,0,1。但是感覺也快不了多少,10萬條數(shù)據(jù)的分頁(yè)時(shí)間300多豪秒之間。

<%
'******************************
'名稱:分頁(yè)類
'日期:2005/12/3
'作者:西樓冷月
'網(wǎng)址:www.xilou.net|www.chinaCMS.org
'描述:無
'版權(quán):轉(zhuǎn)載請(qǐng)注名出處,作者
'******************************
ClassPage
PrivateCurrPage
PrivatePageN
PrivateUrlStr
PrivateTempStr
PrivateErrInfo
PrivateIsErr
PrivateTotalRecord
PrivateTotalPage
PublicPageRs

PrivateTempA(11)
PrivateTempB(8)
'------------------------------------------------------------
PrivateSubClass_Initialize()
CurrPage=1'//默認(rèn)顯示當(dāng)前頁(yè)為第一頁(yè)
PageN=10'//默認(rèn)每頁(yè)顯示10條數(shù)據(jù)
UrlStr="#"
TempStr=""
ErrInfo="ErrInfo:"
IsErr=False
EndSub
PrivateSubClass_Terminate()
IfIsObject(PageRs)Then
PageRs.Close
SetPageRs=Nothing
EndIf
EraseTempA
EraseTempB
EndSub
'----------------------------------------------------------
'//獲取當(dāng)前頁(yè)碼
PublicPropertyLetCurrentPage(Val)
CurrPage=Val
EndProperty
PublicPropertyGetCurrentPage()
CurrentPage=CurrPage
EndProperty
'//獲取每頁(yè)顯示條數(shù)
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'使用客戶端游標(biāo),可以使效率提高
PageRs.PageSize=PageN'定義分頁(yè)記錄集每頁(yè)顯示記錄數(shù)
PageRs.OpenSql,ConnObj,0,1
IfErr.Number<>0Then
Err.Clear
PageRs.Close
SetPageRs=Nothing
ErrInfo=ErrInfo&"建立或打開記錄集錯(cuò)誤..."
IsErr=True
Response.WriteErrInfo
Response.End
EndIf
TotalRecord=PageRs.RecordCount'//如果為0呢?
IfTotalRecord>=1Then
'----------------------------------------------------------------------------開始
'//計(jì)算總頁(yè)數(shù),Ps,為什么不用PageRs.PageCount呢?
'IfTotalRecordModPageN=0Then
'TotalPage=PageRs.RecordCount\PageN
'Else
'TotalPage=PageRs.RecordCount\PageN
'TotalPage=Abs(Int(TotalPage))
'EndIf
TotalPage=PageRs.PageCount
'//處理當(dāng)前接收頁(yè)碼,默認(rèn)的為1,所以不是數(shù)字類型的都會(huì)為1
IfIsNumeric(CurrPage)Then
CurrPage=CLNg(CurrPage)
IfCurrPage<1ThenCurrPage=1
IfCurrPage>TotalPageThenCurrPage=TotalPage
Else
'//DimM:M="":IsNumeric(M)=True
CurrPage=1
EndIf
'---------------------------------------------------------------------------結(jié)束
Else
TotalPage=0
CurrPage=1
EndIf
'//
PageRs.AbsolutePage=CurrPage'absolutepage:設(shè)置指針指向某頁(yè)開頭
PageRs.PageSize=PageN
EndSub
PrivateSubInit()
'PrivateTempA(10)
TempA(1)="{N1}"'//首頁(yè)
TempA(2)="{N2}"'//上一頁(yè)
TempA(3)="{N3}"'//下一頁(yè)
TempA(4)="{N4}"'//尾頁(yè)
TempA(5)="{N5}"'//當(dāng)前頁(yè)碼
TempA(6)="{N6}"'//頁(yè)碼總數(shù)
TempA(7)="{N7}"'//每頁(yè)條數(shù)
TempA(8)="{N8}"'//文章總數(shù)
TempA(9)="{L}"'//循環(huán)標(biāo)簽開始
TempA(10)="{N}"'//循環(huán)內(nèi)單標(biāo)簽:頁(yè)碼
TempA(11)="{L/}"'//循環(huán)標(biāo)簽結(jié)束
'PrivateTempB(8)
TempB(1)="首頁(yè)"
TempB(2)="上一頁(yè)"
TempB(3)="下一頁(yè)"
TempB(4)="尾頁(yè)"
TempB(5)=CurrPage'//當(dāng)前頁(yè)碼
TempB(6)=TotalPage'//頁(yè)碼總數(shù)
TempB(7)=PageN'//每頁(yè)條數(shù)
TempB(8)=TotalRecord'//文章總數(shù)
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&"不存在當(dāng)前樣式..."
Response.WriteErrInfo
EndSelect
EndSub
PublicFunctionShowStyle(Style)
IfIsErr=TrueThen
ShowStyle=ErrInfo
ExitFunction
EndIf

CallInit()
SelectCaseStyle
Case1
ShowStyle=StyleA()
Case2
ShowStyle=StyleB()
CaseElse
ErrInfo=ErrInfo&"不存在當(dāng)前樣式..."
ShowStyle=ErrInfo
EndSelect
EndFunction

PrivateFunctionStyleA()
'首頁(yè)上一頁(yè)下一頁(yè)尾頁(yè)本頁(yè)為第1/20頁(yè),共20頁(yè),每頁(yè)10條,文章總數(shù)200條
'//分頁(yè)樣例:[首頁(yè)][上頁(yè)][下頁(yè)][尾頁(yè)][頁(yè)次:4/5頁(yè)][共86篇20篇/頁(yè)]轉(zhuǎn)到:_頁(yè)
'//標(biāo)簽:{N1}{N2}{N3}{N4}||共:{N8}條記錄{N6}頁(yè)當(dāng)前為第{N5}頁(yè)每頁(yè){N7}條
IfIsEmpty(TempStr)Then
ErrInfo=ErrInfo&"模板為空..."
StyleB=ErrInfo
ExitFunction
EndIf
DimM
IfTotalPage>1Then
IfCurrPage>1Then
M="<ahref='"&UrlStr&"Page=1'>"&"首頁(yè)"&"</a>"
TempStr=Replace(TempStr,"{N1}",M)
M="<ahref='"&UrlStr&"Page="&CurrPage-1&"'>"&"上一頁(yè)"&"</a>"
TempStr=Replace(TempStr,"{N2}",M)
IfCurrPage<TotalPageThen
M="<ahref='"&UrlStr&"Page="&CurrPage+1&"'>"&"下一頁(yè)"&"</a>"
TempStr=Replace(TempStr,"{N3}",M)
M="<ahref='"&UrlStr&"Page="&TotalPage&"'>"&"尾頁(yè)"&"</a>"
TempStr=Replace(TempStr,"{N4}",M)
Else
TempStr=Replace(TempStr,"{N3}","下一頁(yè)")
TempStr=Replace(TempStr,"{N4}","尾頁(yè)")
EndIf
Else
TempStr=Replace(TempStr,"{N1}","首頁(yè)")
TempStr=Replace(TempStr,"{N2}","上一頁(yè)")
M="<ahref='"&UrlStr&"Page="&CurrPage+1&"'>"&"下一頁(yè)"&"</a>"
TempStr=Replace(TempStr,"{N3}",M)
M="<ahref='"&UrlStr&"Page="&TotalPage&"'>"&"尾頁(yè)"&"</a>"
TempStr=Replace(TempStr,"{N4}",M)
EndIf
Else
TempStr=Replace(TempStr,"{N1}","首頁(yè)")
TempStr=Replace(TempStr,"{N2}","上一頁(yè)")
TempStr=Replace(TempStr,"{N3}","下一頁(yè)")
TempStr=Replace(TempStr,"{N4}","尾頁(yè)")
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()
'首頁(yè)|<1234567>|尾頁(yè)
'//標(biāo)簽:{N1}{N2}{L}{N}{L/}{N3}{N4}
IfIsEmpty(TempStr)Then
ErrInfo=ErrInfo&"模板為空..."
StyleB=ErrInfo
ExitFunction
EndIf
DimForceNum,BackNum'//當(dāng)前頁(yè)的前面和后面顯示個(gè)數(shù)
ForceNum=5
BackNum=4
DimM
'//首頁(yè)
M="<ahref='"&UrlStr&"Page=1'>"&TempB(1)&"</a>"
TempStr=Replace(TempStr,"{N1}",M)
'//尾頁(yè)
M="<ahref='"&UrlStr&"Page="&TempB(6)&"'>"&TempB(4)&"</a>"
TempStr=Replace(TempStr,"{N4}",M)
'//前一頁(yè)
M="|<"
IfCurrPage-1>=1Then
M="<ahref='"&UrlStr&"Page="&CurrPage-1&"'>"&"|<"&"</a>"
EndIf
TempStr=Replace(TempStr,"{N2}",M)
'//后一頁(yè)
M=">|"
IfCurrPage+1<=TotalPageThen
M="<ahref='"&UrlStr&"Page="&CurrPage+1&"'>"&">|"&"</a>"
EndIf
TempStr=Replace(TempStr,"{N3}",M)
'//取出循環(huán)標(biāo)簽
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&"循環(huán)標(biāo)簽出錯(cuò)..."
StyleB=ErrInfo
ExitFunction
EndIf
N3=Mid(TempStr,N1,N2-N1+4)'//儲(chǔ)存包括{L}{L/}循環(huán)標(biāo)簽的模板
N4=Replace(N3,"{L}","")'//儲(chǔ)存不包括{L}{L/}循環(huán)標(biāo)簽的模板
N4=Replace(N4,"{L/}","")
'//頁(yè)碼列表
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()
'首頁(yè)|<|<<1234567>>|>|尾頁(yè)
'//此風(fēng)格在StyleB的基礎(chǔ)上修改,增加兩個(gè)標(biāo)簽:{N9}上10頁(yè){N10}下10頁(yè)
'//標(biāo)簽:{N1}{N2}{N9}{L}{N}{L/}{N10}{N3}{N4}
DimT
T=StyleB()
'//前十頁(yè)
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()
'//此風(fēng)格在StyleC的基礎(chǔ)上修改
'//共{N8}條記錄{N6}頁(yè)當(dāng)前為第{N5}頁(yè)每頁(yè){N7}條
'//首頁(yè)|<|<<1234567>>|>|尾頁(yè)
'//標(biāo)簽:{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
%>

支持多風(fēng)格變換的ASP分頁(yè)類 圖


更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號(hào)聯(lián)系: 360901061

您的支持是博主寫作最大的動(dòng)力,如果您喜歡我的文章,感覺我的文章對(duì)您有幫助,請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點(diǎn)擊下面給點(diǎn)支持吧,站長(zhǎng)非常感激您!手機(jī)微信長(zhǎng)按不能支付解決辦法:請(qǐng)將微信支付二維碼保存到相冊(cè),切換到微信,然后點(diǎn)擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對(duì)您有幫助就好】

您的支持是博主寫作最大的動(dòng)力,如果您喜歡我的文章,感覺我的文章對(duì)您有幫助,請(qǐng)用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長(zhǎng)會(huì)非常 感謝您的哦?。?!

發(fā)表我的評(píng)論
最新評(píng)論 總共0條評(píng)論
主站蜘蛛池模板: 日本xoxo在线观看免费 | 一级黄色录像免费看 | 日本一级特黄毛片免费视频 | 国产全黄一级毛片 | 亚洲最新在线 | 国产www网站| 欧美精品blacked中文字幕 | 日本免费一区视频 | 亚洲一区二区日韩欧美gif | 韩国精品欧美一区二区三区 | 夜夜资源 | 国产免费久久精品久久久 | 黄色片网站在线免费观看 | 久久免费手机视频 | 国产欧美久久久精品 | 亚洲精品αv一区二区三区 亚洲精品爱爱久久 | 国内视频一区 | 亚洲欧洲日产国码二区首页 | 国产日韩欧美二区 | 国产伦一区二区三区免费 | 亚洲国产日韩综合久久精品 | 91最新国产 | 91福利在线看 | 亚洲精品一区二区三区五区 | 欧美乱大交xxxxxx喷潮免费 | 欧美成人免费高清网站 | 久久激情综合色丁香 | 欧美一级毛片国产一级毛片 | 何以笙箫默在线观看 | 92国产福利久久青青草原 | 精品国产免费久久久久久 | 国产成人在线视频免费观看 | 一 级做人爱全视频在线看 一a级毛片 | 久久视频精品线视频在线网站 | 伊人a.v在线 | 亚洲午夜久久影院 | 国产高清专区 | 成人区精品一区二区不卡亚洲 | 久久久久久91| 四虎在线永久免费观看 | 青草福利在线 |