如何将DataList的分页显示代码写到类里去?

[feng0817]

Function DataListChangePage(ByVal CountPage As HyperLink, ByVal CurrentPage As HyperLink, ByVal Prev_Page As HyperLink, ByVal Next_Page As HyperLink, ByVal MyDataList As DataList)
Dim objConn As New OleDbConnection("provider=Microsoft.jet.oledb.4.0;data source= " & Server.MapPath("./") & "../DataBase\xiaoyl.mdb")
Dim objCommand As New OleDbDataAdapter("select * from LIUYB order by bianh desc", objConn)
Dim ds As New DataSet
objCommand.Fill(ds)

'对objPdsSource 对象的相关属性赋值
Dim objPds As New PagedDataSource 'objPdsSource
objPds.DataSource = ds.Tables(0).DefaultView
objPds.AllowPaging = True
objPds.PageSize = 15
Dim CurPage As Integer

'当前页面从Page查询参数获取
If Request.QueryString("Page") <> "" Then
CurPage = Convert.ToInt32(Request.QueryString("Page"))
Else
CurPage = 1
End If

CountPage.Text = "共" + objPds.PageCount.ToString() + "页"
objPds.CurrentPageIndex = CurPage - 1
CurrentPage.Text = "第" + CurPage.ToString() + "页"

If Not objPds.IsFirstPage Then
Prev_Page.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurPage - 1)
End If

If Not objPds.IsLastPage Then
Next_Page.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurPage + 1)
End If

'把objPdsSource 对象赋给datalist控件
MyDataList.DataSource = objPds
MyDataList.DataBind()
End Function

这是一段DataList多页显示的代码,我想把它写到类里去,可是写进去后总是报错,Request.QueryString("Page") 报错:请求在此上下文中不可用.
请各位帮忙看看

[feng0817]

是不是像Request这样的页面请求无法在类中实现?

[gogome]

分页显示的确可以增加显示的速度,具体怎么用,还看各位大侠的