<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Language="VB" Runat="Server">
Sub BindDataGrid()
Dim conn As New OleDbConnection()
Dim DS As New DataSet()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("XSCJ.mdb")
Dim objAdpt As New OleDbDataAdapter("Select * from XS",conn)
objAdpt.Fill(DS,"XS")
stuDG.DataSource = DS
stuDG.DataBind()
conn.Close()
End Sub
Sub Page_Load(sender As Object, e As Eventargs)
If Not IsPostBack Then BindDataGrid()
End Sub
Sub PageChanged(sender As Object, e As DataGridPageChangedEventArgs)
stuDG.CurrentPageIndex = e.NewPageIndex '更新CurrentPageIndex索引值
BindDataGrid() '重新绑定数据源
End Sub
</Script>
<Html><Body><H1 Align="Center">学生信息表</H1><Form Runat="Server">
<Asp:DataGrid Runat="Server" Id="stuDG" AutoGenerateColumns="True" AllowPaging="True"
PageSize="10" OnPageIndexChanged="PageChanged" HorizontalAlign="Center" Width="600"
BorderColor="#DEBA84" >
<PagerStyle HorizontalAlign="center" NextPageText="下一页" PrevPageText="上一页"/>
</Asp:DataGrid>
</Form></Body></Html>