global.asax

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<Script Runat="Server">

Sub Application_Start
  Dim conNorthwind As SqlConnection
  Dim strSelect As String
  Dim dadProducts As SqlDataAdapter
  Dim dstProducts As DataSet

  conNorthwind = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Northwind" )
  strSelect = "Select * From Products"
  dadProducts = New SqlDataAdapter( strSelect, conNorthwind )
  dstProducts = New DataSet()
  dadProducts.Fill( dstProducts, "Products" )
  Context.Cache( "Products" ) = dstProducts
End Sub

</Script>