如何在ASP調用存儲過程

最近有很多的朋友问到调用存储过程的问题，这里简单介绍几种ASP调用带参数存储过程的方法。
1 这也是最简单的方法,两个输入参数，无返回值：

set connection = server.createobject("adodb.connection")

connection.open someDSN

Connection.Execute "procname varvalue1, varvalue2"

’将所有对象清为nothing，释放资源

connection.close

set connection = nothing

2 如果要返回 Recordset 集:

set connection = server.createobject("adodb.connection")

connection.open someDSN

set rs = server.createobject("adodb.recordset")

rs.Open "Exec procname varvalue1, varvalue2",connection

’将所有对象清为nothing，释放资源

rs.close

connection.close

set rs = nothing

set connection = nothing

3 以上两种方法都不能有返回值，（Recordset除外），如果要得到返回值，需要用Command的方法。

首先说明，返回值有两种。一种是在存储过程中直接return一个值，就象C和VB的函数返回值那样；另一种是可以返回多个值，存储这些值的变量名称需要在调用参数中先行指定。

这个例子要处理多种参数，输入参数，输出参数，返回记录集以及一个直接返回值（够全了吧？）

存储过程如下：

use pubs

-- 建立存储过程

create procedure sp_PubsTest

-- 定义三个参数变量，注意第三个，特别标记是用于输出

@au_lname varchar (20),

@intID int,

@intIDOut int OUTPUT

SELECT @intIDOut = @intID + 1

SELECT *

FROM authors

WHERE au_lname LIKE @au_lname + ’%’

--直接返回一个值

RETURN @intID + 2

调用该存储过程的asp程序如下：

1@ Language=VBScript

 1   
 2Dim CmdSP   
 3Dim adoRS   
 4Dim adCmdSPStoredProc   
 5Dim adParamReturnValue   
 6Dim adParaminput   
 7Dim adParamOutput   
 8Dim adInteger   
 9Dim iVal   
10Dim oVal   
11Dim adoField   
12Dim adVarChar   
13  
14‘这些值在 VB 中是预定义常量，可以直接调用，但在 VBScript 中没有预定义   
15adCmdSPStoredProc = 4   
16adParamReturnValue = 4   
17adParaminput = 1   
18adParamOutput = 2   
19adInteger = 3   
20adVarChar = 200   
21  
22iVal = 5   
23oVal = 3   
24  
25'建一个command对象   
26set CmdSP = Server.CreateObject("ADODB.Command")   
27  
28'建立连结   
29CmdSP.ActiveConnection = "Driver={SQL Server};server=(local);Uid=sa;Pwd=;Database=Pubs"   
30  
31'定义command 对象调用名称   
32CmdSP.CommandText = "sp_PubsTest"   
33  
34'设置command调用类型是存储过程 (adCmdSPStoredProc = 4)   
35CmdSP.CommandType = adCmdSPStoredProc   
36  
37'往command 对象中加参数   
38'定义存储过程有直接返回值，并且是个整数，省缺值是4   
39CmdSP.Parameters.Append CmdSP.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 4)   
40'定义一个字符型输入参数   
41CmdSP.Parameters.Append CmdSP.CreateParameter("@au_lname", adVarChar, adParaminput, 20, "M")   
42'定义一个整型输入参数   
43CmdSP.Parameters.Append CmdSP.CreateParameter("@intID", adInteger, adParamInput, , iVal)   
44'定义一个整型输出参数   
45CmdSP.Parameters.Append CmdSP.CreateParameter("@intIDOut", adInteger, adParamOutput, oVal)   
46  
47'运行存储过程，并得到返回记录集   
48Set adoRS = CmdSP.Execute   
49  
50  
51'把每个记录打印出来，其中的字段是虚拟的，可以不用管   
52While Not adoRS.EOF   
53  
54for each adoField in adoRS.Fields   
55Response.Write adoField.Name & "=" & adoField.Value & "

1" & vbCRLF   
2Next   
3Response.Write "

1"   
2adoRS.MoveNext   
3Wend   
4  
5'打印两个输出值：   
6Response.Write "

@intIDOut = “ & CmdSP.Parameters("@intIDOut").Value & "

1"   
2Response.Write "

Return value = " & CmdSP.Parameters("RETURN_VALUE").Value & "

1"   
2  
3  
4'大扫除   
5Set adoRS = nothing   
6Set CmdSP.ActiveConnection = nothing   
7Set CmdSP = nothing