exercise1.aspx

来自「asp入门到精通的源代码」· ASPX 代码 · 共 50 行

ASPX
50
字号
<%@ Page Language="VB" Trace="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script language="VB" runat="server">
   sub Page_Load(obj as Object, e as EventArgs) 
      response.write(Trace.Listeners.ToString)
      
      if not Page.IsPostBack then
         CreateData()
      end if
   end sub
   
   sub CreateData
      
      dim source as OleDbDataReader
      dim strConnString as string = "Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\ASPNET\data\banking.mdb"
      
      dim objConn as new OleDbConnection(strConnString)
      dim objCmd as OleDbCommand = new OleDbCommand _
         ("select * from tblUsers", objConn)
      dim objReader as OleDbDataReader
      objCmd.Connection.Open
      
         objReader = objCmd.ExecuteReader
         
         source = objReader
      
      dgData.DataSource = source
      dgData.DataBind()
   end sub
</script>

<html><body>
   <form runat="server">
      <asp:Label id="lblMessage" runat="server"
         maintainState=false/><p>
      <asp:DataGrid id="dgData" runat="server" 
         BorderColor="black" GridLines="Vertical" 
         cellpadding="4" cellspacing="0" 
         width="450" Font-Name="Arial" 
         Font-Size="8pt" 
         HeaderStyle-BackColor="#cccc99"
         ItemStyle-BackColor="#ffffff"
         AlternatingItemStyle-Backcolor="#cccccc" />
   </form>
</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?