asp sql存储过程

 

1.ASP调用存储过程

首先在SQL里建立一个数据库叫it，怎么建我就不说了，这个简单，一看就知道了。然后在库里建个表，写几个数据记录，如下：

打开查询分析器：

在里边写下如下语句点击绿色按钮执行它：

你到数据库的存储过程里面看，已经多了一个名为upGetUserName的存储过程了表明已经成功的建立了存储过程，如果没有，试着刷新下。

下面用ASP来调用它：
CONN文件（连接数据库）如下：

<%
set db=server.createobject("adodb.connection")
db.Open ("driver={SQL Server};server=192.168.18.254;uid=sa;pwd=;database=it;")
%>

192.168.18.254为SQL SERVER服务器的IP地址，uid pwd it 分别为连接数据库的用户和密码及所要连的数据库

新建一个index.asp文件，内容如下：

<!--#include file="conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql = "exec upGetUserName"
rs.open sql,db,3,2

response.write rs.recordcount&"<br>"
while not rs.eof
    response.write rs("uname")&"<br>"
    rs.movenext
wend
response.End
%>

 

在浏览器中执行这个页面如果显示如下：

那么恭喜你，成功了！
上面是不带参数的存储过程调用，但我们在使用中一定会有参数的，下面就来介绍一个有参数的。
还是上边的例子，我们把原来的存储过程改成这样：

CREATE PROC upGetUserName
@intUserId        NVARCHAR(50),
@intUserpass        NVARCHAR(50)    
AS
BEGIN
        SELECT uname FROM users WHERE uId=@intUserId and pass=@intUserpass

END
GO

 

可以把原来的存储过程删除，然后把这个写在查询分析器里来执行，也可以直接在原来的存储过程里改。
@intUserId NVARCHAR(50),
@intUserpass NVARCHAR(50)
是要传送进来的参数，@是必须的,因为有两个，所以之间用“，”来分隔
index文件改成如下：

<!--#include file="conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql = "exec upGetUserName 'snake','snake'"
rs.open sql,db,3,2

response.write rs.recordcount&"<br>"
while not rs.eof
    response.write rs("uname")&"<br>"
    rs.movenext
wend
response.End
%>

 

注意：sql = "exec upGetUserName 'snake','snake'"
两个snake不是一个意思，一个是uid，一个是pass,存储过程返回的是uid="snake"并且pass="snake"的记录
数据库里只有一条这样的记录，所以会显示：

ASP存储过程使用大全
1，调用没有参数的存储过程

<%

set conn=server.CreateObject("adodb.connection")

set cmd=server.CreateObject("adodb.command")

strconn="dsn=pubs;uid=sa;pwd"

conn.Open strconn

set cmd.ActiveConnection=conn

cmd.CommandText="{call nono}"

'set rs=cmc.exe 或者cmd.execute

set rs=cmd.Execute()

%>

2，一个输入的参数的存储过程

<%

set conn=server.CreateObject("adodb.connection")

set cmd=server.CreateObject("adodb.command")

strconn="dsn=pubs;uid=sa;pwd"

conn.Open strconn

set cmd.ActiveConnection=conn

cmd.CommandText="{call oneinput(?)}"

cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger ,adParamInput )

cmd("@aaa")=100

cmd.Execute()

%>

3，一个输入参数和一个输出的参数

<%

set conn=server.CreateObject("adodb.connection")

set cmd=server.CreateObject("adodb.command")

strconn="dsn=pubs;uid=sa;pwd"

conn.Open strconn

set cmd.ActiveConnection=conn

cmd.CommandText = "{call oneinout(?,?)}"

cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger,adParamInput)

cmd("@aaa")=10

cmd.Parameters.Append cmd.CreateParameter("@bbb",adInteger,adParamOutput)

cmd.Execute()

bbb=cmd("@bbb")

%>

4，一个输入参数，一个输出参数，和一个返回值

<%

set conn=server.CreateObject("adodb.connection")

set cmd=server.CreateObject("adodb.command")

strconn="dsn=pubs;uid=sa;pwd"

conn.Open strconn

set cmd.ActiveConnection=conn

cmd.CommandText="{?=call onereturn(?,?)}"

