asp与存储过程

E"f\R"E0f9p$?0    存储过程就是作为可执行对象存放在数据库中的一个或多个SQL命令。51Testing软件测试网BT&}N`8f
    定义总是很抽象。存储过程其实就是能完成一定操作的一组SQL语句，只不过这组语句是放在数据库中的(这里我们只谈SQL Server)。如果我们通过创建存储过程以及在ASP中调用存储过程，就可以避免将SQL语句同ASP代码混杂在一起。这样做的好处至少有三个：51Testing软件测试网IPL(I$WCOV
    第一、大大提高效率。存储过程本身的执行速度非常快，而且，调用存储过程可以大大减少同数据库的交互次数。51Testing软件测试网-x-_.W:r
]$G[
    第二、提高安全性。假如将SQL语句混合在ASP代码中，一旦代码失密，同时也就意味着库结构失密。51Testing软件测试网6^1Y?Y9t%u3O,n\
    第三、有利于SQL语句的重用。51Testing软件测试网"c^Jp ZP
   
6o,f;_)OU&JE#{ m0    在ASP中，一般通过command对象调用存储过程，根据不同情况，本文也介绍其它调用方法。为了方便说明，根据存储过程的输入输出，作以下简单分类：
-ku8IS8O0    1. 只返回单一记录集的存储过程
5PI:F8Zowm0    假设有以下存储过程(本文的目的不在于讲述T-SQL语法，所以存储过程只给出代码，不作说明)：51Testing软件测试网FMKEm{

    /*SP1*/
k`.S"U2S0M(z M7pG*Ib0    CREATE PROCEDURE dbo.getUserList
6x%Me!AdxO@,P5C@k0    as
0nA%gq5X ~q7WP0    set nocount on
I,?M-V^-`+bDH^5~f0    begin
1[lp&rl0       select * from dbo.[userinfo]51Testing软件测试网.U%?pea2[F#N
    end
U[| qw8L3k2}0    go51Testing软件测试网| j `)Wa!i(FS @,w

k]RR RK\#M&X0    以上存储过程取得userinfo表中的所有记录，返回一个记录集。通过command对象调用该存储过程的ASP代码如下:51Testing软件测试网D o9^%@u(t
   51Testing软件测试网I0RO o)R|!y%y
    '**通过Command对象调用存储过程**51Testing软件测试网5sSa6AC2R9Q
    DIM MyComm,MyRst
Ln_MM"~!b'M%w0    Set MyComm = Server.CreateObject("ADODB.Command")
Tf3H,e^lF0    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库连接字串
ZmMx3z-v[&GC0    MyComm.CommandText      = "getUserList"     '指定存储过程名51Testing软件测试网aU7Ot,^ a??C
    MyComm.CommandType      = 4                 '表明这是一个存储过程51Testing软件测试网-C6?t&M9^/vpP
]3H
    MyComm.Prepared         = true              '要求将SQL命令先行编译51Testing软件测试网^ D+kf/X8L2r2|7@
    Set MyRst = MyComm.Execute
H!O%`.xw3]0    Set MyComm = Nothing

yb{*F3l[-zO0    存储过程取得的记录集赋给MyRst，接下来，可以对MyRst进行操作。
%n9q9^IJ(t0    在以上代码中，CommandType属性表明请求的类型，取值及说明如下：51Testing软件测试网t FoS#pp.A7m
      -1   表明CommandText参数的类型无法确定
U4X8p8mdA0      1    表明CommandText是一般的命令类型
E:QR eNlq0      2    表明CommandText参数是一个存在的表名称51Testing软件测试网V9e-K%S8WC,tyz n
      4    表明CommandText参数是一个存储过程的名称51Testing软件测试网$h,L|0`x-dHL1E;~&Y
   51Testing软件测试网0|(_X ?n G0p
    还可以通过Connection对象或Recordset对象调用存储过程，方法分别如下：51Testing软件测试网^ g8M*t r

iJ^E5?0    '**通过Connection对象调用存储过程**
O9f'Vb
t"?DE0    DIM MyConn,MyRst51Testing软件测试网+W\2g6K2\%j
    Set MyConn = Server.CreateObject("ADODB.Connection")
B,Hr8mk q^m?3\0    MyConn.open MyConStr                            'MyConStr是数据库连接字串
@)le8Q%O0pZ%mX0    Set MyRst  = MyConn.Execute("getUserList",0,4)  '最后一个参断含义同CommandType
@)^(Z~Hc0S!N0    Set MyConn = Nothing

    '**通过Recordset对象调用存储过程**51Testing软件测试网o#JA]1UY+@d
    DIM MyRst51Testing软件测试网2}9Xqj8gi ] i A*[
    Set MyRst = Server.CreateObject("ADODB.Recordset")
6WZ6I5zx)U*x%_K6H0    MyRst.open "getUserList",MyConStr,0,1,4
Qbf%lF(YH0    'MyConStr是数据库连接字串,最后一个参断含义与CommandType相同51Testing软件测试网+g K8IXG;bs

:Q1Tfqn\$\ ]
F0   
n+U1Vi(v*q'q1|0    2. 没有输入输出的存储过程
DO.VPJ]0    请看以下存储过程：51Testing软件测试网~0^9PD,R^2c5g#DKP&F

