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

<P>1、最简单的如下
/ X, J+ c+ i, r           Dim objConn
    Set objConn = Server.CreateObject("ADOBD.Connection")
    objConn.Open Application("Connection_String")
    'Call the stored procedure to increment a counter on the page
    objConn.Execute "exec sp_AddHit"
: U6 X. x0 g/ l8 c1 R没有参数，没有返回，没有错误处理，就是这个了</P>
<P>2、带参数的一种调用
( F2 O; z; b  x9 Y0 v9 D! qobjConn.Execute "exec sp_AddHit 'http://www.aspalliance.com', 1"
, u1 q" N0 T  S5 a3 Y0 V请注意分割参数，该方法也不返回记录</P>
<P>3、返回记录的
          Dim objConn
    Dim objRs
    Set objConn = Server.CreateObject("ADOBD.Connection")
    Set objRs = Server.CreateObject("ADOBD.Recordset")
    objConn.Open Application("Connection_String")
. }$ \, }8 s3 v+ ?% v/ i) k    'Call the stored procedure to increment a counter on the page
    objRs.Open objConn, "exec sp_ListArticles '1/15/2001'"
    'Loop through recordset and display each article
6 I% l1 x9 c6 O+ H: `+ C! e3 v4、……
          Dim objConn
7 ]6 `# }; k/ Y3 A3 Y' ~5 Y          Dim objCmd</P>
" k' s8 `5 k) f& c% h5 Y<P>'Instantiate objects
Set objConn        = Server.CreateObject("ADODB.Connection")
! k  G- a3 ^# m  pset objCmd        = Server.CreateObject("ADODB.Command")
conn.Open Application("ConnectionString")</P>
9 a6 X8 {3 n8 }1 ^3 q<P>With objCmd
9 e: ^! E8 F/ j5 A" O    .ActiveConnection = conn 'You can also just specify a connection string here
, Y& ]/ m1 Y( s. G# p: k& g% \    .CommandText = "sp_InsertArticle"
    .CommandType = adCmdStoredProc 'Requires the adovbs.inc file or typelib meta tag
: W7 C! f/ A& n! w  H1 @   
    'Add Input Parameters
    .Parameters.Append .CreateParameter("@columnist_id", adDouble, adParamInput, , columnist_id)
3 b3 c7 ^& {& @) L% Q. r    .Parameters.Append .CreateParameter("@url", adVarChar, adParamInput, 255, url)
    .Parameters.Append .CreateParameter("@title", adVarChar, adParamInput, 99, url)
3 X6 h- G( o) z# }    .Parameters.Append .CreateParameter("@description", adLongVarChar, _
        adParamInput, 2147483647, description)
) j" y5 ]7 a9 j9 U, r$ x/ d   
; E! G  i0 R0 b# M7 ^    'Add Output Parameters
, l1 q" W+ N6 `' E" ^    .Parameters.Append .CreateParameter("@link_id", adInteger, adParamOutput, , 0)
9 s* S( P2 Z. `        
    'Execute the function
6 U4 d# G* a0 A: M; E4 G: z    'If not returning a recordset, use the adExecuteNoRecords parameter option
+ J  @% ~  D2 T/ m    .Execute, , adExecuteNoRecords
    link_id = .Parameters("@link_id")
, j5 D  }+ F2 |9 EEnd With</P>
<P>5、存储过程的代码
9 K, X' V7 w  T* GCreate PROCEDURE dbo.sp_InsertArticle
0 q0 C) ]# k2 F7 r$ h(
+ N: @8 ~( |8 H7 n4 n3 l# m    @columnist_id int,
/ l6 d) e) h) u+ P* p2 q    @url varchar(255),
% Q9 i1 A: b. s+ u+ L! d    @title varchar(99),
/ X: m$ ?5 o: b1 r' G0 S2 Y    @description text
* z; A- ~; ~" J/ I       @link_id int OUTPUT
7 X& P0 M# b' A" h" n6 \1 L)
AS
4 [' t3 Q, o( K$ e9 d) w: FBEGIN
    INSERT INTO dbo.t_link    (columnist_id,url,title,description)
* `* K2 y- E$ P& D2 g- w/ z    VALUES (@columnist_id,@url,@title,@description)</P>
' Y! A1 z0 z7 J; j<P>    SELECT @link_id = @@IDENTITY
END</P>

好复杂啊