pagecontents.ascx

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

<%@ OutputCache Duration="60" VaryByParam="*" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<Script Runat="Server">

Public CategoryID As Integer

Sub Page_Load
  Dim conNorthwind As SqlConnection
  Dim strSelect As String
  Dim cmdSelect As SqlCommand

  conNorthwind = New SqlConnection( "Server=Localhost;UID=sa;PWD=secret;Database=Northwind" )
  strSelect = "Select * From Products Where CategoryID=@CategoryID"
  cmdSelect = New SqlCommand( strSelect, conNorthwind )
  cmdSelect.Parameters.Add( "@CategoryID", CategoryID )
  conNorthwind.Open()
    dgrdProducts.DataSource = cmdSelect.ExecuteReader()
    dgrdProducts.DataBind()
  conNorthwind.Close()
End Sub
</Script>

<p>
<h1>Welcome to Our Web Site!</h1>
Here is a list of our current products:
<p>
<asp:DataGrid
  ID="dgrdProducts"
  Runat="Server" />

( Control generated: <%=Now%> )
<p>