在ASP中调用存储过程的几种方法

　　1这也是最简单的方法,两个输入参数，无返回值：
connection.opensomeDSN
Connection.Executeprocnamevarvalue1,varvalue2

将所有对象清为nothing，释放资源
connection.close
setconnection=nothing


2如果要返回Recordset集:
setconnection=server.createobject(adodb.connection)
connection.opensomeDSN
setrs=server.createobject(adodb.recordset)
rs.OpenExecprocnamevarvalue1,varvalue2,connection

将所有对象清为nothing，释放资源
rs.close
connection.close
setrs=nothing
setconnection=nothing


3以上两种方法都不能有返回值，（Recordset除外），如果要得到返回值，需要用Command的方法。
首先说明，返回值有两种。一种是在存储过程中直接return一个值，就象C和VB的函数返回值那样；另一种是可以返回多个值，存储这些值的变量名称需要在调用参数中先行指定。
这个例子要处理多种参数，输入参数，输出参数，返回记录集以及一个直接返回值（够全了吧？）
存储过程如下：

usepubs
GO

--建立存储过程
createproceduresp_PubsTest

--定义三个参数变量，注意第三个，特别标记是用于输出
@au_lnamevarchar(20),
@intIDint,
@intIDOutintOUTPUT

AS

SELECT@intIDOut=@intID+1

SELECT*
FROMauthors
WHEREau_lnameLIKE@au_lname+%

--直接返回一个值
RETURN@intID+2


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

<%@Language=VBScript%>
<%
DimCmdSP
DimadoRS
DimadCmdSPStoredProc
DimadParamReturnValue
DimadParaminput
DimadParamOutput
DimadInteger
DimiVal
DimoVal
DimadoField
DimadVarChar

‘这些值在VB中是预定义常量，可以直接调用，但在VBScript中没有预定义
adCmdSPStoredProc=4
adParamReturnValue=4
adParaminput=1
adParamOutput=2
adInteger=3
adVarChar=200

iVal=5
oVal=3

建一个command对象

建立连结
CmdSP.ActiveConnection=Driver={SQLServer};server=(local);Uid=sa;Pwd=;Database=Pubs

定义command对象调用名称
CmdSP.CommandText=sp_PubsTest

设置command调用类型是存储过程(adCmdSPStoredProc=4)
CmdSP.CommandType=adCmdSPStoredProc

往command对象中加参数
定义存储过程有直接返回值，并且是个整数，省缺值是4
CmdSP.Parameters.AppendCmdSP.CreateParameter(RETURN_VALUE,adInteger,adParamReturnValue,4)
定义一个字符型输入参数
CmdSP.Parameters.AppendCmdSP.CreateParameter(@au_lname,adVarChar,adParaminput,20,M)
定义一个整型输入参数
CmdSP.Parameters.AppendCmdSP.CreateParameter(@intID,adInteger,adParamInput,,iVal)
定义一个整型输出参数
CmdSP.Parameters.AppendCmdSP.CreateParameter(@intIDOut,adInteger,adParamOutput,oVal)

运行存储过程，并得到返回记录集
SetadoRS=CmdSP.Execute


把每个记录打印出来，其中的字段是虚拟的，可以不用管
WhileNotadoRS.EOF

foreachadoFieldinadoRS.Fields
Next
Response.Write<br>
adoRS.MoveNext
Wend

打印两个输出值：
Response.Write<p>@intIDOut=“&CmdSP.Parameters(@intIDOut).Value&</p>
Response.Write<p>Returnvalue=&CmdSP.Parameters(RETURN_VALUE).Value&</p>


大扫除
SetadoRS=nothing
SetCmdSP.ActiveConnection=nothing
SetCmdSP=nothing
%>

此外还有其他方式，稍微偏门一些，以后慢慢再说
本文参考了多篇文章，这里不一一列出。