边做饭时猛然进入高H,在卫生间被教官做好爽H,厨房掀起裙子从后面进去视频

<form id="qkszz"><span id="qkszz"><option id="qkszz"></option></span></form>

    1. <form id="qkszz"><legend id="qkszz"><noscript id="qkszz"></noscript></legend></form>

      益陽網站建設

      益陽網站建設是專業的網站制作和網站優化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
      展開懸浮客服
      回到頂部
      边做饭时猛然进入高H,在卫生间被教官做好爽H,厨房掀起裙子从后面进去视频