DataList PagedDataSource 分屏显示问题

各位大侠：

  小弟用datalist绑定数据，用PagedDataSource做的分页，现在想实现更改显示记录条数，比如一个下拉菜单，有每页显示20条、50条、100条，选择相应数据即可实现更改。请问大侠们有什么好的方法没有。

以下是源码

 Sub GetData(ByVal cmdString As String)

        Dim conn As SqlConnection
        Dim myDataAdpter As SqlDataAdapter
        Dim myDataSet As DataSet



        conn = New SqlConnection(ConfigurationManager.ConnectionStrings("Shenzhou").ConnectionString)
        myDataAdpter = New SqlDataAdapter(cmdString, conn)
        conn.Open()




        myDataSet = New DataSet
        myDataAdpter.Fill(myDataSet, "equipment")

        Dim Ps As PagedDataSource
        Dim PageNum As Integer '页码
        Dim PageCount As Integer '总页数
        Dim RecordCount As Integer '总记录数
        Dim EquipmentType As String
        EquipmentType = Request("EquipmentType")

        If myDataSet.Tables("equipment").Rows.Count = 0 Then

            Label2.Text = "无相关数据!"
        Else
            Label2.Text = ""
        End If

        '分页开始

        Ps = New PagedDataSource '实例化分页对象
        Ps.DataSource = myDataSet.Tables("equipment").DefaultView '将数据填入分页
        Ps.PageSize = 15 '每页显示记录数
        Ps.AllowPaging = True '设置允许分页
        PageNum = CInt(Request.QueryString("Pagenum")) '获取页码值 
        PageCount = Ps.PageCount '总页数
        RecordCount = Ps.DataSourceCount '总记录数

       

        If PageNum = 0 Then

            PageNum = 1

        End If

        If PageNum > PageCount Then

            PageNum = PageCount

        End If

        Ps.CurrentPageIndex = PageNum - 1

       
        TextBox1.Text = PageNum
        HiddenField1.Value = PageCount

        Label3.Text = "共<span class='red'> " & RecordCount & "</span> 条记录    共 <span class='red'>" & PageCount & "</span> 页    当前第 <span class='red'>" & PageNum & "</span> 页"

        If PageCount = 1 Then '当只有一页时，都没有链接

            Label4.Text = "<<首页  上一页    下一页  尾页>>"

        ElseIf PageCount > 1 Then '当大于一页时

            If PageNum = PageCount Then '如果当前页等于总页数，则下一页没有链接

                Label4.Text = "<a href=?&PageNum=1><<首页</a>  <a href=?&PageNum=" & PageNum - 1 & ">上一页</a>    下一页  <a href=?&PageNum=" & PageCount & ">尾页>></a>"

            ElseIf PageNum = 1 Then '如果当前页等于1,则上一页没有链接

                Label4.Text = "<a href=?&PageNum=1><<首页</a>  上一页    <a href=?&PageNum=" & PageNum + 1 & ">下一页</a>  <a href=?&PageNum=" & PageCount & ">尾页>></a>"

            Else '否则都有链接

                Label4.Text = "<a href=?&PageNum=1><<首页</a>  <a href=?&PageNum=" & PageNum - 1 & ">上一页</a>    <a href=?&PageNum=" & PageNum + 1 & ">下一页</a>  <a href=?&PageNum=" & PageCount & ">尾页>></a>"


            End If
        End If

        DataList1.DataSource = Ps
        DataList1.DataBind()


    End Sub --------------------编程问答-------------------- 帮顶起…… --------------------编程问答-------------------- 大侠们帮帮忙啊 --------------------编程问答-------------------- 把分页做成一个方法传进去传个参数，需要显示几页传几页，看看行不啊 --------------------编程问答-------------------- 我这个分页绑定就是写了一个函数 GetData ,里面传了个参数（cmdString 查询语句）我也想过再传个参数，但是我这个是个查询的页面，是查询到结果后更改条数显示的，好像不可行

补充：.NET技术 ,  ASP.NET