temp.aspx

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

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

<script runat="server">
   dim Conn as new OleDbConnection("Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=H:\ASPNET\data\banking.mdb")
   
   sub Submit(obj as object, e as eventargs)
      dim objCmd as OleDbCommand = new OleDbCommand _
         ("SelectIDFromName", Conn)
      dim objReader as OleDbDataReader
      objCmd.CommandType = CommandType.StoredProcedure
      
      dim objParam as OleDbParameter
      objParam = objCmd.Parameters.Add("@FirstName", _
         OleDbType.Char)
      objParam.Direction = ParameterDirection.Input
      objParam.Value = tbFirst.Text

      objParam = objCmd.Parameters.Add("@LastName", _
         OleDbType.Char)
      objParam.Direction = ParameterDirection.Input
      objParam.Value = tbLast.Text
      
      try
         objCmd.Connection.Open()
         objReader = objCmd.ExecuteReader
      catch ex as OleDbException
         Response.Write("Error retrieving from the database.")
      end try

      DataGrid1.DataSource = objReader
      DataGrid1.DataBind()

      objCmd.Connection.Close()
   End Sub
</script>

<html><body>
   <form runat="server">
      Enter a first name:
      <asp:TextBox id="tbFirst" runat="server"/><br>
      Enter a last name:
      <asp:TextBox id="tbLast" runat="server"/><p>
   
      <asp:Button id="btSubmit" runat="server"
         Text="Submit"
         OnClick="Submit"/><p>
   
      <asp:DataGrid id="DataGrid1" runat="server" 
         BorderColor="black" 
         GridLines="Vertical" 
         cellpadding="4" 
         cellspacing="0" 
         width="100%"
         Font-Name="Arial" 
         Font-Size="8pt" 
         HeaderStyle-BackColor="#cccc99"
         ItemStyle-BackColor="#ffffff"
         AlternatingItemStyle-Backcolor="#cccccc"
         AutoGenerateColumns="true" />
   </form>
</body></html>

⌨️ 快捷键说明

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