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 + -
显示快捷键?