!l#t&T6d%n+R(x(u
E0    /*SP2*/51Testing软件测试网xND7z{@.r4ve'sD
    CREATE PROCEDURE dbo.delUserAll
]0b&K4W \ U%Z0    as51Testing软件测试网(WZyu+R6d
    set nocount on
W1h Q,_2M.B"rX0    begin
G/z5F2hW9W^4^0       delete from dbo.[userinfo]
e])Rg xSE0    end51Testing软件测试网5R)@t2j%O
    go

    该存储过程删去userinfo表中的所有记录，没有任何输入及输出，调用方法与上面讲过的基本相同，只是不用取得记录集：51Testing软件测试网(u ^!y*Jp+X

    '**通过Command对象调用存储过程**
0T7RDC}(_"Qy-vFQ'B0    DIM MyComm
M!U:j5},H?S0    Set MyComm = Server.CreateObject("ADODB.Command")51Testing软件测试网~l1@!D'i,R0W-o
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库连接字串51Testing软件测试网}8pv:x/yc0bTw
    MyComm.CommandText      = "delUserAll"      '指定存储过程名51Testing软件测试网~n~!ZU
    MyComm.CommandType      = 4                 '表明这是一个存储过程51Testing软件测试网k%m+G'q,MEO
V
    MyComm.Prepared         = true              '要求将SQL命令先行编译51Testing软件测试网| G9]+c}n&V4J e
    MyComm.Execute                              '此处不必再取得记录集51Testing软件测试网b!D @RMDDW
    Set MyComm = Nothing 51Testing软件测试网yB0H"b3C+D Tm1j$]

    当然也可通过Connection对象或Recordset对象调用此类存储过程，不过建立Recordset对象是为了取得记录集，在没有返回记录集的情况下，还是利用Command对象吧。51Testing软件测试网kI^2A'l|D$["?d

Q
JZ7i(s6g4s&PkvM[051Testing软件测试网 xN(Ox rN
    3. 有返回值的存储过程
D4Nvi3M)ft0    在进行类似SP2的操作时，应充分利用SQL Server强大的事务处理功能，以维护数据的一致性。并且，我们可能需要存储过程返回执行情况，为此，将SP2修改如下：

    /*SP3*/51Testing软件测试网&\
Dm4`&f[l'S3t
    CREATE PROCEDURE dbo.delUserAll
1T+]^Po w0    as
6gqG-dQw;N]0    set nocount on
1`-d e*d
k[8hf@0    begin
#_o jVcW.I,? [};w0       BEGIN TRANSACTION
;o Lc&}.t8x0       delete from dbo.[userinfo]
1u$R VFo
i6JR0       IF @@error=051Testing软件测试网 GF!@G5v
          begin
]J5R AACX|PY8@`0             COMMIT TRANSACTION
:rBAo(l r'C0             return 151Testing软件测试网D xzl.u;O
          end
6| KTQR*O#C,u8c%j0       ELSE51Testing软件测试网z\[~8iw?
          begin
|zNlbv"A/f0             ROLLBACK TRANSACTION51Testing软件测试网~b'_V {.Z
             return 051Testing软件测试网&H&g7J3ZTx/I!c
          end        51Testing软件测试网8i6LO;_1ub
       return
U|(P lz2{0    end51Testing软件测试网Hk `2M1]
    go51Testing软件测试网4fg
d]W&f*r_

    以上存储过程，在delete顺利执行时，返回1，否则返回0，并进行回滚操作。为了在ASP中取得返回值，需要利用Parameters集合来声明参数：

    '**调用带有返回值的存储过程并取得返回值**51Testing软件测试网V7e1Hcu9{;GKp
    DIM MyComm,MyPara
