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 IntegerobjCommand.Fill(ds)'对PagedDataSource 对象的相关属性赋值Dim objPds As PagedDataSource = New PagedDataSource()objPds.DataSource = ds.Tables(0).DefaultViewobjPds.AllowPaging = TrueobjPds.PageSize = 10

'当前页面从Page查询参数获取If (Request.QueryString("Page") <> "") ThenCurPage = Convert.ToInt32(Request.QueryString("Page"))ElseCurPage = 1End IfobjPds.CurrentPageIndex = CurPage - 1lblCurrentPage.Text = "当前为第: " & CurPage.ToString() & "页"lblcount.Text = "共有" & objPds.PageCount & "页"If objPds.IsFirstPage = False ThenlnkPrev.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(CurPage - 1)lnkfirst.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & "1"End IfIf objPds.IsLastPage = False ThenlnkNext.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(CurPage + 1)lnklast.NavigateUrl = Request.CurrentExecutionFilePath & "?Page=" & Convert.ToString(objPds.PageCount)End If

'把PagedDataSource 对象赋给Repeater控件Repeater1.DataSource = objPds 'repeater的数据源就是这Repeater1.DataBind()End Sub

'其中lnknext、lnkprev、lnkfirst、lnklast是HyperLink控件，lblcurrentpage、lblcout是label控件