<sub id="11nt3"><listing id="11nt3"></listing></sub>

                        益陽網站建設

                        益陽網站建設是專業的網站制作和網站優化SEO的益陽網絡公司
                        項目經理直線: 19892705850
                        網站首頁 > > 新聞動態 > 相關資料 > > 正文

                        垂詢熱線

                        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

                        本文網址:

                        垂詢熱線

                        15660249568
                        展開懸浮客服
                        回到頂部
                        美国一级A片

                                <sub id="11nt3"><listing id="11nt3"></listing></sub>