cmd.Parameters.Append cmd.CreateParameter("@return_value",adInteger,adParamReturnValue )

cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger,adParamInput )

cmd("@aaa")=10

cmd.Parameters.Append cmd.CreateParameter("@bbb",adInteger,adParamOutput)

cmd.Execute()

bbb=cmd("@bbb")

rrr=cmd("@return_value")

%>

如何在ASP中调用SQL存储过程

<%set connection1 = Server.CreateObject("ADODB.Connection")

connection1.open ... '联接

set command1=Server.CreateObject("ADODB.command")

set command1.activeconnection=connection1

command1.commandtype=4

command1.commandtext="sp_1" 'SP 名

command1.parameters(1)=... '参数值

command1.parameters(2)=...

set recordset1=command1.execute()

%>

ASP调用存储过程的技巧

1、最简单的如下

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"

没有参数，没有返回，没有错误处理，就是这个了

2、带参数的一种调用

objConn.Execute "exec sp_AddHit 'http://www.aspalliance.com', 1"

请注意分割参数，该方法也不返回记录

3、返回记录的

Dim objConn

Dim objRs

Set objConn = Server.CreateObject("ADOBD.Connection")

Set objRs = Server.CreateObject("ADOBD.Recordset")

objConn.Open Application("Connection_String")

'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

4、……

Dim objConn

Dim objCmd

'Instantiate objects

Set objConn = Server.CreateObject("ADODB.Connection")

set objCmd = Server.CreateObject("ADODB.Command")

conn.Open Application("ConnectionString")

With objCmd

.ActiveConnection = conn 'You can also just specify a connection string here

.CommandText = "sp_InsertArticle"

.CommandType = adCmdStoredProc 'Requires the adovbs.inc file or typelib meta tag

'Add Input Parameters

.Parameters.Append .CreateParameter("@columnist_id", adDouble, adParamInput, , columnist_id)

.Parameters.Append .CreateParameter("@url", adVarChar, adParamInput, 255, url)

.Parameters.Append .CreateParameter("@title", adVarChar, adParamInput, 99, url)

.Parameters.Append .CreateParameter("@description", adLongVarChar, _

adParamInput, 2147483647, description)

'Add Output Parameters

.Parameters.Append .CreateParameter("@link_id", adInteger, adParamOutput, , 0)

'Execute the function

'If not returning a recordset, use the adExecuteNoRecords parameter option

.Execute, , adExecuteNoRecords

link_id = .Parameters("@link_id")

End With

5、存储过程的代码

Create PROCEDURE dbo.sp_InsertArticle

(

@columnist_id int,

@url varchar(255),

@title varchar(99),

@description text

@link_id int OUTPUT

)

AS

BEGIN

INSERT INTO dbo.t_link (columnist_id,url,title,description)

VALUES (@columnist_id,@url,@title,@description)

SELECT @link_id = @@IDENTITY

END

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

GO

-- 建立存储过程

create procedure sp_PubsTest

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

@au_lname varchar (20),

@intID int,

@intIDOut int OUTPUT

AS

SELECT @intIDOut = @intID + 1

SELECT *

FROM authors

WHERE au_lname LIKE @au_lname + ''%''

--直接返回一个值

RETURN @intID + 2

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

<%@ Language=VBScript %>

<%

Dim CmdSP

Dim adoRS

Dim adCmdSPStoredProc

Dim adParamReturnValue

Dim adParaminput

Dim adParamOutput

Dim adInteger

Dim iVal

Dim oVal

Dim adoField

Dim adVarChar

‘这些值在 VB 中是预定义常量，可以直接调用，但在 VBScript 中没有预定义

adCmdSPStoredProc = 4

adParamReturnValue = 4

adParaminput = 1

adParamOutput = 2

adInteger = 3

adVarChar = 200

iVal = 5

oVal = 3

''建一个command对象

set CmdSP = Server.CreateObject("ADODB.Command")

''定义command 对象调用名称

CmdSP.CommandText = "sp_PubsTest"

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

CmdSP.CommandType = adCmdSPStoredProc

''往command 对象中加参数

''定义存储过程有直接返回值，并且是个整数，省缺值是4

CmdSP.Parameters.Append CmdSP.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 4)

