不长见的ASP调用存储过程的技巧

<P>1、最简单的如下
* n4 M$ s8 _' x" W4 \' l) Y           Dim objConn
    Set objConn = Server.CreateObject("ADOBD.Connection")
5 i, {7 b; N  |# X    objConn.Open Application("Connection_String")
    'Call the stored procedure to increment a counter on the page
    objConn.Execute "exec sp_AddHit"
7 U2 z7 j8 c, S) G! g/ ^- R, P* q1 Q# _没有参数，没有返回，没有错误处理，就是这个了</P>
<P>2、带参数的一种调用
objConn.Execute "exec sp_AddHit 'http://www.aspalliance.com', 1"
! {* i2 P5 E; |! d6 n请注意分割参数，该方法也不返回记录</P>
% c/ U& B0 t0 ~) K1 O3 Y<P>3、返回记录的
) x  z8 p9 ?5 Y8 g) z" u3 \3 f          Dim objConn
    Dim objRs
    Set objConn = Server.CreateObject("ADOBD.Connection")
+ n, W. a; G. p$ _/ P    Set objRs = Server.CreateObject("ADOBD.Recordset")
! C5 v- F. {8 x- p0 M    objConn.Open Application("Connection_String")
    'Call the stored procedure to increment a counter on the page
    objRs.Open objConn, "exec sp_ListArticles '1/15/2001'"
# w* y, E+ S! x5 N5 V    'Loop through recordset and display each article
4、……
- F3 b1 V! R6 T, B          Dim objConn
          Dim objCmd</P>
0 m1 G7 @2 I0 j, R<P>'Instantiate objects
; c& |0 F' w7 o; A. KSet objConn        = Server.CreateObject("ADODB.Connection")
set objCmd        = Server.CreateObject("ADODB.Command")
conn.Open Application("ConnectionString")</P>
$ x% B  p# G* \; h6 F1 Y<P>With objCmd
    .ActiveConnection = conn 'You can also just specify a connection string here
0 k5 M1 E8 h7 E& k, B: W    .CommandText = "sp_InsertArticle"
. I0 T2 W2 j2 z2 A    .CommandType = adCmdStoredProc 'Requires the adovbs.inc file or typelib meta tag
: |% ]4 ~9 k7 h$ E% K6 h5 P) x   
" S$ q1 W& a. e; z! ?; Z6 O4 C+ s    'Add Input Parameters
+ c" j6 F& l6 r    .Parameters.Append .CreateParameter("@columnist_id", adDouble, adParamInput, , columnist_id)
% ]7 ^1 t" p+ V    .Parameters.Append .CreateParameter("@url", adVarChar, adParamInput, 255, url)
    .Parameters.Append .CreateParameter("@title", adVarChar, adParamInput, 99, url)
    .Parameters.Append .CreateParameter("@description", adLongVarChar, _
" u2 c. S0 i( P7 ~, I& B  b, A        adParamInput, 2147483647, description)
   
    'Add Output Parameters
    .Parameters.Append .CreateParameter("@link_id", adInteger, adParamOutput, , 0)
        
& e- A: A3 O" @, ?    'Execute the function
    'If not returning a recordset, use the adExecuteNoRecords parameter option
    .Execute, , adExecuteNoRecords
    link_id = .Parameters("@link_id")
" E8 u$ Y, @8 D3 pEnd With</P>
<P>5、存储过程的代码
Create PROCEDURE dbo.sp_InsertArticle
$ w& M. K( F+ P(
9 d7 v( d1 P" I( y( ^* G    @columnist_id int,
    @url varchar(255),
    @title varchar(99),
    @description text
0 ?- F( d. J7 |0 i( a3 U! d. ?8 G       @link_id int OUTPUT
& c  L( r6 G" j- [2 [1 m1 c)
6 v/ j* C8 ?4 W0 U* UAS
* Z4 C" R6 v; d5 L3 hBEGIN
4 m: Y5 L) l1 I, ^, u- G    INSERT INTO dbo.t_link    (columnist_id,url,title,description)
    VALUES (@columnist_id,@url,@title,@description)</P>
; a* H4 ~! \/ @<P>    SELECT @link_id = @@IDENTITY
END</P>

好复杂啊