-sr(S,rmOe0    Set MyComm = Server.CreateObject("ADODB.Command")51Testing软件测试网 o?#O4D%T7P6@t
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库连接字串
{j&d%mM.?'^qy0    MyComm.CommandText      = "delUserAll"      '指定存储过程名
^mxX;l&Jt
I0    MyComm.CommandType      = 4                 '表明这是一个存储过程51Testing软件测试网4^@_@p2m
    MyComm.Prepared         = true              '要求将SQL命令先行编译
Mg5N#?i+i2[0    '声明返回值51Testing软件测试网A)?6|$PLaE~2{
    Set Mypara = MyComm.CreateParameter("RETURN",2,4)
/yBwFrb N0M0    MyComm.Parameters.Append MyPara
;Q2A(B
B+L
z0    MyComm.Execute
+aNG;n0d0    '取得返回值51Testing软件测试网b6B0M([J!Xb\
    DIM retValue
Lcp5VA]#p U0    retValue = MyComm(0)    '或retValue = MyComm.Parameters(0)51Testing软件测试网*yzbv!O]4Xy
    Set MyComm = Nothing51Testing软件测试网A)G}h.Q5l6`
   51Testing软件测试网0P&XX^GP
    在MyComm.CreateParameter("RETURN",2,4)中，各参数的含义如下：51Testing软件测试网UH#]1p6@9cDX3m
    第一个参数("RETURE")为参数名。参数名可以任意设定，但一般应与存储过程中声明的参数名相同。此处是返回值，我习惯上设为"RETURE"；51Testing软件测试网NS6@/o~0sw
    第二个参数(2)，表明该参数的数据类型，具体的类型代码请参阅ADO参考，以下给出常用的类型代码：
4@9X$yh:o0    adBigInt: 20 ;
,oyXSru[0    adBinary : 128 ;51Testing软件测试网,lBy&G"cbw3X5ka
    adBoolean: 11 ;
9W~Q2j;O F8h0t0    adChar: 129 ;
N.z0aB^,R1M)~2Fw0    adDBTimeStamp: 135 ;51Testing软件测试网 iic'zV:l8s
    adEmpty: 0 ;51Testing软件测试网0FS)_B.`v|S9T
    adInteger: 3 ;51Testing软件测试网C*gEc1Y/{.P}
    adSmallInt: 2 ;51Testing软件测试网L)q&v;s+{F
    adTinyInt: 16 ;
1ue9VBwy)CB0    adVarChar: 200 ;
q9O|JWBE,~0    对于返回值，只能取整形，且-1到-99为保留值；51Testing软件测试网z;Fj*V,].@!{kK
    第三个参数(4)，表明参数的性质，此处4表明这是一个返回值。此参数取值的说明如下：
Q!Ev\,szl0    0 : 类型无法确定； 1: 输入参数；2: 输入参数；3：输入或输出参数；4: 返回值
fq1\'o{%w| vl0   51Testing软件测试网^#kV)@/C U
    以上给出的ASP代码，应该说是完整的代码，也即最复杂的代码，其实51Testing软件测试网H'F3cjDg_$J6x

0E ] v.ne9v0    Set Mypara = MyComm.CreateParameter("RETURN",2,4)
5F$R}
E`1t,uE0    MyComm.Parameters.Append MyPara
1@'cD a:WH)`d'r:|3t#j0       
E D;Uy#n0    可以简化为

PP;[3Z g%sl(tA"}0    MyComm.Parameters.Append MyComm.CreateParameter("RETURN",2,4)

    甚至还可以继续简化，稍后会做说明。51Testing软件测试网1ey/kP5wt%J%i
    对于带参数的存储过程，只能使用Command对象调用(也有资料说可通过Connection对象或Recordset对象调用，但我没有试成过)。51Testing软件测试网_"|sV tx

+g:Q#V%D2S.}0    4. 有输入参数和输出参数的存储过程
s
q.J'po0    返回值其实是一种特殊的输出参数。在大多数情况下，我们用到的是同时有输入及输出参数的存储过程，比如我们想取得用户信息表中，某ID用户的用户名，这时候，有一个输入参数----用户ID，和一个输出参数----用户名。实现这一功能的存储过程如下：51Testing软件测试网:UO2T:dDR3_

+uC2D6Wx @3B9N^0    /*SP4*/
g*Ia])u6{b9A9P_5s0    CREATE PROCEDURE dbo.getUserName
`!` X$ohV0       @UserID int,51Testing软件测试网ib*e^]f Y
       @UserName varchar(40) output51Testing软件测试网d Bf+l(i\p"z
    as51Testing软件测试网NT/Aa3fn
    set nocount on
l/D,S'a7kg
Y0    begin
;?$s1Dhb jFM_ Ij0       if @UserID is null return
tz$x_`X'|z0       select @UserName=username51Testing软件测试网E"EUN:U
c
           from dbo.[userinfo]
;\)QVPOf_h%@1kW0           whereuserid=@UserID
3P f*V+Ava0RL~0       return51Testing软件测试网7~)E2T9B.w8\[4GI
    end
}'XL7NjmR0    go51Testing软件测试网!H&s(X8j ^:s+A Pm

    调用该存储过程的ASP代码如下：

    '**调用带有输入输出参数的存储过程**51Testing软件测试网:k6c9[D?E,?
    DIM MyComm,UserID,UserName
n*R6rt!x,d]0    UserID = 1
4s9s4Yc7E0    Set MyComm = Server.CreateObject("ADODB.Command")51Testing软件测试网@$ZN{&V-zP/F,~
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库连接字串
9HY C(Eer0c;WA0    MyComm.CommandText      = "getUserName"     '指定存储过程名51Testing软件测试网 Q7o@'Y5c:f
    MyComm.CommandType      = 4                 '表明这是一个存储过程
KB(TV1U{zP7S0    MyComm.Prepared         = true              '要求将SQL命令先行编译
[#FF6{A0    '声明参数
h(Kuw$g~+tV4eM J0    MyComm.Parameters.append MyComm.CreateParameter("@UserID",3,1,4,UserID)51Testing软件测试网SG0e m#u
    MyComm.Parameters.append MyComm.CreateParameter("@UserName",200,2,40)
nJF5BU7Ay)OkX9o%}0    MyComm.Execute
HVO7]7U0    '取得出参51Testing软件测试网AAg(X3z`8Z3Av
    UserName = MyComm(1)
dHi8P]w0    Set MyComm = Nothing51Testing软件测试网0niWMq,b

    在以上代码中，可以看到，与声明返回值不同，声明输入参数时需要5个参数，声明输出参数时需要4个参数。声明输入参数时5个参数分别为：参数名、参数数据类型、参数类型、数据长度、参数值。声明输出参数时，没有最后一个参数：参数值。51Testing软件测试网%I]Xoo&kX@0F]
    需要特别注意的是：在声明参数时，顺序一定要与存储过程中定义的顺序相同，而且各参数的数据类型、长度也要与存储过程中定义的相同。
)iKB`!r0D4l0    如果存储过程有多个参数，ASP代码会显得繁琐，可以使用with命令简化代码：51Testing软件测试网(O` r0L;G&d0EfN}ZF

    '**调用带有输入输出参数的存储过程(简化代码)**