''定义一个字符型输入参数

CmdSP.Parameters.Append CmdSP.CreateParameter("@au_lname", adVarChar, adParaminput, 20, "M")

''定义一个整型输入参数

CmdSP.Parameters.Append CmdSP.CreateParameter("@intID", adInteger, adParamInput, , iVal)

''定义一个整型输出参数

CmdSP.Parameters.Append CmdSP.CreateParameter("@intIDOut", adInteger, adParamOutput, oVal)

''运行存储过程，并得到返回记录集

Set adoRS = CmdSP.Execute

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

While Not adoRS.EOF

for each adoField in adoRS.Fields

Response.Write adoField.Name & "=" & adoField.Value & "<br>" & vbCRLF

Next

Response.Write "<br>"

adoRS.MoveNext

Wend

''打印两个输出值：

Response.Write "<p>@intIDOut = “ & CmdSP.Parameters("@intIDOut").Value & "</p>"

Response.Write "<p>Return value = " & CmdSP.Parameters("RETURN_VALUE").Value & "</p>"

''大扫除

Set adoRS = nothing

Set CmdSP.ActiveConnection = nothing

Set CmdSP = nothing

%>

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

在Asp中使用存储过程

为了提高Asp程序的效率，有时需要在Asp中使用使用Sql Server的存储技术，下面简单作一个介绍。

存储过程的建立

这里只简单介绍如何在Sql Server的企业管理器中如何建立存储过程：

(１)打开企业管理器Enterprise manager

(２)选择服务器组(SQL Server Group)、服务器、数据库(Database)以及相就的数据库，鼠标右击对应数据库下的Stored Procdures项，在弹出的菜单中选择New Stored Procedure，在Stored Procedures Properties中输入建立存储过程的语句。下面是一个例子：

CREATE PROCEDURE proctest @mycola Char(10),@mycolb Char(10),@mycolc text AS

Insert into chatdata (mycola,mycolb,mycolc) values(@mycola,@mycolb,@mycolc)

在Sql Server的文档中它的语法为：

CREATE PROC[EDURE] procedure_name [;number] [

{@parameter data_type} [VARYING] [= default] [OUTPUT] ]

[,...n] [WITH { RECOMPILE | ENCRYPTION

| RECOMPILE, ENCRYPTION } ] [FOR REPLICATION] AS

sql_statement [...n]

如果你对Sql语法不熟悉，可以使用Check Syntax来检查语法。在上例中，表示建立存储过程名为mycola，带３个参数的存储过过程，其中第一个参数mycola数据类型为char，宽度10；第２个参数数据类型为char，宽度为10，第３个参数数据类型为text，在这里使用的是Sql Server的数据类型。

存储过程建立后，下面就是如何在Asp程序中调用该存储过程：在Asp中调用存储过程 为了提高Asp程序的效率，有时需要在Asp中使用使用Sql Server的存储技术，下面简单作一个,在上面的增加参数的语句p.Append cm.CreateParameter("@mycolc",201,1,250)中，格式为：

p.Append cm.CreateParameter("参数名称",类型,方向,大小)

参许参数值的类型的意义如下：

名称值 整数值 功能

adDBTimeStamp 135 日期时间数据类型

adDecimal 14 十进制整数值

adDouble 5 双精度小数值

adError 10 系统错误信息

AdGUID 72 全域性唯一识别字(Globally unique identifier)

adDispath 9 COM/OLE自动对象(Automation Object)

adInteger 3 4字节有符号整数

adIUnknown 13 COM/OLE对象

adLongVarBinary 205 大型２字节值

adLongVarChar 201 大型字符串值

adLongVarWChar 203 大型未编码字符串

adNumeric 131 十进制整数值

adSingle 4 单精度浮点小数

adSmallInt 2 2字节有符号整数

adTinyInt 16 1字节有符号整数

adUnsignedBigInt 21 8字节无符号整数

adUnsignedInt 19 4字节无符号整数

adUnsignedSmallInt 18 2字节无符号整数

adUnsignedTinyInt 17 1字节无符号整数

adUserDefined 132 用户自定义数据类型

adVariant 12 OLE对象

adVarBinary 204 双字节字符变量值

