sqlgetlastname.aspx

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

<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<%
Dim conPubs As SqlConnection
Dim cmdLastName As SqlCommand
Dim parmLastName As SqlParameter
Dim strLastName As String

conPubs = New SqlConnection( "Server=localhost;uid=sa;pwd=secret;database=pubs" )
cmdLastName = New SqlCommand( "getLastname", conPubs )
cmdLastName.CommandType = CommandType.StoredProcedure

' FirstName Input Parameter
cmdLastName.Parameters.Add( "@firstname", "Ann" )

' LastName Output Parameter
parmLastName = cmdLastName.Parameters.Add( "@lastname", SqlDbType.Varchar )
parmLastName.Size = 40
parmLastName.Direction = ParameterDirection.Output

' Execute Command
conPubs.Open()
cmdLastName.ExecuteNonQuery()

' Retrieve value of output parameter
If Not IsDBNull( cmdLastName.Parameters( "@lastname" ).Value ) Then
  strLastName = cmdLastName.Parameters( "@lastname" ).Value
Else
  strLastName = "Unknown"
End If
conPubs.Close()
%>
The last name is <%=strLastName%>