@ uAv:XS5R*k`7h0    DIM MyComm,UserID,UserName
_Ub#Af0    UserID = 1
8RR B+[J+h \0    Set MyComm = Server.CreateObject("ADODB.Command")
.Q
F&jZ9c9`8H-v2C0    with MyComm51Testing软件测试网k%V`'F ^2PK.j4k,z
       .ActiveConnection = MyConStr          'MyConStr是数据库连接字串51Testing软件测试网LuGFq_
       .CommandText      = "getUserName"     '指定存储过程名51Testing软件测试网*t9O;pi%q}nl&V3t
       .CommandType      = 4                 '表明这是一个存储过程51Testing软件测试网BIj.dDI/n-aPO
       .Prepared         = true              '要求将SQL命令先行编译51Testing软件测试网Ymbx"^9yLujj?6?
       .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)51Testing软件测试网8@+kj3XM
       .Parameters.append .CreateParameter("@UserName",200,2,40)51Testing软件测试网:LdUKM_ MT4dp
       .Execute
&l)rGMV_H5V\0    end with51Testing软件测试网'v#{o%V1`6@9W
    UserName = MyComm(1)51Testing软件测试网Zx1p8h7Id1g2xeS
    Set MyComm = Nothing
,LU.Do5B4MDYr0   

?)xN3Xz v4q0    假如我们要取得ID为1到10，10位用户的用户名，是不是要创建10次Command对象呢？不是的。如果需要多次调用同一存储过程，只需改变输入参数，就会得到不同的输出：51Testing软件测试网cb2~.y|.OE

9]FXm5f;] uN0    '**多次调用同一存储过程**51Testing软件测试网&t(m6VsI.X
    DIM MyComm,UserID,UserName51Testing软件测试网0K7M$M]&r
ewHA
    UserName = ""51Testing软件测试网Ad%TH4S Ys|$D
    Set MyComm = Server.CreateObject("ADODB.Command")
/Y }L;ZIH6J8k6S([$o0    for UserID = 1 to 10
$k*M }
\t1n#w ]L C0       with MyComm51Testing软件测试网)p"ttsf-o.H
          .ActiveConnection = MyConStr          'MyConStr是数据库连接字串51Testing软件测试网 si2v {m\-Eiu
          .CommandText      = "getUserName"     '指定存储过程名
`Gl(`GJe7g/h0          .CommandType      = 4                 '表明这是一个存储过程
9M'L+K)G?(|V+B0          .Prepared         = true              '要求将SQL命令先行编译
.DUtS$U0          if UserID = 1 then
2cs\#H^TgOa0             .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)51Testing软件测试网qwYU2k;H/W G
             .Parameters.append .CreateParameter("@UserName",200,2,40)
&H y/H#m+],Kqy0             .Execute51Testing软件测试网;oU4w"Aw{n.E#T/K7l6\
          else51Testing软件测试网~;`:h6y#j![
             '重新给入参赋值(此时参数值不发生变化的入参以及出参不必重新声明)
*ueDX/l!|0             .Parameters("@UserID") = UserID51Testing软件测试网g(tJFN!X S2g
             .Execute
Z7E*Rv? |E0          end if
c{LY)X,p9V0       end with
h"E.s]B2jg|0       UserName = UserName + MyComm(1) + ","    '也许你喜欢用数组存储51Testing软件测试网1j2`;t,}0x E
    next
