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

<P>1、最简单的如下
           Dim objConn
+ p5 a5 L' W+ S% f! h. c* X9 b    Set objConn = Server.CreateObject("ADOBD.Connection")
7 o4 F) t' y: G& k    objConn.Open Application("Connection_String")
    'Call the stored procedure to increment a counter on the page
  Y% G% p' m2 M# j$ B5 X    objConn.Execute "exec sp_AddHit"
没有参数，没有返回，没有错误处理，就是这个了</P>
8 F$ [: \8 k. s' R3 |4 j, _<P>2、带参数的一种调用
objConn.Execute "exec sp_AddHit 'http://www.aspalliance.com', 1"
$ Z/ T$ o  n+ J" L8 i请注意分割参数，该方法也不返回记录</P>
3 S4 R1 g" ~( V- O9 p5 M4 z( M<P>3、返回记录的
          Dim objConn
    Dim objRs
    Set objConn = Server.CreateObject("ADOBD.Connection")
8 a: e  M' U( ]: R5 l) }% p    Set objRs = Server.CreateObject("ADOBD.Recordset")
    objConn.Open Application("Connection_String")
" |, S' X3 M% B; Q    'Call the stored procedure to increment a counter on the page
1 l  `) U# U& u- p/ y    objRs.Open objConn, "exec sp_ListArticles '1/15/2001'"
" v7 |+ V2 Y" p7 g3 G    'Loop through recordset and display each article
4、……
% d* Q1 j5 _. B. {0 g' K          Dim objConn
! ]) H* b/ L; l8 R6 U, ]: [" d          Dim objCmd</P>
<P>'Instantiate objects
Set objConn        = Server.CreateObject("ADODB.Connection")
, p' A2 ~2 j! _8 m- Lset objCmd        = Server.CreateObject("ADODB.Command")
conn.Open Application("ConnectionString")</P>
<P>With objCmd
    .ActiveConnection = conn 'You can also just specify a connection string here
    .CommandText = "sp_InsertArticle"
2 S8 _0 S- c/ F9 `    .CommandType = adCmdStoredProc 'Requires the adovbs.inc file or typelib meta tag
; }7 @6 R/ [, C- u, M/ h& D   
! i4 x3 y" a  i$ j) t2 \: u) {! S  V    'Add Input Parameters
* [+ H5 R+ y1 P7 u    .Parameters.Append .CreateParameter("@columnist_id", adDouble, adParamInput, , columnist_id)
    .Parameters.Append .CreateParameter("@url", adVarChar, adParamInput, 255, url)
- J- o% Q- [# J. t( J9 C    .Parameters.Append .CreateParameter("@title", adVarChar, adParamInput, 99, url)
8 D/ ]% A9 A) t4 v; J    .Parameters.Append .CreateParameter("@description", adLongVarChar, _
2 O4 l! j2 w& [5 `. @5 x# i        adParamInput, 2147483647, description)
   
/ c$ E( a) x8 Q2 o5 A# ~* Y  w    'Add Output Parameters
    .Parameters.Append .CreateParameter("@link_id", adInteger, adParamOutput, , 0)
        
    'Execute the function
    'If not returning a recordset, use the adExecuteNoRecords parameter option
- _0 S+ ^2 b( L# t! K/ b5 n    .Execute, , adExecuteNoRecords
    link_id = .Parameters("@link_id")
End With</P>
0 U* {, d$ ^/ `+ j5 L<P>5、存储过程的代码
' ]; B( u! Z. aCreate PROCEDURE dbo.sp_InsertArticle
/ \& W7 H" l- G1 e: Q(
7 J1 z5 ?/ q& T, K7 Q/ k    @columnist_id int,
    @url varchar(255),
# j- q+ `) O/ p; m. H! y7 O! H    @title varchar(99),
    @description text
1 k; f' U% A: ^       @link_id int OUTPUT
)
' k& x* L2 G/ C* \9 l5 U+ k, ^AS
: `0 o! x/ q" JBEGIN
$ T$ t  a0 d7 {5 I1 W! C0 q    INSERT INTO dbo.t_link    (columnist_id,url,title,description)
    VALUES (@columnist_id,@url,@title,@description)</P>
, g/ W" B8 V1 @" w9 |% z- R3 p<P>    SELECT @link_id = @@IDENTITY
4 W! ~- ?8 P5 _+ Z: A1 }3 k  Q) \END</P>

好复杂啊