• 益阳网站建设

    益阳网站建设是专业的网站制作和网站优化SEO的益阳网络公司
    项目经理直线: 0737-3666343 18973746816
    网站首页 > > 新闻动态 > 相关资料 > > 正文

    垂询热线

    3303609113@qq.com

    3303609113 / 275100931

    3303609113@qq.com

    建站指南

    让浏览者喜欢,让客户获益是最高原则。

    sdcms后台单页分页,sdcms单页分页系统,纯调用函数

    日期: 2015-12-25 10:16:18 点击: 标签:

    分享到: 更多

    sdcms后台单页分页,sdcms单页分页系统,纯调用函数

     

    采用调用以下官方sdcms函数实现

    <%
    Class Sdcms_Page

    Private Get_Conn,Get_PageNum,Get_PageSize,Get_Table,Get_Key,Get_Field,Get_Where,Get_Order,This_Page
    Private Get_PageStart,Get_PageEnd,Rs
    'Private TotalNum
    Dim TotalNum,TotalPageSize

    Private Sub Class_Initialize()
    Get_PageSize=20
    Get_PageEnd=""
    End Sub

    Private Sub Class_Terminate()
    Closedb
    End Sub

    Public Property Let Conn(ByVal t0)
    Set Get_Conn=t0
    End Property

    Public Property Let Pagenum(ByVal t0)
    Get_PageNum=t0
    End Property

    Public Property Get Pagenum
    PageNum=Get_PageNum
    End Property

    Public Property Let PageSize(ByVal t0)
    Get_PageSize=t0
    End Property

    Public Property Get PageSize
    PageSize=Get_PageSize
    End Property

    Public Property Let Table(ByVal t0)
    Get_Table=t0
    End Property

    Public Property Let Key(ByVal t0)
    Get_Key=t0
    End Property

    Public Property Let Field(ByVal t0)
    Get_Field=t0
    End Property

    Public Property Let Where(ByVal t0)
    Get_Where=t0
    End Property

    Public Property Get Where
    IF Len(Get_Where)>0 Then Where="Where "&Get_Where Else Where=Get_Where
    End Property

    Public Property Let Order(ByVal t0)
    Get_Order=t0
    End Property

    Public Property Get Order
    IF Len(Get_Order)>0 Then Order="Order By "&Get_Order Else Order=Get_Order
    End Property

    Public Property Let PageStart(ByVal t0)
    Get_PageStart=t0
    End Property

    Public Property Get PageEnd
    PageEnd=Get_PageEnd
    End Property

    Public Property Let PageEnd(ByVal t0)
    Get_PageEnd=t0
    End Property

    Public Property Get PageStart
    PageStart=Get_PageStart
    End Property

    Public Property Get Show
    Dim Sql
    TotalNum=Get_Conn.Execute("Select Count("&Get_Key&") From "&Get_Table&" "&Where&"")(0)'总记录数
    DbQuery=DbQuery+1
    TotalPageSize=Abs(Int(-Abs(TotalNum/PageSize)))
    On Error Resume Next
    Set Rs=Server.CreateObject("Adodb.Recordset")
    Rs.PageSize=PageSize
    This_Page=PageNum
    IF Clng(This_Page)>Clng(TotalPageSize) Then This_Page=Clng(TotalPageSize)
    Sql="Select "&Get_Field&" From "&Get_table&" "&Where&"  "&Order&""
    Rs.Open Sql,Get_Conn,1,1
    Rs.AbsolutePosition=Rs.AbsolutePosition+((Abs(This_Page)-1)*PageSize)
    Set Show=Rs
    DbQuery=DbQuery+1
    End Property

    Public Function PageList
    Dim Page_List:Page_List=Empty
    IF TotalNum>0 Then
    IF Pagenum>TotalPageSize Then Pagenum=TotalPageSize
    Dim iBegin,iEnd,iCur,I
    iCur=Pagenum'当前页
    iBegin=iCur
    iEnd=iCur
    IF iCur>TotalPageSize Then iCur=TotalPageSize
    IF iEnd>TotalPageSize Then iEnd=TotalPageSize
    I=6'每次总数量
    Page_List=Page_List&"<a>总数:"&TotalNum&"</a>"
    Do While True 
    IF iBegin>1 Then 
    iBegin=iBegin-1
    i=i-1  
    End If 
    IF I>1 And iEnd<TotalPageSize Then
    iEnd=iEnd+1
    I=I-1
    End If 
    IF (iBegin<=1 And iEnd>=TotalPageSize) Or I<=1 Then Exit Do     
    Loop

    IF Sdcms_Mode=2 Then
    IF iBegin<>1 Then Page_List=Page_List&"<a href="""&Re(PageStart,"_","")&PageEnd&""">1..</a>"
    Else
    IF iBegin<>1 Then Page_List=Page_List&"<a href="""&PageStart&"1"&PageEnd&""">1..</a>"
    End IF
    IF iCur<>1 Then
    IF Sdcms_Mode=2 And iCur-1=1 Then
    Page_List=Page_List&"<a href="""&Replace(PageStart,"_","")&PageEnd&""">上一页</a>"
    Else
    Page_List=Page_List&"<a href="""&PageStart&(iCur-1)&PageEnd&""">上一页</a>"
    End IF
    End IF

    For I=iBegin To iEnd
    IF I=iCur Then 
    Page_List=Page_List&"<span>"&I&"</span>"
    Else
    IF Sdcms_Mode=2 And I=1 Then
    Page_List=Page_List&"<a href="""&Replace(PageStart,"_","")&PageEnd&""">"&I&"</a>"
    Else
    Page_List=Page_List&"<a href="""&PageStart&I&PageEnd&""">"&I&"</a>"
    End IF
    End If 
    Next 
    IF iCur<>TotalPageSize Then Page_List=Page_List&"<a href="""&PageStart&(iCur+1)&PageEnd&""">下一页</a>"
    IF iEnd<>TotalPageSize Then Page_List=Page_List&"<a href="""&PageStart&TotalPageSize&PageEnd&""">.."&TotalPageSize&"</a>"

    Page_List=Page_List&"<a>页次:"&PageNum&"/"&TotalPageSize&"</a>"

    End IF
    PageList=Page_List
    End Function

    End Class
    %>

     

     

     

    淘宝店 自动销售:https://item.taobao.com/item.htm?spm=686.1000925.0.0.iUFcPk&id=525534291610

    本文网址:

    垂询热线

    18973746816
    展开悬浮客服
    回到顶部
    5544444