<%@ Page Language="VB" AutoEventWireup="false" %> <% Dim Conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/wedding4.mdb")) Conn.Open() Dim Cmd As New System.Data.OleDb.OleDbCommand("SELECT * FROM Board ORDER BY boardid DESC", Conn) Dim DA As New System.Data.OleDb.OleDbDataAdapter(Cmd) Dim DT As New System.Data.DataTable DA.Fill(DT) Dim objPage As New System.Web.UI.WebControls.PagedDataSource objPage.DataSource = DT.DefaultView objPage.AllowPaging = True objPage.PageSize = 10 '一頁內顯示資料筆數 objPage.CurrentPageIndex = 0 Select Case Request("ACT") Case "FirstPage" objPage.CurrentPageIndex = 0 HL1_1.Visible = False HL2_1.Visible = False HL1_2.Visible = False HL2_2.Visible = False Case "PrevRec" objPage.CurrentPageIndex = CInt(Request("PageIndex")) - 1 If objPage.IsFirstPage = True Then HL1_1.Visible = False HL2_1.Visible = False HL1_2.Visible = False HL2_2.Visible = False End If Case "NextRec" objPage.CurrentPageIndex = CInt(Request("PageIndex")) + 1 If objPage.IsLastPage = True Then HL3_1.Visible = False HL4_1.Visible = False HL3_2.Visible = False HL4_2.Visible = False End If Case "LastPage" objPage.CurrentPageIndex = objPage.PageCount - 1 HL3_1.Visible = False HL4_1.Visible = False HL3_2.Visible = False HL4_2.Visible = False Case Else HL1_1.Visible = False HL2_1.Visible = False HL1_2.Visible = False HL2_2.Visible = False End Select HL2_1.NavigateUrl &= "&PageIndex=" & objPage.CurrentPageIndex HL3_1.NavigateUrl &= "&PageIndex=" & objPage.CurrentPageIndex HL2_2.NavigateUrl &= "&PageIndex=" & objPage.CurrentPageIndex HL3_2.NavigateUrl &= "&PageIndex=" & objPage.CurrentPageIndex Repeater1.DataSource = objPage Repeater1.DataBind() Dim S_rec As Integer = objPage.CurrentPageIndex * objPage.PageSize + 1 Dim E_rec As Integer = objPage.CurrentPageIndex * objPage.PageSize + objPage.PageSize If DT.Rows.Count = 0 Then S_rec = 0 E_rec = 0 HL1_1.Visible = False HL2_1.Visible = False HL3_1.Visible = False HL4_1.Visible = False HL1_2.Visible = False HL2_2.Visible = False HL3_2.Visible = False HL4_2.Visible = False ElseIf objPage.IsLastPage = True Then E_rec = DT.Rows.Count HL3_1.Visible = False HL4_1.Visible = False HL3_2.Visible = False HL4_2.Visible = False End If %> NASA-WEDDING婚禮紀錄工作室
線上預約 網站地圖 與我們連絡
NASA-SOHO電腦多媒體工作室 製作維護

  記錄 <%=S_rec %> 到 <%=E_rec %> 共 <%=DT.Rows.Count %> 筆
[ 新增留言 ]
第一頁 上一頁 下一頁 最後一頁
發言者：<%#DataBinder.Eval(Container.DataItem, "boardname")%>
<%#DataBinder.Eval(Container.DataItem, "boardtime")%>
標 題：<%# DataBinder.Eval(Container.DataItem, "boardsubject") %>
<%#DataBinder.Eval(Container.DataItem, "boardcontent")%>
top up
發言者：<%#DataBinder.Eval(Container.DataItem, "boardname")%>
<%#DataBinder.Eval(Container.DataItem, "boardtime")%>
標 題：<%# DataBinder.Eval(Container.DataItem, "boardsubject") %>
<%#DataBinder.Eval(Container.DataItem, "boardcontent")%>
top up
 
  記錄 <%=S_rec %> 到 <%=E_rec %> 共 <%=DT.Rows.Count %> 筆
第一頁 上一頁 下一頁 最後一頁

 
您的鼓勵與支持，將是我們最大的原動力 。

top up
NASA-SOHO電腦多媒體工作室 製作維護

關於我們
最新情報!!
作品記錄
服務內容
計價方式
幸福留言板
合作夥伴
其他連結
回首頁
 

[ 新增留言 ]