小弟刚刚学ASP.NET，请问新闻中怎么分页呢？

Question

你写的代码这是干嘛？我这里有分页代码
Private currentpage As Integer
    Private countpage As Integer
    Private pagesize As Integer = 10
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            getdb(Request.QueryString("page"))
        End If
    End Sub
    Sub getdb(ByVal mypage As String)
        Dim strpages As StringBuilder = New StringBuilder
        If mypage = "" Then
            currentpage = 1
        Else
            currentpage = CInt(mypage)
        End If
        sqlconn = New SqlConnection(getconnstring())
        sqlcomm = New SqlCommand("select count(*) as id from zbcftz_roll", sqlconn)
        Dim dr As SqlDataReader
        Dim i As Integer
        sqlconn.Open()
        dr = sqlcomm.ExecuteReader
        If dr.Read Then
            i = dr("id")
        Else
            i = 0
        End If
        dr.Close()
        sqlconn.Close()
        If i Mod pagesize = 0 Then
            countpage = i / pagesize
        Else
            countpage = (i \ pagesize) + 1
        End If
        If currentpage > countpage Then '//如果当前页超出过总页数
            currentpage = countpage
        End If
        If currentpage < 1 Then
            currentpage = 1
        End If
        Dim start As Integer = pagesize * (currentpage - 1)        sqlconn = New SqlConnection(getconnstring())
        sqlcomm = New SqlCommand("select roll_title,id,adddate from zbcftz_roll order by adddate desc", sqlconn)
        Dim sql As SqlDataAdapter = New SqlDataAdapter        Dim ds As DataSet = New DataSet
        sql.SelectCommand = sqlcomm
        sql.Fill(ds, start, pagesize, "zbcftz_roll")
        Dim mydatarow As DataRowView        Repeater1.DataSource = ds.Tables.Item(0)
        Repeater1.DataBind()        If currentpage <= 3 Then
            Dim j As Integer
            For j = 1 To 5
                If j <= countpage Then
                    Dim strformat As StringBuilder = New StringBuilder("<a href=gg01.aspx")
                    strformat.Append("?page={0}> [ {0} ] </a>")
                    If j = currentpage Then
                        strformat = New StringBuilder(" <font color=""#FF6699\""> [ {0} ] </font>")
                    End If
                    strpages.AppendFormat(strformat.ToString, j)
                Else
                End If
            Next
            If countpage > 5 Then
                strpages.AppendFormat("... <a href=gg01.aspx?page={0}> [ {0} ] </a>", countpage)
            End If
        ElseIf currentpage <= countpage - 3 Then            strpages.AppendFormat("<a href=gg01.aspx?page={0}> [ {0} ] </a>... ", 1)
            Dim j As Integer
            For j = currentpage - 2 To currentpage + 2
                If j < countpage Then
                    Dim strformat As StringBuilder = New StringBuilder("<a href=gg01.aspx")
                    strformat.Append("?page={0}>[ {0} ]</a>")
                    If j = currentpage Then
                        strformat = New StringBuilder(" <font color=""#ff6699\""> [ {0} ] </font>")
                    End If
                    strpages.AppendFormat(strformat.ToString, j)
                Else                End If
            Next
            strpages.AppendFormat("... <a href=gg01.aspx?page={0}> [ {0} ] </a>", countpage)        Else
            strpages.AppendFormat("<a href=gg01.aspx?page={0}> [ {0} ] </a>... ", 1)
            Dim j As Integer
            For j = countpage - 4 To countpage
                Dim strformat As StringBuilder = New StringBuilder("<a href=gg01.aspx")
                strformat.Append("?page={0}> [ {0} ] </a>")
                If j = currentpage Then
                    strformat = New StringBuilder(" <font color=""#FF6699\""> [ {0} ] </font>")
                End If
                strpages.AppendFormat(strformat.ToString, j)
            Next        End If
        Label1.Text = strpages.ToString
        Dim curr As String = "共 <font color=""#ff6600""> [  {0}  ] </font>  页，当前第 <font color=""#ff6600""> [  {1}  ] </font>  页"
        Label2.Text = curr.Format(curr, countpage, currentpage)    End Sub演示http://lscgzb.nongmao.com/project/ruwei_affiche.aspx