sqlgetauthorcount.aspx

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

<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<%
Dim conPubs As SqlConnection
Dim cmdAuthorCount As SqlCommand
Dim parmReturnValue As SqlParameter
Dim intAuthorCount As Integer

conPubs = New SqlConnection( "Server=localhost;uid=sa;pwd=secret;database=pubs" )
cmdAuthorCount = New SqlCommand( "GetAuthorCount", conPubs )
cmdAuthorCount.CommandType = CommandType.StoredProcedure
parmReturnValue = cmdAuthorCount.Parameters.Add( "ReturnValue", SqlDbType.Int )
parmReturnValue.Direction = ParameterDirection.ReturnValue
conPubs.Open()
cmdAuthorCount.ExecuteNonQuery()
intAuthorCount = cmdAuthorCount.Parameters( "ReturnValue" ).Value
conPubs.Close()
%>
There are <%=intAuthorCount%> records in the Authors table