<% '****************************** '名稱：分頁類 '日期：2005/12/3 '作者：西樓冷月 '網(wǎng)址：www.xilou.net | www.chinaCMS.org '描述：無 '版權(quán)：轉(zhuǎn)載請注名出處，作者 '****************************** Class Page Private CurrPage Private PageN Private UrlStr Private TempStr Private ErrInfo Private IsErr Private TotalRecord Private TotalPage Public PageRs Private TempA(11) Private TempB(8) '------------------------------------------------------------ Private Sub Class_Initialize() CurrPage=1'//默認(rèn)顯示當(dāng)前頁為第一頁 PageN=10'//默認(rèn)每頁顯示10條數(shù)據(jù) UrlStr="#" TempStr="" ErrInfo="ErrInfo:" IsErr=False End Sub Private Sub Class_Terminate() If IsObject(PageRs) Then PageRs.Close Set PageRs=Nothing End If Erase TempA Erase TempB End Sub '---------------------------------------------------------- '//獲取當(dāng)前頁碼 Public Property Let CurrentPage(Val) CurrPage=Val End Property Public Property Get CurrentPage() CurrentPage=CurrPage End Property '//獲取每頁顯示條數(shù) Public Property Let PageNum(Val) PageN=Val End Property Public Property Get PageNum() PageNum=PageN End Property '//獲取URL Public Property Let Url(Val) UrlStr=Val End Property Public Property Get Url() Url=UrlStr End Property '//獲取模板 Public Property Let Temp(Val) TempStr=Val End Property Public Property Get Temp() Temp=TempStr End Property '------------------------------------------------------------ Public Sub Exec(Sql,ConnObj) On Error Resume Next Set PageRs=Server.CreateObject("ADODB.RecordSet") PageRs.CursorLocation = 3 '使用客戶端游標(biāo)，可以使效率提高 PageRs.PageSize = PageN '定義分頁記錄集每頁顯示記錄數(shù) PageRs.Open Sql,ConnObj,0,1 If Err.Number<>0 Then Err.Clear PageRs.Close Set PageRs=Nothing ErrInfo=ErrInfo&"建立或打開記錄集錯誤..." IsErr=True Response.Write ErrInfo Response.End End If TotalRecord=PageRs.RecordCount'//如果為0呢？ If TotalRecord>=1 Then '----------------------------------------------------------------------------開始 '//計算總頁數(shù),Ps,為什么不用PageRs.PageCount呢？ 'If TotalRecord Mod PageN=0 Then 'TotalPage=PageRs.RecordCount/PageN 'Else 'TotalPage=PageRs.RecordCount/PageN 'TotalPage=Abs(Int(TotalPage)) 'End If TotalPage=PageRs.PageCount '//處理當(dāng)前接收頁碼,默認(rèn)的為1，所以不是數(shù)字類型的都會為1 If IsNumeric(CurrPage) Then CurrPage=CLNg(CurrPage) If CurrPage<1 Then CurrPage=1 If CurrPage>TotalPage Then CurrPage=TotalPage Else '//Dim M:M="":IsNumeric(M)=True CurrPage=1 End If '---------------------------------------------------------------------------結(jié)束 Else TotalPage=0 CurrPage=1 End If '// PageRs.AbsolutePage = CurrPage 'absolutepage：設(shè)置指針指向某頁開頭 PageRs.PageSize=PageN End Sub Private Sub Init() 'Private TempA(10) TempA(1)="{N1}" '//首頁 TempA(2)="{N2}"'//上一頁 TempA(3)="{N3}"'//下一頁 TempA(4)="{N4}"'//尾頁 TempA(5)="{N5}"'//當(dāng)前頁碼 TempA(6)="{N6}"'//頁碼總數(shù) TempA(7)="{N7}"'//每頁條數(shù) TempA(8)="{N8}"'//文章總數(shù) TempA(9)="{L}"'//循環(huán)標(biāo)簽開始 TempA(10)="{N}"'//循環(huán)內(nèi)單標(biāo)簽：頁碼 TempA(11)="{L/}"'//循環(huán)標(biāo)簽結(jié)束 'Private TempB(8) TempB(1)="首頁" TempB(2)="上一頁" TempB(3)="下一頁" TempB(4)="尾頁" TempB(5)=CurrPage'//當(dāng)前頁碼 TempB(6)=TotalPage'//頁碼總數(shù) TempB(7)=PageN'//每頁條數(shù) TempB(8)=TotalRecord'//文章總數(shù) End Sub Public Sub Show(Style) If IsErr=True Then Response.Write ErrInfo Exit Sub End If Call Init() Select Case Style Case 1 Response.Write StyleA() Case 2 Response.Write StyleB() Case 3 Response.Write StyleC() Case 4 Response.Write StyleD() Case Else ErrInfo=ErrInfo&"不存在當(dāng)前樣式..." Response.Write ErrInfo End Select End Sub Public Function ShowStyle(Style) If IsErr=True Then ShowStyle=ErrInfo Exit Function End If Call Init() Select Case Style Case 1 ShowStyle= StyleA() Case 2 ShowStyle= StyleB() Case Else ErrInfo=ErrInfo&"不存在當(dāng)前樣式..." ShowStyle=ErrInfo End Select End Function Private Function StyleA() '首頁 上一頁 下一頁 尾頁 本頁為第1/20頁，共20頁，每頁10條，文章總數(shù)200條 '//分頁樣例：[首頁] [上頁] [下頁] [尾頁] [頁次：4/5頁] [共86篇 20篇/頁] 轉(zhuǎn)到：_ 頁 '//標(biāo)簽：{N1} {N2} {N3} {N4} || 共:{N8}條記錄 {N6}頁 當(dāng)前為第{N5}頁 每頁{N7}條 If IsEmpty(TempStr) Then ErrInfo=ErrInfo&"模板為空..." StyleB=ErrInfo Exit Function End If Dim M If TotalPage>1 Then If CurrPage>1 Then M="<a href='"&UrlStr&"Page=1'>"&"首頁"&"</a>" TempStr=Replace(TempStr,"{N1}",M) M="<a href='"&UrlStr&"Page="&CurrPage-1&"'>"&"上一頁"&"</a>" TempStr=Replace(TempStr,"{N2}",M) If CurrPage<TotalPage Then M="<a href='"&UrlStr&"Page="&CurrPage+1&"'>"&"下一頁"&"</a>" TempStr=Replace(TempStr,"{N3}",M) M="<a href='"&UrlStr&"Page="&TotalPage&"'>"&"尾頁"&"</a>" TempStr=Replace(TempStr,"{N4}",M) Else TempStr=Replace(TempStr,"{N3}","下一頁") TempStr=Replace(TempStr,"{N4}","尾頁") End If Else TempStr=Replace(TempStr,"{N1}","首頁") TempStr=Replace(TempStr,"{N2}","上一頁") M="<a href='"&UrlStr&"Page="&CurrPage+1&"'>"&"下一頁"&"</a>" TempStr=Replace(TempStr,"{N3}",M) M="<a href='"&UrlStr&"Page="&TotalPage&"'>"&"尾頁"&"</a>" TempStr=Replace(TempStr,"{N4}",M) End If Else TempStr=Replace(TempStr,"{N1}","首頁") TempStr=Replace(TempStr,"{N2}","上一頁") TempStr=Replace(TempStr,"{N3}","下一頁") TempStr=Replace(TempStr,"{N4}","尾頁") End If 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 End Function Private Function StyleB() '首頁 |< 1 2 3 4 5 6 7 >| 尾頁 '//標(biāo)簽:{N1} {N2} {L}{N}{L/}{N3}{N4} If IsEmpty(TempStr) Then ErrInfo=ErrInfo&"模板為空..." StyleB=ErrInfo Exit Function End If Dim ForceNum,BackNum'//當(dāng)前頁的前面和后面顯示個數(shù) ForceNum=5 BackNum=4 Dim M '//首頁 M="<a href='"&UrlStr&"Page=1'>"&TempB(1)&"</a>" TempStr=Replace(TempStr,"{N1}",M) '//尾頁 M="<a href='"&UrlStr&"Page="&TempB(6)&"'>"&TempB(4)&"</a>" TempStr=Replace(TempStr,"{N4}",M) '//前一頁 M="|<" If CurrPage-1>=1 Then M="<a href='"&UrlStr&"Page="&CurrPage-1&"'>"&"|<"&"</a>" End If TempStr=Replace(TempStr,"{N2}",M) '//后一頁 M=">|" If CurrPage+1<=TotalPage Then M="<a href='"&UrlStr&"Page="&CurrPage+1&"'>"&">|"&"</a>" End If TempStr=Replace(TempStr,"{N3}",M) '//取出循環(huán)標(biāo)簽 Dim N1,N2,N3,N4,N5,N6 If InStr(TempStr,"{L}")>0 Then N1=InStr(TempStr,"{L}") End If If InStr(TempStr,"{L/}")>0 Then N2=InStr(TempStr,"{L/}") End If If N2<=N1 Then ErrInfo=ErrInfo&"循環(huán)標(biāo)簽出錯..." StyleB=ErrInfo Exit Function End If N3=Mid(TempStr,N1,N2-N1+4)'//儲存包括{L}{L/}循環(huán)標(biāo)簽的模板 N4=Replace(N3,"{L}","")'//儲存不包括{L}{L/}循環(huán)標(biāo)簽的模板 N4=Replace(N4,"{L/}","") '//頁碼列表 Dim FirstPageNum,LastPageNum If CurrPage-ForceNum<=1 Then FirstPageNum=1 PageList="" Else FirstPageNum=CurrPage-ForceNum PageList="... ..." End If If CurrPage+BackNum>=TotalPage Then LastPageNum=TotalPage PageList_2="" Else LastPageNum=CurrPage+BackNum PageList_2="... ..." End If Dim I For I=FirstPageNum To LastPageNum If I=CurrPage Then N5=Replace(N4,"{N}","<b>"&I&"</b>") N6=N6&N5 Else M="<a href='"&UrlStr&"Page="&I&"'>"&I&"</a>" N5=Replace(N4,"{N}",M) N6=N6&N5 End If Next TempStr=Replace(TempStr,N3,N6) StyleB=TempStr End Function Private Function StyleC() '首頁 |< |<< 1 2 3 4 5 6 7 >>| >| 尾頁 '//此風(fēng)格在StyleB的基礎(chǔ)上修改，增加兩個標(biāo)簽：{N9}上10頁 {N10}下10頁 '//標(biāo)簽:{N1}{N2}{N9}{L}{N}{L/}{N10}{N3}{N4} Dim T T=StyleB() '//前十頁 M="|<<" If CurrPage-10>=1 Then M="<a href='"&UrlStr&"Page="&CurrPage-10&"'>"&"|<<"&"</a>" End If T=Replace(T,"{N9}",M) M=">>|" If CurrPage+10<=TotalPage Then M="<a href='"&UrlStr&"Page="&CurrPage+10&"'>"&">>|"&"</a>" End If T=Replace(T,"{N10}",M) StyleC=T End Function Private Function StyleD() '//此風(fēng)格在StyleC的基礎(chǔ)上修改 '//共{N8}條記錄 {N6}頁 當(dāng)前為第{N5}頁 每頁{N7}條 '//首頁 |< |<< 1 2 3 4 5 6 7 >>| >| 尾頁 '//標(biāo)簽:{N1}{N2}{N9}{L}{N}{L/}{N10}{N3}{N4} Dim T T=StyleC() T=Replace(T,"{N8}",TotalRecord) T=Replace(T,"{N6}",TotalPage) T=Replace(T,"{N5}",CurrPage) T=Replace(T,"{N7}",PageN) StyleD=T End Function End Class %>