xZ,P[ ciy0    Set MyComm = Nothing

_?2z{i(i2N0    通过以上代码可以看出：重复调用同一存储过程时，只需为值发生改变的输入参数重新赋值即可，这一方法在有多个输入输出参数，且每次调用时只有一个输入参数的值发生变化时，可以大大减少代码量。

a3m3{G.q0
.b1`Z0M6B2mkcl}(k*{0    5. 同时具有返回值、输入参数、输出参数的存储过程
3dUbeu7UBf0    前面说过，在调用存储过程时，声明参数的顺序要与存储过程中定义的顺序相同。还有一点要特别注意：如果存储过程同时具有返回值以及输入、输出参数，返回值要最先声明。51Testing软件测试网 |$mZ pB m
    为了演示这种情况下的调用方法，我们改善一下上面的例子。还是取得ID为1的用户的用户名，但是有可能该用户不存在(该用户已删除，而userid是自增长的字段)。存储过程根据用户存在与否，返回不同的值。此时，存储过程和ASP代码如下：51Testing软件测试网.H*B%p9x^n;h$oQ*Q

    /*SP5*/51Testing软件测试网y.| ^W&?2C*T Y
    CREATE PROCEDURE dbo.getUserName51Testing软件测试网A/Sw2p8E#]
       --为了加深对"顺序"的印象，将以下两参数的定义顺序颠倒一下
TltO(lmg Fb0       @UserName varchar(40) output,51Testing软件测试网8Q@3m%ykJ3{(q
       @UserID int51Testing软件测试网3T;M,eYz)h/U&{
    as51Testing软件测试网"R7BU%Q(ES
    set nocount on51Testing软件测试网sRij8M3U+g&I+[o@c
    begin51Testing软件测试网{],?sPX%w6{
       if @UserID is null return51Testing软件测试网2a[&C^|.m T]
       select @UserName=username
zG2w!BL*Z6E2uW9T0           from dbo.[userinfo]51Testing软件测试网,H A P9^e~dn B
           whereuserid=@UserID51Testing软件测试网c$hKQ4JZ)Ec;f
       if @@rowcount>051Testing软件测试网M#@)wv0?M
t8P
q
          return 151Testing软件测试网]Ap(?2z.P#z`Yf\
       else
?9t5@m+M(F"Y8[-P8~0          return 0
4f/P
B;cJv G0       return
,b&F"fx
?D)A o0    end
;g,Y0b-h PW \M3sL0    go

    '**调用同时具有返回值、输入参数、输出参数的存储过程**51Testing软件测试网;|`Lqg,Ra
    DIM MyComm,UserID,UserName51Testing软件测试网b`7q:d2oRP
}M
    UserID = 151Testing软件测试网 h0mam(c8tW:v
    Set MyComm = Server.CreateObject("ADODB.Command")
J-afbg U0    with MyComm51Testing软件测试网1G7k&MLKz$E5|;S
       .ActiveConnection = MyConStr          'MyConStr是数据库连接字串51Testing软件测试网irXKa[OB
       .CommandText      = "getUserName"     '指定存储过程名51Testing软件测试网,m|h#kgS
       .CommandType      = 4                 '表明这是一个存储过程
O$kIJ;R,Hft i*r;W0       .Prepared         = true              '要求将SQL命令先行编译
[.r9].cYx^$Xb0       '返回值要最先被声明51Testing软件测试网]R8Q9?mob `
       .Parameters.Append .CreateParameter("RETURN",2,4)51Testing软件测试网v;Rtr4l eO/}
       '以下两参数的声明顺序也做相应颠倒

e&Hf/~L3Af7v0       .Parameters.append .CreateParameter("@UserName",200,2,40)
"Po F
o |l|%\$a0       .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)51Testing软件测试网(? o;f[8c+Y`P
       .Execute
8V9Eb ?JT$f%U-S0    end with51Testing软件测试网Ev |nV6C zH0Z
    if MyComm(0) = 1 then51Testing软件测试网q EQ9Ob)UA
R
       UserName = MyComm(1)51Testing软件测试网g(_*r0E^bBz
    else51Testing软件测试网d#eg9`&B#z
       UserName = "该用户不存在"
mP5vmf5Rc z0    end if
g9c[-Sd"Z6H3bt}0    Set MyComm = Nothing51Testing软件测试网nL#t4sML
S%I

51Testing软件测试网E.a8G,[4UQ
    6. 同时返回参数和记录集的存储过程51Testing软件测试网:zk-K*ZA9g.t9K1|
    有时候，我们需要存储过程同时返回参数和记录集，比如在利用存储过程分页时，要同时返回记录集以及数据总量等参数。以下给出一个进行分页处理的存储过程：51Testing软件测试网"q!MP)tNEp*k

YKV#c*^,WlI0    /*SP6*/
O i8] di"M|!j0    CREATE PROCEDURE dbo.getUserList51Testing软件测试网3YuHo.YXY
       @iPageCount int OUTPUT,   --总页数51Testing软件测试网!b"l(zA1|H|{a
       @iPage int,               --当前页号
E s]^w$K9@Z0       @iPageSize int            --每页记录数51Testing软件测试网D@tSr MjL @.o
    as
nX0K/mQ zC%bj0T0    set nocount on
~
\xa?oT0    begin
a9_|#~ZK0       --创建临时表51Testing软件测试网K!pd*W)Ym{2h5p b
       create table #t (ID int IDENTITY,   --自增字段
X&t+|N~dV'y0                        userid int,51Testing软件测试网y:G&A `Ma4c%Vr6T
                        username varchar(40))
2d'XkqG_0       --向临时表中写入数据51Testing软件测试网`V`)|_J"k)eth
       insert into #t51Testing软件测试网f|V C4D
          select userid,username from dbo.[UserInfo]
zO jC|5BTD0             order by userid
vEY*aY6m0y%\2uEB0      51Testing软件测试网\Z\bU o
       --取得记录总数
R/jCTE
_:R%JSj1E0       declare @iRecordCount int
B'{jUo5id!Up0       set @iRecordCount = @@rowcount

7v4UK j!K0       --确定总页数
c+Q:\2J*~"I6W8E'W3f0       IF @iRecordCount%@iPageSize=0
3pR-~%JpL
@0          SET @iPageCount=CEILING(@iRecordCount/@iPageSize)
#Zs)EOV5O|0       ELSE
5@?6s#mj6^C0          SET @iPageCount=CEILING(@iRecordCount/@iPageSize)+1
f
G0V,m%]
j'q4VZ0 51Testing软件测试网vR1| _bnS
       --若请求的页号大于总页数，则显示最后一页
m'fH.Cn6[ m0       IF @iPage > @iPageCount
i&_u!M@` `%F0          SELECT @iPage = @iPageCount51Testing软件测试网/b e c!lT_

       --确定当前页的始末记录
KMs*EJ*U0       DECLARE @iStart int    --start record
D-i5T%it0Q4M4kp0       DECLARE @iEnd int      --end record51Testing软件测试网4_,F'U q4n LAQ T+L
       SELECT @iStart = (@iPage - 1) * @iPageSize
"W1c!khU2z!N0       SELECT @iEnd = @iStart + @iPageSize + 1

       --取当前页记录   51Testing软件测试网3wW-f;y`)[
       select * from #t where ID>@iStart and ID<@iEnd

u V^'vC!R[*@0       --删除临时表51Testing软件测试网 K$D^Fnyz#Y*o
       DROP TABLE #t

       --返回记录总数
Ba^;H
c@7E4L0       return @iRecordCount51Testing软件测试网6D1QN3Y;w*g%u
    end51Testing软件测试网7u6i"d9L6C
    go51Testing软件测试网;bk+l u8p

    在上面的存储过程中，输入当前页号及每页记录数，返回当前页的记录集，总页数及记录总数。为了更具典型性，将记录总数以返回值的形式返回。以下是调用该存储过程的ASP代码(具体的分页操作略去):51Testing软件测试网&U&l*wjQzW;X py

    '**调用分页存储过程**51Testing软件测试网;s\tq]
    DIM pagenow,pagesize,pagecount,recordcount51Testing软件测试网AR"d/m,T$\
    DIM MyComm,MyRst51Testing软件测试网(p.y0a7t9M+u0O;eD
    pagenow = Request("pn")51Testing软件测试网&Dt*F.Y%tW0w+V
    '自定义函数用于验证自然数51Testing软件测试网e wE'o+l4S5s p
    if CheckNar(pagenow) = false then pagenow = 151Testing软件测试网5A8C6~s:N_yVw
    pagesize = 2051Testing软件测试网0X,E/fyu2L n
    Set MyComm = Server.CreateObject("ADODB.Command")51Testing软件测试网Yp v3C?cK7w'?!p
    with MyComm51Testing软件测试网 fPdJ1Q?%w
       .ActiveConnection = MyConStr          'MyConStr是数据库连接字串51Testing软件测试网0C*m?]7B+Zx]q
       .CommandText      = "getUserList"     '指定存储过程名
1R'WeK
m4z0       .CommandType      = 4                 '表明这是一个存储过程51Testing软件测试网-e]X:P9HL~s8FM
       .Prepared         = true              '要求将SQL命令先行编译
;wFfY$ik!u
Ccv0       '返回值(记录总量)
{$~o:VfY0       .Parameters.Append .CreateParameter("RETURN",2,4)
_:CJ
y5\bfp4r0       '出参(总页数)51Testing软件测试网-l"tW;x$TY
       .Parameters.Append .CreateParameter("@iPageCount",3,2)
R*?KS6f:{u&T R0       '入参(当前页号)
Vuyjoi yx8mI0       .Parameters.append .CreateParameter("@iPage",3,1,4,pagenow)
W:P*q.B `:I&hy0       '入参(每页记录数)
g6F-rS2w#jk.N6s0       .Parameters.append .CreateParameter("@iPageSize",3,1,4,pagesize)51Testing软件测试网?$m _ kS$\H-m]] L]4Q
       Set MyRst = .Execute51Testing软件测试网"m t*Fnui,np]
    end with51Testing软件测试网Xc'su:y'z,rq
    if MyRst.state = 0 then        '未取到数据，MyRst关闭
:?-~^!bm-|/K9Wd0       recordcount = -1
uuJ'ZF6[ P Js V"f0    else51Testing软件测试网s-k2M1V9`4DC~gQv
       MyRst.close    '注意：若要取得参数值，需先关闭记录集对象51Testing软件测试网%sn(E)eEe e)^[
       recordcount = MyComm(0)51Testing软件测试网j.i
d+}D|]`
       pagecount   = MyComm(1)
z+aL%l`0       if cint(pagenow)>=cint(pagecount) then pagenow=pagecount
(]6w
j+LdK0    end if51Testing软件测试网YM+sT5R.II$r"t-s5^
    Set MyComm = Nothing