adVarChar 200 字符变量值

advarchar 202 未编码字符串变量值

adWchar 130 未编码字符串

方向值的意义如下：

名称值 整数值 功能

adParamInput 1 允许数据输入至该参数当中

adParamOutput 2 允许数据输出至该参数当中

adParamInputOutput 3 允许数据输入、输出至该参数当中

adparamReturnValue 4 允许从一子程序中返回数据至该参数当中

更多详细资源请参考Sql Server的文档和IIS的文档资源。 

 

 

ASP与存储过程(Stored Procedures)的文章不少，但是我怀疑作者们是否真正实践过。我在初学时查阅过大量相关资料，发现其中提供的很多方法实际操作起来并不是那么回事。对于简单的应用，这些资料也许是有帮助的，但仅限于此，因为它们根本就是千篇一律，互相抄袭，稍微复杂点的应用，就全都语焉不详了。
    现在，我基本上通过调用存储过程访问SQL Server，以下的文字虽不敢保证绝对正确，但都是实践的总结，希望对大家能有帮助。

    存储过程就是作为可执行对象存放在数据库中的一个或多个SQL命令。
    定义总是很抽象。存储过程其实就是能完成一定操作的一组SQL语句，只不过这组语句是放在数据库中的(这里我们只谈SQL Server)。如果我们通过创建存储过程以及在ASP中调用存储过程，就可以避免将SQL语句同ASP代码混杂在一起。这样做的好处至少有三个：
    第一、大大提高效率。存储过程本身的执行速度非常快，而且，调用存储过程可以大大减少同数据库的交互次数。
    第二、提高安全性。假如将SQL语句混合在ASP代码中，一旦代码失密，同时也就意味着库结构失密。
    第三、有利于SQL语句的重用。
    
    在ASP中，一般通过command对象调用存储过程，根据不同情况，本文也介绍其它调用方法。为了方便说明，根据存储过程的输入输出，作以下简单分类：
    1. 只返回单一记录集的存储过程
    假设有以下存储过程(本文的目的不在于讲述T-SQL语法，所以存储过程只给出代码，不作说明)：

   /*SP1*/
    CREATE PROCEDURE dbo.getUserList
    as
    set nocount on
    begin
       select * from dbo.[userinfo]
    end
    go

    以上存储过程取得userinfo表中的所有记录，返回一个记录集。通过command对象调用该存储过程的ASP代码如下:
    
    '**通过Command对象调用存储过程**
    DIM MyComm,MyRst
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库连接字串
    MyComm.CommandText      = "getUserList"     '指定存储过程名
    MyComm.CommandType      = 4                 '表明这是一个存储过程
    MyComm.Prepared         = true              '要求将SQL命令先行编译
    Set MyRst = MyComm.Execute
    Set MyComm = Nothing

    存储过程取得的记录集赋给MyRst，接下来，可以对MyRst进行操作。
    在以上代码中，CommandType属性表明请求的类型，取值及说明如下：
      -1   表明CommandText参数的类型无法确定
      1    表明CommandText是一般的命令类型
      2    表明CommandText参数是一个存在的表名称
      4    表明CommandText参数是一个存储过程的名称
    
    还可以通过Connection对象或Recordset对象调用存储过程，方法分别如下：

    '**通过Connection对象调用存储过程**
    DIM MyConn,MyRst
    Set MyConn = Server.CreateObject("ADODB.Connection")
    MyConn.open MyConStr                            'MyConStr是数据库连接字串
    Set MyRst  = MyConn.Execute("getUserList",0,4) '最后一个参断含义同CommandType
    Set MyConn = Nothing

    '**通过Recordset对象调用存储过程**
    DIM MyRst
    Set MyRst = Server.CreateObject("ADODB.Recordset")
    MyRst.open "getUserList",MyConStr,0,1,4
    'MyConStr是数据库连接字串,最后一个参断含义与CommandType相同

    
    2. 没有输入输出的存储过程
    请看以下存储过程：

    /*SP2*/
    CREATE PROCEDURE dbo.delUserAll
    as
    set nocount on
    begin
       delete from dbo.[userinfo]
    end
    go

    该存储过程删去userinfo表中的所有记录，没有任何输入及输出，调用方法与上面讲过的基本相同，只是不用取得记录集：

   '**通过Command对象调用存储过程**
    DIM MyComm
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库连接字串
    MyComm.CommandText      = "delUserAll"      '指定存储过程名
    MyComm.CommandType      = 4                 '表明这是一个存储过程
    MyComm.Prepared         = true              '要求将SQL命令先行编译
    MyComm.Execute                              '此处不必再取得记录集
    Set MyComm = Nothing  

    当然也可通过Connection对象或Recordset对象调用此类存储过程，不过建立Recordset对象是为了取得记录集，在没有返回记录集的情况下，还是利用Command对象吧。

    3. 有返回值的存储过程
    在进行类似SP2的操作时，应充分利用SQL Server强大的事务处理功能，以维护数据的一致性。并且，我们可能需要存储过程返回执行情况，为此，将SP2修改如下：

    /*SP3*/
    CREATE PROCEDURE dbo.delUserAll
    as
    set nocount on
    begin
       BEGIN TRANSACTION
       delete from dbo.[userinfo]
       IF @@error=0
          begin
             COMMIT TRANSACTION
             return 1
          end
       ELSE
          begin
             ROLLBACK TRANSACTION
             return 0
          end        
       return
    end
    go

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

    '**调用带有返回值的存储过程并取得返回值**
    DIM MyComm,MyPara
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr         'MyConStr是数据库连接字串
    MyComm.CommandText      = "delUserAll"      '指定存储过程名
    MyComm.CommandType      = 4                 '表明这是一个存储过程
    MyComm.Prepared         = true              '要求将SQL命令先行编译
   '声明返回值
    Set Mypara = MyComm.CreateParameter("RETURN",2,4)
    MyComm.Parameters.Append MyPara
    MyComm.Execute
    '取得返回值
    DIM retValue
    retValue = MyComm(0)    '或retValue = MyComm.Parameters(0)
    Set MyComm = Nothing
    
    在MyComm.CreateParameter("RETURN",2,4)中，各参数的含义如下：
    第一个参数("RETURE")为参数名。参数名可以任意设定，但一般应与存储过程中声明的参数名相同。此处是返回值，我习惯上设为"RETURE"；
    第二个参数(2)，表明该参数的数据类型，具体的类型代码请参阅ADO参考，以下给出常用的类型代码：
    adBigInt: 20 ;
    adBinary : 128 ;
    adBoolean: 11 ;
    adChar: 129 ;
    adDBTimeStamp: 135 ;
    adEmpty: 0 ;
    adInteger: 3 ;
    adSmallInt: 2 ;
    adTinyInt: 16 ;
    adVarChar: 200 ;
    对于返回值，只能取整形，且-1到-99为保留值；
    第三个参数(4)，表明参数的性质，此处4表明这是一个返回值。此参数取值的说明如下：
    0 : 类型无法确定； 1: 输入参数；2: 输入参数；3：输入或输出参数；4: 返回值
    
    以上给出的ASP代码，应该说是完整的代码，也即最复杂的代码，其实

    Set Mypara = MyComm.CreateParameter("RETURN",2,4)
    MyComm.Parameters.Append MyPara
        
    可以简化为

    MyComm.Parameters.Append MyComm.CreateParameter("RETURN",2,4)

    甚至还可以继续简化，稍后会做说明。
    对于带参数的存储过程，只能使用Command对象调用(也有资料说可通过Connection对象或Recordset对象调用，但我没有试成过)。

    4. 有输入参数和输出参数的存储过程
    返回值其实是一种特殊的输出参数。在大多数情况下，我们用到的是同时有输入及输出参数的存储过程，比如我们想取得用户信息表中，某ID用户的用户名，这时候，有一个输入参数----用户ID，和一个输出参数----用户名。实现这一功能的存储过程如下：

    /*SP4*/
    CREATE PROCEDURE dbo.getUserName
       @UserID int,
       @UserName varchar(40) output
    as
    set nocount on
    begin
       if @UserID is null return
       select @UserName=username
           from dbo.[userinfo]
           where userid=@UserID
       return
    end
    go

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

   '**调用带有输入输出参数的存储过程**
    DIM MyComm,UserID,UserName
    UserID = 1
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库连接字串
    MyComm.CommandText      = "getUserName"     '指定存储过程名
    MyComm.CommandType      = 4                 '表明这是一个存储过程
    MyComm.Prepared         = true             '要求将SQL命令先行编译
    '声明参数
    MyComm.Parameters.append MyComm.CreateParameter("@UserID",3,1,4,UserID)
    MyComm.Parameters.append MyComm.CreateParameter("@UserName",200,2,40)
    MyComm.Execute
    '取得出参
    UserName = MyComm(1)
    Set MyComm = Nothing

    在以上代码中，可以看到，与声明返回值不同，声明输入参数时需要5个参数，声明输出参数时需要4个参数。声明输入参数时5个参数分别为：参数名、参数数据类型、参数类型、数据长度、参数值。声明输出参数时，没有最后一个参数：参数值。
    需要特别注意的是：在声明参数时，顺序一定要与存储过程中定义的顺序相同，而且各参数的数据类型、长度也要与存储过程中定义的相同。
    如果存储过程有多个参数，ASP代码会显得繁琐，可以使用with命令简化代码：

    '**调用带有输入输出参数的存储过程(简化代码)**
    DIM MyComm,UserID,UserName
    UserID = 1
    Set MyComm = Server.CreateObject("ADODB.Command")
    with MyComm
       .ActiveConnection = MyConStr         'MyConStr是数据库连接字串
       .CommandText      = "getUserName"     '指定存储过程名
       .CommandType      = 4                 '表明这是一个存储过程
       .Prepared         = true              '要求将SQL命令先行编译
       .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
       .Parameters.append .CreateParameter("@UserName",200,2,40)
       .Execute
    end with
    UserName = MyComm(1)
    Set MyComm = Nothing
    
    假如我们要取得ID为1到10，10位用户的用户名，是不是要创建10次Command对象呢？不是的。如果需要多次调用同一存储过程，只需改变输入参数，就会得到不同的输出：

    '**多次调用同一存储过程**
    DIM MyComm,UserID,UserName
    UserName = ""
    Set MyComm = Server.CreateObject("ADODB.Command")
    for UserID = 1 to 10
       with MyComm
          .ActiveConnection = MyConStr          'MyConStr是数据库连接字串
          .CommandText      = "getUserName"     '指定存储过程名
          .CommandType      = 4                 '表明这是一个存储过程
          .Prepared         = true              '要求将SQL命令先行编译
          if UserID = 1 then
             .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
             .Parameters.append .CreateParameter("@UserName",200,2,40)
             .Execute
          else
             '重新给入参赋值(此时参数值不发生变化的入参以及出参不必重新声明)
             .Parameters("@UserID") = UserID
             .Execute
          end if
       end with
       UserName = UserName + MyComm(1) + ","   '也许你喜欢用数组存储
    next
    Set MyComm = Nothing

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

