WEB开发网
开发学院WEB开发ASP 支持多风格变换的ASP分页类 阅读

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

 2006-11-19 10:36:39 来源:WEB开发网   
核心提示:这个分页使用的是0游标,也就是Rs.Open Sql,Conn,0,1,支持多风格变换的ASP分页类,但是感觉也快不了多少,10万条数据的分页时间300多豪秒之间<%Class PagePRivate CurrPagePrivate PageNPrivate UrlStrPrivate TempStrPrivat

这个分页使用的是0游标,也就是Rs.Open Sql,Conn,0,1。但是感觉也快不了多少,10
万条数据的分页时间300多豪秒之间
<%
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'//默认显示当前页为第一页
    PageN=10'//默认每页显示10条数据
    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
'----------------------------------------------------------
'//获取当前页码
Public Property Let CurrentPage(Val)
    CurrPage=Val
End Property
Public Property Get CurrentPage()
    CurrentPage=CurrPage
End Property
'//获取每页显示条数
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 '使用客户端游标,可以使效率提高
    PageRs.PageSize = PageN '定义分页记录集每页显示记录数
    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
    '----------------------------------------------------------------------------开始
    '//计算总页数,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
    '//处理当前接收页码,默认的为1,所以不是数字类型的都会为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
    '---------------------------------------------------------------------------结束
    Else
     TotalPage=0
     CurrPage=1
    End If
    '//
    PageRs.AbsolutePage = CurrPage 'absolutepage:设置指针指向某页开头
    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}"'//当前页码
    TempA(6)="{N6}"'//页码总数
    TempA(7)="{N7}"'//每页条数
    TempA(8)="{N8}"'//文章总数
    TempA(9)="{L}"'//循环标签开始
    TempA(10)="{N}"'//循环内单标签:页码
    TempA(11)="{L/}"'//循环标签结束
    'Private TempB(8)
    TempB(1)="首页"
    TempB(2)="上一页"
    TempB(3)="下一页"
    TempB(4)="尾页"
    TempB(5)=CurrPage'//当前页码
    TempB(6)=TotalPage'//页码总数
    TempB(7)=PageN'//每页条数
    TempB(8)=TotalRecord'//文章总数
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&"不存在当前样式..."
    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&"不存在当前样式..."
  ShowStyle=ErrInfo
    End Select
End Function

Private Function StyleA()
'首页 上一页 下一页 尾页  本页为第1/20页,共20页,每页10条,文章总数200条
'//分页样例:[首页] [上页] [下页] [尾页] [页次:4/5页] [共86篇 20篇/页] 转到:_ 页
'//标签:{N1} {N2} {N3} {N4} || 共:{N8}条记录 {N6}页 当前为第{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 >| 尾页
'//标签:{N1} {N2} {L}{N}{L/}{N3}{N4}
If IsEmpty(TempStr) Then
    ErrInfo=ErrInfo&"模板为空..."
    StyleB=ErrInfo
    Exit Function
End If
Dim ForceNum,BackNum'//当前页的前面和后面显示个数
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)
'//取出循环标签
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&"循环标签出错..."
    StyleB=ErrInfo
    Exit Function
End If
N3=Mid(TempStr,N1,N2-N1+4)'//储存包括{L}{L/}循环标签的模板
N4=Replace(N3,"{L}","")'//储存不包括{L}{L/}循环标签的模板
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 >>| >| 尾页
'//此风格在StyleB的基础上修改,增加两个标签:{N9}上10页 {N10}下10页
'//标签:{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()
'//此风格在StyleC的基础上修改
'//共{N8}条记录 {N6}页 当前为第{N5}页 每页{N7}条
'//首页 |< |<< 1 2 3 4 5 6 7 >>| >| 尾页
'//标签:{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
%>

Tags:支持 风格 变换

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接