📄 middle.aspx

📁 学生成绩管理学生成绩管理

💻 ASPX

字号:

<%@ 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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -