DATALIST分页---常用

最新推荐文章于 2025-07-07 23:22:43 发布

转载最新推荐文章于 2025-07-07 23:22:43 发布 · 2.9k 阅读

文章标签：

#integer #server #asp #dataset #border #table

asp.net 专栏收录该内容

30 篇文章

订阅专栏

本文介绍了一种使用 ASP.NET 实现新闻列表分页的方法。通过 SQL 查询获取新闻记录，并将其填充到 DataSet 中，再利用 DataList 控件进行展示。文章详细说明了如何计算总页数和当前页面的新闻条目，以及如何通过按钮和下拉列表来改变页面。

   Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
        BindList(1)
        PageListItem()
        ShowWhatButton()
    End Sub

Sub BindList(ByVal PageNo As Integer)

       myconn = New SqlClient.SqlConnection
        myconn.ConnectionString = (xinxi.stringconnection)
        Dim strSQL As String = "Select * From news Order By newsid Desc "
        Dim objCmd As New SqlClient.SqlDataAdapter(strSQL, myconn.ConnectionString)
        Dim DS As New DataSet
        objCmd.Fill(DS, "news")
        Dim myTable As DataTable = DS.Tables("news")

Dim TotalRecord As Integer = myTable.Rows.Count
ShowTotalRecord.Text = TotalRecord

        Dim TotalPage As Integer
        If TotalRecord < 20 Then         ‘20：每页显示的数量
            TotalPage = 1
        Else
            If TotalRecord Mod 20 <> 0 Then
                TotalPage = TotalRecord / 20 + 1
            Else
                TotalPage = TotalRecord / 20
            End If
        End If
        ShowTotalPage.Text = TotalPage

Dim tempTable As DataTable = myTable.Clone()

        Dim I, J As Integer
        For I = (PageNo - 1) * 20 To PageNo * 20 - 1
            If I > myTable.Rows.Count - 1 Then Exit For
            Dim newRow As DataRow = tempTable.NewRow()
            For J = 0 To myTable.Columns.Count - 1
                newRow(myTable.Columns(J).ColumnName) = myTable.Rows(I).Item(J)
            Next
            tempTable.Rows.Add(newRow)
        Next
        Label1.Text = PageNo
        myGuestbook.DataSource = tempTable
        myGuestbook.DataBind()
    End Sub

    Sub ShowWhatButton()
        If PageList.SelectedIndex = 0 Then
            firstButton.Enabled = False

            preButton.Enabled = False
        Else
            firstButton.Enabled = True
            preButton.Enabled = True
        End If
        If PageList.SelectedIndex = PageList.Items.Count - 1 Then
            nextButton.Enabled = False
            lastButton.Enabled = False
        Else
            nextButton.Enabled = True
            lastButton.Enabled = True
        End If
    End Sub
    Sub PageListItem()
        Dim I As Integer
        PageList.Items.Clear()
        For I = 0 To ShowTotalPage.Text - 1
            PageList.Items.Add("第" & I + 1 & "页")
        Next
    End Sub

Sub PageList_Change(ByVal sender As Object, ByVal e As EventArgs)
BindList(PageList.SelectedIndex + 1)

ShowWhatButton()
End Sub

    Sub PageChange(ByVal sender As Object, ByVal e As CommandEventArgs)
        Select Case e.CommandArgument
            Case "firstPage"
                PageList.SelectedIndex = 0
            Case "prePage"
                PageList.SelectedIndex -= 1
            Case "nextPage"
                PageList.SelectedIndex += 1
            Case "lastPage"
                PageList.SelectedIndex = ShowTotalPage.Text - 1

        End Select
        BindList(PageList.SelectedIndex + 1)
        ShowWhatButton()
    End Sub