5. 同时具有返回值、输入参数、输出参数的存储过程
    前面说过，在调用存储过程时，声明参数的顺序要与存储过程中定义的顺序相同。还有一点要特别注意：如果存储过程同时具有返回值以及输入、输出参数，返回值要最先声明。
    为了演示这种情况下的调用方法，我们改善一下上面的例子。还是取得ID为1的用户的用户名，但是有可能该用户不存在(该用户已删除，而userid是自增长的字段)。存储过程根据用户存在与否，返回不同的值。此时，存储过程和ASP代码如下：

    /*SP5*/
    CREATE PROCEDURE dbo.getUserName
       --为了加深对"顺序"的印象，将以下两参数的定义顺序颠倒一下
       @UserName varchar(40) output,
       @UserID int
    as
    set nocount on
    begin
       if @UserID is null return
       select @UserName=username
           from dbo.[userinfo]
           where userid=@UserID
       if @@rowcount>0
          return 1
       else
          return 0
       return
    end
    go

   '**调用同时具有返回值、输入参数、输出参数的存储过程**
    DIM MyComm,UserID,UserName
    UserID = 1
    Set MyComm = Server.CreateObject("ADODB.Command")
    with MyComm
       .ActiveConnection = MyConStr          'MyConStr是数据库连接字串
       .CommandText      = "getUserName"     '指定存储过程名
       .CommandType      = 4                 '表明这是一个存储过程
       .Prepared         = true              '要求将SQL命令先行编译
       '返回值要最先被声明
       .Parameters.Append .CreateParameter("RETURN",2,4)
       '以下两参数的声明顺序也做相应颠倒
       .Parameters.append .CreateParameter("@UserName",200,2,40)
       .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
       .Execute
    end with
    if MyComm(0) = 1 then
       UserName = MyComm(1)
    else
       UserName = "该用户不存在"
    end if
    Set MyComm = Nothing

    6. 同时返回参数和记录集的存储过程
    有时候，我们需要存储过程同时返回参数和记录集，比如在利用存储过程分页时，要同时返回记录集以及数据总量等参数。以下给出一个进行分页处理的存储过程：

   /*SP6*/
    CREATE PROCEDURE dbo.getUserList
       @iPageCount int OUTPUT,   --总页数
       @iPage int,               --当前页号
       @iPageSize int            --每页记录数
    as
    set nocount on
    begin
       --创建临时表
       create table #t (ID int IDENTITY,   --自增字段
                        userid int,
                        username varchar(40))
       --向临时表中写入数据
       insert into #t
          select userid,username from dbo.[UserInfo]
             order by userid
      
       --取得记录总数
       declare @iRecordCount int
       set @iRecordCount = @@rowcount

       --确定总页数
       IF @iRecordCount%@iPageSize=0
          SET @iPageCount=CEILING(@iRecordCount/@iPageSize)
       ELSE
          SET @iPageCount=CEILING(@iRecordCount/@iPageSize)+1

       --若请求的页号大于总页数，则显示最后一页
       IF @iPage > @iPageCount
          SELECT @iPage = @iPageCount

       --确定当前页的始末记录
       DECLARE @iStart int    --start record
       DECLARE @iEnd int      --end record
       SELECT @iStart = (@iPage - 1) * @iPageSize
       SELECT @iEnd = @iStart + @iPageSize + 1

       --取当前页记录    
       select * from #t where ID>@iStart and ID<@iEnd

       --删除临时表
       DROP TABLE #t

       --返回记录总数
       return @iRecordCount
    end
    go

    在上面的存储过程中，输入当前页号及每页记录数，返回当前页的记录集，总页数及记录总数。为了更具典型性，将记录总数以返回值的形式返回。以下是调用该存储过程的ASP代码(具体的分页操作略去):

   '**调用分页存储过程**
    DIM pagenow,pagesize,pagecount,recordcount
    DIM MyComm,MyRst
    pagenow = Request("pn")
    '自定义函数用于验证自然数
    if CheckNar(pagenow) = false then pagenow = 1
    pagesize = 20
    Set MyComm = Server.CreateObject("ADODB.Command")
    with MyComm
       .ActiveConnection = MyConStr         'MyConStr是数据库连接字串
       .CommandText      = "getUserList"     '指定存储过程名
       .CommandType      = 4                 '表明这是一个存储过程
       .Prepared         = true             '要求将SQL命令先行编译
       '返回值(记录总量)
       .Parameters.Append .CreateParameter("RETURN",2,4)
       '出参(总页数)
       .Parameters.Append .CreateParameter("@iPageCount",3,2)
       '入参(当前页号)
       .Parameters.append .CreateParameter("@iPage",3,1,4,pagenow)
       '入参(每页记录数)
       .Parameters.append .CreateParameter("@iPageSize",3,1,4,pagesize)
       Set MyRst = .Execute
    end with
    if MyRst.state = 0 then        '未取到数据，MyRst关闭
       recordcount = -1
    else
       MyRst.close    '注意：若要取得参数值，需先关闭记录集对象
       recordcount = MyComm(0)
       pagecount   = MyComm(1)
       if cint(pagenow)>=cint(pagecount) then pagenow=pagecount
    end if
    Set MyComm = Nothing

    '以下显示记录
    if recordcount = 0 then
       Response.Write "无记录"
    elseif recordcount > 0 then
       MyRst.open
       do until MyRst.EOF
       ......
       loop
       '以下显示分页信息
       ......
    else  'recordcount=-1
       Response.Write "参数错误"
    end if

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

    7. 返回多个记录集的存储过程
    本文最先介绍的是返回记录集的存储过程。有时候，需要一个存储过程返回多个记录集，在ASP中，如何同时取得这些记录集呢？为了说明这一问题，在userinfo表中增加两个字段：usertel及usermail，并设定只有登录用户可以查看这两项内容。

    /*SP7*/
    CREATE PROCEDURE dbo.getUserInfo
       @userid int,
       @checklogin bit
    as
    set nocount on
    begin
       if @userid is null or @checklogin is null return
       select username
          from dbo.[usrinfo]
          where userid=@userid
       --若为登录用户，取usertel及usermail
       if @checklogin=1
          select usertel,usermail
             from dbo.[userinfo]
             where userid=@userid
       return
    end
    go

    以下是ASP代码：

    '**调用返回多个记录集的存储过程**
    DIM checklg,UserID,UserName,UserTel,UserMail
    DIM MyComm,MyRst
    UserID = 1
    'checklogin()为自定义函数，判断访问者是否登录
    checklg = checklogin()
    Set MyComm = Server.CreateObject("ADODB.Command")
    with MyComm
       .ActiveConnection = MyConStr         'MyConStr是数据库连接字串
       .CommandText      = "getUserInfo"     '指定存储过程名
       .CommandType      = 4                 '表明这是一个存储过程
       .Prepared         = true              '要求将SQL命令先行编译
       .Parameters.append .CreateParameter("@userid",3,1,4,UserID)
       .Parameters.append .CreateParameter("@checklogin",11,1,1,checklg)
       Set MyRst = .Execute
    end with
    Set MyComm = Nothing

    '从第一个记录集中取值
    UserName = MyRst(0)
    '从第二个记录集中取值
    if not MyRst is Nothing then
       Set MyRst = MyRst.NextRecordset()
       UserTel  = MyRst(0)
       UserMail = MyRst(1)
    end if
    Set MyRst = Nothing

    以上代码中，利用Recordset对象的NextRecordset方法，取得了存储过程返回的多个记录集。

    至此，针对ASP调用存储过程的各种情况，本文已做了较为全面的说明。最后说一下在一个ASP程序中，调用多个存储过程的不同方法。
    在一个ASP程序中，调用多个存储过程至少有以下三种方法是可行的：
    1. 创建多个Command对象
    
    DIM MyComm
    Set MyComm = Server.CreateObject("ADODB.Command")
    '调用存储过程一
    ......
    Set MyComm = Nothing
    Set MyComm = Server.CreateObject("ADODB.Command")
   '调用存储过程二
    ......
    Set MyComm = Nothing
    ......

   2. 只创建一个Command对象，结束一次调用时，清除其参数

    DIM MyComm
    Set MyComm = Server.CreateObject("ADODB.Command")
   '调用存储过程一
    .....
    '清除参数(假设有三个参数)
    MyComm.Parameters.delete 2
    MyComm.Parameters.delete 1
    MyComm.Parameters.delete 0
   '调用存储过程二并清除参数
    ......
    Set MyComm = Nothing

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

    3. 利用Parameters数据集合的Refresh方法重置Parameter对象

    DIM MyComm
    Set MyComm = Server.CreateObject("ADODB.Command")
    '调用存储过程一
    .....
   '重置Parameters数据集合中包含的所有Parameter对象
    MyComm.Parameters.Refresh
   '调用存储过程二
    .....
    Set MyComm = Nothing
  
    一般认为，重复创建对象是效率较低的一种方法，但是经测试(测试工具为Microsoft Application Center Test)，结果出人意料：
    方法2 >= 方法1 >> 方法3
    方法2的运行速度大于等于方法1(最多可高4%左右)，这两种方法的运行速度远大于方法3(最多竟高达130%)，所以建议在参数多时，采用方法1，在参数较少时，采用方法2。

    花了一天的时间，终于把我对于在ASP中调用存储过程的一些粗浅的经验形成了文字。这其中，有些是我只知其果而不明其因的，有些可能是错误的，但是，这些都是经过我亲身实践的。各位看官批判地接受吧。有不同意见，希望一定向我指明，先谢了。