R U U;iD:xgf6n0    '以下显示记录
vyje[l0    if recordcount = 0 then
"C$uk%{ wA0       Response.Write "无记录"
o4p9ME:Y)K0    elseif recordcount > 0 then
-Si t"p2\ rh0       MyRst.open51Testing软件测试网 pN}7muL7]/^
       do until MyRst.EOF51Testing软件测试网#ch{8nPu
       ......
D[$BJ;S0^nG0       loop
Y$r0bO#CY0       '以下显示分页信息51Testing软件测试网N/Z.ZU:v]Tf]
       ......
2W&O!h+R7CPE*y/h0    else  'recordcount=-151Testing软件测试网|4[zjZ[z2f2zwR
       Response.Write "参数错误"51Testing软件测试网1b%c7?f
A@0q
    end if

&X ojz YS`mYv\a0    对于以上代码，只有一点需要说明：同时返回记录集和参数时，若要取得参数，需先将记录集关闭，使用记录集时再将其打开。

!y*Bcj9xu)^8D
s0    7. 返回多个记录集的存储过程
9y3O y+U5n%S+a-KVn0    本文最先介绍的是返回记录集的存储过程。有时候，需要一个存储过程返回多个记录集，在ASP中，如何同时取得这些记录集呢？为了说明这一问题，在userinfo表中增加两个字段：usertel及usermail，并设定只有登录用户可以查看这两项内容。51Testing软件测试网U4X)W&q)I.d

6A$J9u;Q E0    /*SP7*/
E Z(u D B{Z;w$U0    CREATE PROCEDURE dbo.getUserInfo51Testing软件测试网B+a YR`Pz+O%?
       @userid int,
F&L1iX W0       @checklogin bit51Testing软件测试网&_:dDcE}`3~9N
    as51Testing软件测试网y#H(~KB0?6o,W
    set nocount on
%K1I^["\7{#r0    begin51Testing软件测试网4d9{+v$]#eV0M
       if @userid is null or @checklogin is null return
oH5Hcw0       select username51Testing软件测试网CY `A1^2C9Yb
          from dbo.[usrinfo]51Testing软件测试网%{2\WNNE$v2R1Ei
          whereuserid=@userid51Testing软件测试网#G.{qpb
       --若为登录用户，取usertel及usermail
qg"HwV,Opo'~hG0       if @checklogin=151Testing软件测试网&a"cC\7V3qWb
          select usertel,usermail
8N Yl&~;K f(IL0             from dbo.[userinfo]51Testing软件测试网*L!K6J9tA"y-m
             whereuserid=@userid
#?+x_/N}juB0       return51Testing软件测试网,Qbp;s'v
    end51Testing软件测试网P"it mNr
    go

    以下是ASP代码：

    '**调用返回多个记录集的存储过程**51Testing软件测试网5TnC-[/n,o
    DIM checklg,UserID,UserName,UserTel,UserMail
#Qmg
X*\+^/b$? e1?0    DIM MyComm,MyRst51Testing软件测试网nITY5sxt
    UserID = 151Testing软件测试网;Qay p,j].M9z
    'checklogin()为自定义函数，判断访问者是否登录51Testing软件测试网8KY Sb SDUw|G
    checklg = checklogin()
uv\f7Q%S3~$RA|)P0    Set MyComm = Server.CreateObject("ADODB.Command")
9@2{pgJj0    with MyComm51Testing软件测试网6q9j XW5Ju
       .ActiveConnection = MyConStr          'MyConStr是数据库连接字串
\$O Uh/|0       .CommandText      = "getUserInfo"     '指定存储过程名51Testing软件测试网ae1dwDC
       .CommandType      = 4                 '表明这是一个存储过程51Testing软件测试网;J9N(m+BF
       .Prepared         = true              '要求将SQL命令先行编译51Testing软件测试网w%pkG W^.O;A#}
       .Parameters.append .CreateParameter("@userid",3,1,4,UserID)
2W ra*oL,J0       .Parameters.append .CreateParameter("@checklogin",11,1,1,checklg)
uO(\-d+azJ_4\5RM0       Set MyRst = .Execute
4Rj f4_5Htu0    end with51Testing软件测试网!m~Qto2@
    Set MyComm = Nothing

    '从第一个记录集中取值
,w9TlXx1]R0    UserName = MyRst(0)51Testing软件测试网Q7B9[1_#bDi0I? r
    '从第二个记录集中取值
K8UK8{GT4C0    if not MyRst is Nothing then51Testing软件测试网1Z6Lu%|Vk;~!}U"P
       Set MyRst = MyRst.NextRecordset()
~ZO@B8b0       UserTel  = MyRst(0)
JZ(}6b.t\D4\0       UserMail = MyRst(1)51Testing软件测试网$TFO(@bra|
    end if
h)bv)P v R y/t%j0    Set MyRst = Nothing

*z\K7J_x R
B0    以上代码中，利用Recordset对象的NextRecordset方法，取得了存储过程返回的多个记录集。51Testing软件测试网kt~8J j:OZ

;W oDS5J-w8~y0
c7Jl.C*M R%A@0    至此，针对ASP调用存储过程的各种情况，本文已做了较为全面的说明。最后说一下在一个ASP程序中，调用多个存储过程的不同方法。
u&bT+aB5_b0    在一个ASP程序中，调用多个存储过程至少有以下三种方法是可行的：51Testing软件测试网J l/PT;j2R
    1. 创建多个Command对象51Testing软件测试网1ANS+yf
   51Testing软件测试网'Y6? [P5I(^T.Q#F@
    DIM MyComm51Testing软件测试网A O#FA#^1q,^P
    Set MyComm = Server.CreateObject("ADODB.Command")51Testing软件测试网fU `H;F-v
    '调用存储过程一51Testing软件测试网~+c6o3B*ctp"{
    ......
UC/x6T6Z2\y1DN R0    Set MyComm = Nothing
Y1N SKS"{3B3R5A2O0    Set MyComm = Server.CreateObject("ADODB.Command")
Yu'Ho1x5k0    '调用存储过程二51Testing软件测试网 [4q*rs~ q
    ......
EZq;Zov ~Ix[0    Set MyComm = Nothing51Testing软件测试网OR@+eg?%[ l;U
Uu
    ......51Testing软件测试网&~#fM ]0u3W5}0Kl

    2. 只创建一个Command对象，结束一次调用时，清除其参数51Testing软件测试网O2z2u:qGN]

    DIM MyComm51Testing软件测试网%[5p8u5UY7Lih
    Set MyComm = Server.CreateObject("ADODB.Command")
6}e9d4\vcw0    '调用存储过程一
y)S3b O+K(p6y0    .....51Testing软件测试网%iNUkTRK$B
    '清除参数(假设有三个参数)
iy-z6~J,OR,T z0    MyComm.Parameters.delete 251Testing软件测试网DS2[ f/BXuU5Fr
    MyComm.Parameters.delete 1
}q3S6}Om-mvb0    MyComm.Parameters.delete 0
A?-U(?;f+Tu0    '调用存储过程二并清除参数51Testing软件测试网Y7[8B _OE9r
    ......
MB"s3A:qUW(mH0    Set MyComm = Nothing51Testing软件测试网*]x1NV B0da#W

p1FC1FZ6e@/z0    此时要注意：清除参数的顺序与参数声明的顺序相反，原因嘛，我也不知道。

    3. 利用Parameters数据集合的Refresh方法重置Parameter对象51Testing软件测试网_^6Di*h1Y

7d5I6w1C oz?^;k? j0    DIM MyComm51Testing软件测试网,MD`"~U0o
    Set MyComm = Server.CreateObject("ADODB.Command")
@L@L)e:M'jGZ0    '调用存储过程一
$D$H}Eq(tm{0    .....
D sA*N*{h0    '重置Parameters数据集合中包含的所有Parameter对象
u$R-u0g,m5[0    MyComm.Parameters.Refresh
9Uf8Y5R0g7D2Sg2Vp_0    '调用存储过程二
N6{-mh}s ^$_er;gNs0Q0    .....
_U` I.@,K)x^0    Set MyComm = Nothing51Testing软件测试网 p\lA*l!e
 51Testing软件测试网2lZ(?fI
    一般认为，重复创建对象是效率较低的一种方法，但是经测试(测试工具为Microsoft Application Center Test)，结果出人意料：
7e R;T2{$S,@ C/C(?0    方法2 >= 方法1 >> 方法3
m0_X-zm&w$p,x({.c0    方法2的运行速度大于等于方法1(最多可高4%左右)，这两种方法的运行速度远大于方法3(最多竟高达130%)，所以建议在参数多时，采用方法1，在参数较少时，采用方法2。51Testing软件测试网&rRe(J7j5MoPSy

:r b]ua%a0
P o)D9V6c!c-P0