SqlDatasource+DataList的分頁範例

最新推荐文章于 2014-04-27 23:50:56 发布

转载最新推荐文章于 2014-04-27 23:50:56 发布 · 1.7k 阅读

文章标签：

#hyperlink #server #integer #asp #xhtml #object

.NET 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一种使用 ASP.NET 和 VB 实现数据分页的方法。通过 SqlDataSource 连接数据库并利用 PagedDataSource 控件进行分页显示，具体讲解了如何设置每页显示的记录数、生成页面导航链接及下拉菜单选择页数等功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

default.aspx

<%@ Page Language="VB" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

        Pgds.CurrentPageIndex = CurrentPage - 1
        Label1.Text = CurrentPage.ToString()    '//目前的頁數

        '//若有上一頁
        If Not Pgds.IsFirstPage Then
            lnkPrev.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurrentPage - 1)
        End If

        '//若有下一頁
        If Not Pgds.IsLastPage Then
            lnkNext.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurrentPage + 1)
        End If

        Me.DataList1.DataSource = Pgds '把分頁物件的資料丟給datalist1顯示
        DataList1.RepeatColumns = 4'設定行數
        DataList1.RepeatDirection = RepeatDirection.Horizontal
        'Horizontal 清單的項目會由左而右，然後由上而下，以水平成列顯示，直到所有項目皆呈現。
        ' GridView1.AutoGenerateColumns = True
        Me.DataList1.DataBind()

        Dim i As Integer
        Dim oItem As New ListItem()

        For i = 1 To (Pgds.PageCount)
            oItem.Text = "第" & i & "頁"
            oItem.Value = "default.aspx?page=" & i
            ddlist1.Items.Insert(i, New ListItem(oItem.Text, oItem.Value))

        Next i
    End Sub

    Protected Sub ddlist1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Label1.Text = ddlist1.SelectedItem.Value
        Response.Redirect(ddlist1.SelectedItem.Value)
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>未命名頁面</title>
</head>
<body>
    <form id="form1" runat="server">
    <div align=center>
         <asp:DropDownList ID="ddlist1" runat="server" OnSelectedIndexChanged="ddlist1_SelectedIndexChanged" AutoPostBack="True">
        <asp:ListItem Value="新增">請選擇</asp:ListItem>

        </asp:DropDownList>
        <asp:DataList ID="DataList1" runat="server" CellPadding="3" Width="152px" BackColor="#DEBA84" BorderColor="#DEBA84" BorderStyle="None" BorderWidth="1px" CellSpacing="2" GridLines="Both">
          <ItemTemplate>