listing1004.aspx

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

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

<script runat="server">
   sub Page_Load(obj as object, e as eventargs)
      dim objConn as new OleDbConnection _
         ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=H:\ASPNET\data\banking.mdb")
      
      dim objCmd as new OleDbCommand _
         ("select * from tblUsers", objConn)

      dim objReader as OleDbDataReader
      
      objConn.Open
      objReader = objCmd.ExecuteReader
      
      while objReader.Read
         Response.write(objReader.GetString(0) & "<br>")
      end while
      objConn.Close
   end sub   
</script>

<html><body>

</body></html>

⌨️ 快捷键说明

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