簡單的Repeater分頁程式碼

javaprogramers發表於2005-05-08

practice_1

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="vb" runat="server">

'定義bindlist子程式,呼叫pageno（頁面位置）引數
sub BindList(PageNo As Integer)

   '使用connection物件開啟資料連線
    Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & Server.MapPath("db/music.mdb")

'定義sql
Dim strSQL As String = "Select * From 唱片,風格 where 唱片.風格號碼 = 風格.風格號碼 Order By '新增時間' Desc"


    '建立dataadapter物件
Dim objCmd As New OleDbDataAdapter(strSQL, ConnString)


'建立dataset物件
Dim DS As New DataSet()

'呼叫dataadapter物件的fill()方法講選取的資料置入dataset物件。
objCmd.Fill(DS, "唱片")

    '宣告mytable 變數為 datatable物件，並將ds.tables("歌曲")賦值給 mytable變數。
    Dim myTable As DataTable = DS.Tables("唱片")

'定義每頁面顯示2條記錄。
dim pagesize as integer = 2

'顯示留言的總條數
dim totalrecord as integer = mytable.rows.count
showtotalrecord.text = totalrecord

'顯示流言總頁數totalrecord為流言總條數
dim totalpage as integer
if totalrecord < pagesize then
   totalpage = 1
else
   if totalrecord mod pagesize <> 0 then
     totalpage = totalrecord / pagesize + 1
   else
     totalpage = totalrecord / pagesize
   end if
end if
ShowTotalPage.Text = TotalPage

'將當前頁碼賦給Showpagenumber控制元件，以顯示當前頁數
Showpagenumber.text = pageno

    '建立 tempTable 資料表，其結構與mytable相同，tempTable 資料表
    '儲存的資料會連線到 Repeater 控制元件，以顯示留言內容。
    Dim tempTable As DataTable = myTable.Clone()
    Dim I, J As Integer
    For I = (PageNo -1) * PageSize To PageNo * PageSize - 1
      If I > myTable.Rows.Count -1 Then Exit For
      Dim newRow As DataRow = tempTable.NewRow()
      For J = 0 To myTable.Columns.Count -1
        newRow(myTable.Columns(J).ColumnName) = myTable.Rows(I).Item(J)
      Next
      tempTable.Rows.Add(newRow)
    Next
    myRepeater.DataSource = tempTable
    myRepeater.DataBind()
End Sub

'此過程用來判斷是否應該顯示，首頁等按鈕。
sub showwhatbutton()
if Showpagenumber.text = 1 then
   firstpage.visible = false
   prepage.visible = false
else
   firstpage.visible = true
   prepage.visible = true
end if

if Showpagenumber.text = showtotalpage.text then
   lastpage.visible = false
   nextpage.visible = false
else
   lastpage.visible = true
   nextpage.visible = true
end if
end sub

'此程式用來建立快速換頁選單
Sub PageListItem()
    Dim I As Integer
    PageList.Items.Clear()
    For I = 0 To ShowTotalPage.Text -1
      PageList.Items.Add("第 " & I + 1 & " 頁")
    Next
End Sub

'頁面第一次載入時執行此程式，呼叫bindlist和pagelistitem子程式並賦值
Sub Page_Init(sender As Object, e As Eventargs)
    BindList(1)
    PageListItem()
showwhatbutton()
End Sub

'響應下拉選單 PageList 命令。
Sub PageList_Change(sender As Object, e As EventArgs)
    BindList(PageList.SelectedIndex + 1)
showwhatbutton()
End Sub

'此過程會根據使用者點取的按鈕來決定應該顯示哪個分頁的資料
sub pagechange(sender as object, e as commandeventargs)
    select case e.commandargument
   case "nextpage"
    BindList( Showpagenumber.text + 1)
   case "prepage"
    BindList( Showpagenumber.text - 1)
   case "firstpage"
    BindList( 1 )
   case "lastpage"
   BindList( showtotalpage.text - 1)

   '當使用者在文字框裡輸入數字的時候執行下面程式碼。
   '如果使用者輸入的數字大於總頁數時，顯示最後一頁。如果小於首頁時，顯示首頁。
   case "pagenumber"
     if pagenumber.text > showtotalpage.text then
  pagenumber.text = showtotalpage.text
  bindlist(pagenumber.text)
  else if pagenumber.text < 1 then
  pagenumber.text = 1
     bindlist(pagenumber.text)
  else
  bindlist(pagenumber.text)
  end if
end select
     showwhatbutton()
end sub
</script>

<Html>
<Body>
    <Form Runat="Server">
      收錄專輯總數：<Asp:Label Runat="Server" Id="ShowTotalrecord" /><br>
   目前位於第<Asp:Label Runat="Server" Id="Showpagenumber" />頁<br>
      <asp:linkbutton runat="server" ID="firstpage" OnCommand="pagechange" Text="首頁" CommandArgument="firstpage"/>
   <asp:linkbutton runat="server" ID="lastpage" OnCommand="pagechange" Text="尾頁" CommandArgument="lastpage"/>
   <asp:linkbutton runat="server" ID="prepage" OnCommand="pagechange" Text="上一頁" CommandArgument="prepage"/>
   <asp:linkbutton runat="server" ID="nextpage" OnCommand="pagechange" Text="下一頁" CommandArgument="nextpage"/>
    <br>

   總頁數:<Asp:Label Runat="Server" Id="showtotalpage" /><br>
   轉到：
   <asp:dropdownlist runat="Server" ID="PageList" AutoPostBack="True" OnSelectedIndexChanged="PageList_Change" />
