middle.aspx
来自「学生成绩管理 学生成绩管理」· ASPX 代码 · 共 32 行
ASPX
32 行
<%@ 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("基本信息.mdb")
Dim objAdpt As New OleDbDataAdapter("Select * from student",conn)
objAdpt.Fill(DS,"student")
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 background="image/13.jpg"><H1 Align="Center">基 本 信 息 表</H1><Form Runat="Server" ><center>
<Hr color="#003366" Border="2"><br>
<Asp:DataGrid Runat="Server" Id="stuDG" AutoGenerateColumns="True" AllowPaging="True"
PageSize="5" OnPageIndexChanged="PageChanged" HorizontalAlign="Center" Width="450"
BorderColor="#DEBA84" PagerStyle-HorizontalAlign="center" PagerStyle-NextPageText="下一页"
PagerStyle-PrevPageText="上一页">
<HeaderStyle Font-Size="Small" Font-Bold="True" HorizontalAlign="Center"
ForeColor="#FFFFFF" BackColor="#990000" />
<ItemStyle Font-Size="X-Small" ForeColor="#336688" /></Asp:DataGrid>
</center></Form></Body></Html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?