ASP.NET中教你實(shí)現(xiàn)repeater控件分頁(yè)功能代碼實(shí)現(xiàn)

<cite id="ikgdy"><table id="ikgdy"></table></cite>

作者：佚名點(diǎn)擊：384次評(píng)論：0次標(biāo)簽：控件分頁(yè)功能 repeater

Mp3Repeater(mp3英語(yǔ)復(fù)讀機(jī))v1.00 Beta 安裝版

類型：外語(yǔ)學(xué)習(xí)大�。�5.6M語(yǔ)言：中文評(píng)分：8.0
標(biāo)簽：

立即下載

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim objConn As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data\myweb.mdb") & ";Persist Security Info=False")
Dim strsql As String = "SELECT [wz_id],[wz_bt],[wz_hit],[wz_zz],mid(wz_nr,1,200) as sub_wz FROM [wenzhang] ORDER BY [wz_id] DESC"

Dim objCommand As OleDbDataAdapter = New OleDbDataAdapter(strsql, objConn)
Dim ds As DataSet = New DataSet()
Dim CurPage As Integer

objCommand.Fill(ds)

'對(duì)PagedDataSource 對(duì)象的相關(guān)屬性賦值
Dim objPds As PagedDataSource = New PagedDataSource()
objPds.DataSource = ds.Tables(0).DefaultView
objPds.AllowPaging = True
objPds.PageSize = 10

'當(dāng)前頁(yè)面從Page查詢參數(shù)獲取
If (Request.QueryString("Page") <> "") Then
CurPage = Convert.ToInt32(Request.QueryString("Page"))
Else
CurPage = 1
End If
objPds.CurrentPageIndex = CurPage - 1
lblCurrentPage.Text = "當(dāng)前為第: " & CurPage.ToString() & "頁(yè)"
lblcount.Text = "共有" & objPds.PageCount & "頁(yè)"
If objPds.IsFirstPage = False Then
lnkPrev.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(CurPage - 1)

lnkfirst.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & "1"
End If
If objPds.IsLastPage = False Then
lnkNext.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(CurPage + 1)

lnklast.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(objPds.PageCount)
End If