<asp:textbox runat="server" id="pagenumber" ontextchange="change"/>
   <asp:button runat="server" ID="numberbutton" OnCommand="pagechange" Text="GO" CommandArgument="pagenumber"/>
   <Asp:Repeater Runat="Server" Id="myRepeater">
        <ItemTemplate>          <Br>
          <Br>
          <table border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="147" rowspan="6"> <div align="center"><Img Src="<%# Container.DataItem("唱片圖片") %>"></div></td>
              <td width="362"> </td>
            </tr>
            <tr>
              <td>樂隊：<%# Container.DataItem("樂隊名") %></td>
            </tr>
            <tr>
              <td>唱片：<%# Container.DataItem("唱片名") %></td>
            </tr>
            <tr>
              <td>加入時間：<%# Container.DataItem("新增時間")%> </td>
            </tr>
            <tr>
              <td>推薦指數：<%# Container.DataItem("欣賞指數")%></td>
            </tr>
            <tr>
              <td height="41">唱片風格：<%# Container.DataItem("風格名")%></td>
            </tr>
          </table>
          <Br>
        </ItemTemplate>
      </Asp:Repeater>
    </Form>
</Body>
</Html>

---------------------------------------------------------------------------------------------------

practice_2

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="vb" runat="server">

'定義bindlist子程式,呼叫pageno（頁面位置）引數
sub BindList(PageNo As Integer)

   '使用connection物件開啟資料連線
    Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & Server.MapPath("db/music.mdb")

'定義sql
Dim strSQL As String = "Select * From 唱片,風格 where 唱片.風格號碼 = 風格.風格號碼 Order By '新增時間' Desc"


    '建立dataadapter物件
Dim objCmd As New OleDbDataAdapter(strSQL, ConnString)


'建立dataset物件
Dim DS As New DataSet()

'呼叫dataadapter物件的fill()方法講選取的資料置入dataset物件。
objCmd.Fill(DS, "唱片")

    '宣告mytable 變數為 datatable物件，並將ds.tables("歌曲")賦值給 mytable變數。
    Dim myTable As DataTable = DS.Tables("唱片")
dim pagesize as integer = 2

'顯示留言的總條數
dim totalrecord as integer = mytable.rows.count
showtotalrecord.text = totalrecord

'顯示流言總頁數totalrecord為流言總條數
dim totalpage as integer
if totalrecord < pagesize then
   totalpage = 1
else
   if totalrecord mod pagesize <> 0 then
     totalpage = totalrecord / pagesize + 1
   else
     totalpage = totalrecord / pagesize
   end if
end if
ShowTotalPage.Text = TotalPage

    '建立 tempTable 資料表，其結構與mytable相同，tempTable 資料表
    '儲存的資料會連線到 Repeater 控制元件，以顯示留言內容。
Dim tempTable As DataTable = myTable.Clone()
    Dim I, J As Integer
    For I = (PageNo -1) * PageSize To PageNo * PageSize - 1
      If I > myTable.Rows.Count -1 Then Exit For
      Dim newRow As DataRow = tempTable.NewRow()
      For J = 0 To myTable.Columns.Count -1
        newRow(myTable.Columns(J).ColumnName) = myTable.Rows(I).Item(J)
      Next
      tempTable.Rows.Add(newRow)
    Next
    myRepeater.DataSource = tempTable
    myRepeater.DataBind()
End Sub

'此過程用來判斷是否應該顯示，首頁等按鈕。
sub showwhatbutton()
if pagelist.selectedindex= 0 then
   firstpage.visible = false
   prepage.visible = false
else
   firstpage.visible = true
   prepage.visible = true
end if

if pagelist.selectedindex = pagelist.items.count - 1 then
   lastpage.visible = false
   nextpage.visible = false
else
   lastpage.visible = true
   nextpage.visible = true
end if
end sub

'此程式用來建立快速換頁選單
Sub PageListItem()
    Dim I As Integer
    PageList.Items.Clear()
    For I = 0 To ShowTotalPage.Text -1
      PageList.Items.Add("第 " & I + 1 & " 頁")
    Next
End Sub
'頁面第一次載入時執行此程式，呼叫bindlist和pagelistitem子程式並賦值
Sub Page_Init(sender As Object, e As Eventargs)
    BindList(1)
    PageListItem()
showwhatbutton()
End Sub

'響應下拉選單 PageList 命令。
Sub PageList_Change(sender As Object, e As EventArgs)
    BindList(PageList.SelectedIndex + 1)
showwhatbutton()
End Sub

