C#版本
DataGridPaging.aspx
1@ Page language="c#" EnableViewState = "true" Codebehind="DataGridPaging.aspx.cs"
2AutoEventWireup="false" Inherits="eMeng.Exam.DataGridPaging.DataGridPaging"
1<html>
2<head>
3<meta content="Visual Basic 7.0" name="CODE_LANGUAGE"/>
4<meta content="JavaScript" name="vs_defaultClientScript"/>
5<meta content=" http://schemas.microsoft.com/intellisense/ie5 " name="vs_targetSchema"/>
6</head>
7<body ms_positioning="GridLayout">
8<form id="Form1" runat="server">
9<asp:datagrid allowpaging="True" alternatingitemstyle-backcolor="#eeeeee" autogeneratecolumns="False" bordercolor="black" borderwidth="1" cellpadding="3" cellspacing="0" font-name="Verdana" font-size="8pt" gridlines="Both" headerstyle-backcolor="#aaaadd" horizontalalign="Center" id="MyDataGrid" onpageindexchanged="MyDataGrid_Page" pagerstyle-horizontalalign="Right" pagerstyle-mode="NumericPages" pagesize="5" runat="server">
10<alternatingitemstyle backcolor="#EEEEEE"></alternatingitemstyle>
11<headerstyle backcolor="#AAAADD" font-bold="True" horizontalalign="Center"></headerstyle>
12<pagerstyle horizontalalign="Right" mode="NumericPages"></pagerstyle>
13<columns>
14<asp:boundcolumn datafield="Title" headerstyle-width="480px" headertext="标题">
15</asp:boundcolumn>
16<asp:boundcolumn datafield="CreateDate" dataformatstring="{0:yyyy-MM-dd hh:mm:ss}" headertext="发表日期">
17</asp:boundcolumn>
18</columns>
19</asp:datagrid>
20<p align="center" style="FONT-SIZE:9pt">
21<asp:label id="lblPageCount" runat="server"></asp:label>
22<asp:label id="lblCurrentIndex" runat="server"></asp:label>
23<asp:linkbutton commandargument="0" font-name="verdana" font-size="8pt" forecolor="navy" id="btnFirst" onclick="PagerButtonClick" runat="server"></asp:linkbutton>
24<asp:linkbutton commandargument="prev" font-name="verdana" font-size="8pt" forecolor="navy" id="btnPrev" onclick="PagerButtonClick" runat="server"></asp:linkbutton>
25<asp:linkbutton commandargument="next" font-name="verdana" font-size="8pt" forecolor="navy" id="btnNext" onclick="PagerButtonClick" runat="server"></asp:linkbutton>
26<asp:linkbutton commandargument="last" font-name="verdana" font-size="8pt" forecolor="navy" id="btnLast" onclick="PagerButtonClick" runat="server"></asp:linkbutton>
27</p>
28</form>
29</body>
30</html>
DataGridPaging.aspx.cs
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Data.OleDb;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
namespace eMeng.Exam.DataGridPaging
{
///
1<summary>
2/// DataGridPaging 的摘要说明。
3/// </summary>
public class DataGridPaging : System.Web.UI.Page
{
protected System.Web.UI.WebControls.DataGrid MyDataGrid;
protected System.Web.UI.WebControls.Label lblPageCount;
protected System.Web.UI.WebControls.Label lblCurrentIndex;
protected System.Web.UI.WebControls.LinkButton btnFirst;
protected System.Web.UI.WebControls.LinkButton btnPrev;
protected System.Web.UI.WebControls.LinkButton btnNext;
protected System.Web.UI.WebControls.LinkButton btnLast;
private OleDbConnection cn = new OleDbConnection();
private void Page_Load(object sender, System.EventArgs e)
{
// 在此处放置用户代码以初始化页面
btnFirst.Text = "最首页";
btnPrev.Text = "前一页";
btnNext.Text = "下一页";
btnLast.Text = "最后页";
OpenDatabase();
BindGrid();
}
private void OpenDatabase()
{
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("xxxx.mdb");
cn.Open();
}
private void ShowStats()
{
lblCurrentIndex.Text = "第 " + (MyDataGrid.CurrentPageIndex + 1).ToString() + " 页";
lblPageCount.Text = "总共 " + MyDataGrid.PageCount.ToString() + " 页";
}
public void PagerButtonClick(object sender, EventArgs e)
{
string arg = ((LinkButton)sender).CommandArgument.ToString();
switch(arg)
{
case "next":
if (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1))
{
MyDataGrid.CurrentPageIndex += 1;
}
break;
case "prev":
if (MyDataGrid.CurrentPageIndex > 0)
{
MyDataGrid.CurrentPageIndex -= 1;
}
break;
case "last":
MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1);
break;
default:
MyDataGrid.CurrentPageIndex = System.Convert.ToInt32(arg);
break;
}
BindGrid();
ShowStats();
}
public void BindGrid()
{
OleDbConnection myConnection = cn;
DataSet ds = new DataSet();
OleDbDataAdapter adapter = new OleDbDataAdapter("Select Title,CreateDate from Document", myConnection);
adapter.Fill(ds, "Document");
MyDataGrid.DataSource = ds.Tables["Document"].DefaultView;
MyDataGrid.DataBind();
ShowStats();
}
public void MyDataGrid_Page(object sender, DataGridPageChangedEventArgs e)
{
int startIndex ;
startIndex = MyDataGrid.CurrentPageIndex * MyDataGrid.PageSize;
MyDataGrid.CurrentPageIndex = e.NewPageIndex;
BindGrid();
ShowStats();
}
#region Web Form Designer generated code
override protected void OnInit(EventArgs e)
{
//
// CODEGEN：该调用是 ASP.NET Web 窗体设计器所必需的。
//
InitializeComponent();
base.OnInit(e);
}
///
1<summary>
2/// 设计器支持所需的方法 - 不要使用代码编辑器修改
3/// 此方法的内容。
4/// </summary>
private void InitializeComponent()
{
this.Load += new System.EventHandler(this.Page_Load);
}
#endregion
}
}
VB.NET版本
DataGridPaging.aspx
1@ Page Language="vb" AutoEventWireup="false" Codebehind="DataGridPaging.aspx.vb" Inherits="DataGridPaging"
1<html>
2<head>
3<meta content="Visual Basic 7.0" name="CODE_LANGUAGE"/>
4<meta content="JavaScript" name="vs_defaultClientScript"/>
5<meta content=" http://schemas.microsoft.com/intellisense/ie5 " name="vs_targetSchema"/>
6</head>
7<body ms_positioning="GridLayout">
8<form id="Form1" runat="server">
9<asp:datagrid allowpaging="True" alternatingitemstyle-backcolor="#eeeeee" bordercolor="black" borderwidth="1" cellpadding="3" cellspacing="0" font-name="Verdana" font-size="8pt" gridlines="Both" headerstyle-backcolor="#aaaadd" id="MyDataGrid" onpageindexchanged="MyDataGrid_Page" pagerstyle-horizontalalign="Right" pagerstyle-mode="NumericPages" pagesize="5" runat="server">
10<alternatingitemstyle backcolor="#EEEEEE"></alternatingitemstyle>
11<headerstyle backcolor="#AAAADD"></headerstyle>
12<pagerstyle horizontalalign="Right" mode="NumericPages"></pagerstyle>
13</asp:datagrid>
14<p style="font-size:9pt">
15<asp:label id="lblPageCount" runat="server"></asp:label>
16<asp:label id="lblCurrentIndex" runat="server"></asp:label>
17<asp:linkbutton commandargument="0" font-name="verdana" font-size="8pt" forecolor="navy" id="btnFirst" onclick="PagerButtonClick" runat="server">
18</asp:linkbutton>
19<asp:linkbutton commandargument="prev" font-name="verdana" font-size="8pt" forecolor="navy" id="btnPrev" onclick="PagerButtonClick" runat="server">
20</asp:linkbutton>
21<asp:linkbutton commandargument="next" font-name="verdana" font-size="8pt" forecolor="navy" id="btnNext" onclick="PagerButtonClick" runat="server">
22</asp:linkbutton>
23<asp:linkbutton commandargument="last" font-name="verdana" font-size="8pt" forecolor="navy" id="btnLast" onclick="PagerButtonClick" runat="server">
24</asp:linkbutton>
25</p>
26</form>
27</body>
28</html>
DataGridPaging.aspx.vb
Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.UI
Public Class DataGridPaging
Inherits System.Web.UI.Page
Protected WithEvents MyDataGrid As System.Web.UI.WebControls.DataGrid
Protected WithEvents btnFirst As System.Web.UI.WebControls.LinkButton
Protected WithEvents btnPrev As System.Web.UI.WebControls.LinkButton
Protected WithEvents btnNext As System.Web.UI.WebControls.LinkButton
Protected WithEvents btnLast As System.Web.UI.WebControls.LinkButton
Protected WithEvents lblCurrentIndex As System.Web.UI.WebControls.Label
Protected WithEvents lblPageCount As System.Web.UI.WebControls.Label
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
1<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
2
3End Sub
4
5Private Sub Page_Init(ByVal sender As System.Object,_
6ByVal e As System.EventArgs) Handles MyBase.Init
7'CODEGEN: This method call is required by the Web Form Designer
8'Do not modify it using the code editor.
9InitializeComponent()
10End Sub
11
12#End Region
13
14Private Sub Page_Load(ByVal sender As System.Object,_
15ByVal e As System.EventArgs) Handles MyBase.Load
16btnFirst.Text = "最首页"
17btnPrev.Text = "前一页"
18btnNext.Text = "下一页"
19btnLast.Text = "最后页"
20OpenDatabase()
21BindGrid()
22End Sub
23
24
25Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
26Dim startIndex As Integer
27startIndex = MyDataGrid.CurrentPageIndex * MyDataGrid.PageSize
28MyDataGrid.CurrentPageIndex = e.NewPageIndex
29BindGrid()
30ShowStats()
31End Sub
32
33Sub BindGrid()
34Dim myConnection As SqlConnection = cn
35Dim ds As DataSet = New DataSet()
36Dim adapter As SqlDataAdapter = New SqlDataAdapter("Select * from Orders", myConnection)
37adapter.Fill(ds, "Orders")
38MyDataGrid.DataSource = ds.Tables("Orders").DefaultView
39MyDataGrid.DataBind()
40ShowStats()
41
42End Sub
43
44Sub PagerButtonClick(ByVal sender As Object, ByVal e As EventArgs)
45'used by external paging UI
46Dim arg As String = sender.CommandArgument
47
48Select Case arg
49Case "next"
50If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
51MyDataGrid.CurrentPageIndex += 1
52End If
53Case "prev"
54If (MyDataGrid.CurrentPageIndex > 0) Then
55MyDataGrid.CurrentPageIndex -= 1
56End If
57Case "last"
58MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
59Case Else
60'page number
61MyDataGrid.CurrentPageIndex = System.Convert.ToInt32(arg)
62End Select
63BindGrid()
64ShowStats()
65End Sub
66
67Sub ShowStats()
68lblCurrentIndex.Text = "第 " + (MyDataGrid.CurrentPageIndex + 1).ToString() + " 页"
69lblPageCount.Text = "总共 " + MyDataGrid.PageCount.ToString() + " 页"
70End Sub
71
72Public cn As New SqlClient.SqlConnection()
73Public Sub OpenDatabase()
74cn.ConnectionString = "Server=.;Database=NorthWind;User Id=sa;Password=;"
75cn.Open()
76End Sub
77End Class</system.diagnostics.debuggerstepthrough()>