sub pagechange(sender as object, e as commandeventargs)
    select case e.commandargument
   case "firstpage"
     pagelist.selectedindex = 0
   case "nextpage"
     pagelist.selectedindex += 1
   case "prepage"
      pagelist.selectedindex -= 1
   case "lastpage"
   pagelist.selectedindex = showtotalpage.text - 1
end select
bindlist(PageList.SelectedIndex + 1)
showwhatbutton()
end sub
</script>

<Html>
<Body>
    <Form Runat="Server">
      收錄專輯總數：<Asp:Label Runat="Server" Id="ShowTotalrecord" />
      <asp:linkbutton runat="server" ID="firstpage" OnCommand="pagechange" Text="首頁" CommandArgument="firstpage"/>
    <asp:linkbutton runat="server" ID="lastpage" OnCommand="pagechange" Text="尾頁" CommandArgument="lastpage"/>
       <asp:linkbutton runat="server" ID="prepage" OnCommand="pagechange" Text="上一頁" CommandArgument="prepage"/>
       <asp:linkbutton runat="server" ID="nextpage" OnCommand="pagechange" Text="下一頁" CommandArgument="nextpage"/>
<br>

   總頁數:<Asp:Label Runat="Server" Id="showtotalpage" />
   目前位於：<asp:dropdownlist runat="Server" ID="PageList" AutoPostBack="True" OnSelectedIndexChanged="PageList_Change" />
   <Asp:Repeater Runat="Server" Id="myRepeater">
        <ItemTemplate>          <Br>
          <Br>
          <table border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="147" rowspan="6"> <div align="center"><Img Src="<%# Container.DataItem("唱片圖片") %>"></div></td>
              <td width="362"> </td>
            </tr>
            <tr>
              <td>樂隊：<%# Container.DataItem("樂隊名") %></td>
            </tr>
            <tr>
              <td>唱片：<%# Container.DataItem("唱片名") %></td>
            </tr>
            <tr>
              <td>加入時間：<%# Container.DataItem("新增時間")%> </td>
            </tr>
            <tr>
              <td>推薦指數：<%# Container.DataItem("欣賞指數")%></td>
            </tr>
            <tr>
              <td height="41">唱片風格：<%# Container.DataItem("風格名")%></td>
            </tr>
          </table>
          <Br>
        </ItemTemplate>
      </Asp:Repeater>
    </Form>
</Body>
</Html>

---------------------------------------------------------------

資料庫可以按照程式碼裡自行建立

Repeater 的分頁（摘自網路）
2007-10-16
Repeater控制元件的分頁實現
2012-01-28
控制元件
php簡易分頁程式碼
2015-01-21
PHP
php 分頁分頁類簡單實用
2021-09-09
PHP
aspnetpager+repeater+oracle實現分頁功能
2017-11-12
Oracle
簡單的儲存過程分頁
2012-05-04
儲存過程
簡單的分頁儲存過程
2009-08-12
儲存過程
一次簡單的分頁優化
2019-02-10
優化
asp.net 簡單分頁列印
2014-01-07
ASP.NET
程式碼 ajax分頁
2016-11-16
php分頁程式碼
2013-05-08
PHP
在repeater、datalist控制元件中使用分頁功能 (轉)
2007-08-17
控制元件
SQL 單表多條記錄分組查詢分頁程式碼
2012-04-20
SQL
如何寫一個簡單的分頁元件（原理）
2018-12-11
元件
django 網站實現簡單分頁
2020-01-10
Django網站
ASP.NET中Repeater控制元件實現分頁功能
2012-08-02
ASP.NET控制元件
靜態頁分頁功能js程式碼
2015-07-06
JS
Android分頁元件Paging簡單使用
2018-11-17
Android元件
簡單封裝分頁功能pageView.js
2016-08-21
封裝ViewJS
資料庫分頁；簡單整理測試
2012-05-04
資料庫
最新+最簡單Oracle分頁查詢法
2009-10-14
Oracle
為javaweb的頁面、html新增網站圖示簡單程式碼
2018-03-27
JavaWebHTML網站
dreamweaverMX通用分頁程式碼研究
2010-01-20
簡單的程式碼生成工具
2018-03-21
YII框架中自帶的表單，搜尋，分頁程式碼的實現
2016-10-13
框架
使用PagedDataSource類實現DataList和Repeater控制元件的分頁顯示 (轉)
2007-08-16
控制元件
一段簡單的顯示當前頁面FPS的程式碼
2018-12-27
靜態頁面之間傳值簡單程式碼例項
2017-03-24
jQuery實現的簡單投票簡單程式碼例項
2017-03-03
jQuery
CI框架內建分頁程式碼
2015-12-25
框架
簡單程式碼:將回歸特徵轉換為分類特徵
2021-09-09
特徵
java簡單聊天程式碼
2011-12-10
Java
簡單使用Knockout.js和Datatables.js 分頁
2019-04-06
JS
原生 JS實現一個簡單分頁外掛
2019-03-04
JS
簡單的網頁登入頁面
2024-04-10
網頁
簡單網頁
2020-10-02
網頁
jquery實現的分頁效果例項程式碼
2017-03-04
jQuery
C語言簡單程式碼程式
2020-09-25
C語言

簡單的Repeater分頁程式碼

相關文章