RT,谢谢。
---------------------------------------------------------------
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程序如下:
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 & "
<br/>
1" & vbCRLF
2Next
3Response.Write "
<br/>
1"
2adoRS.MoveNext
3Wend
4
5'打印两个输出值:
6Response.Write "
<p>@intIDOut = “ & CmdSP.Parameters("@intIDOut").Value & "</p>
1"
2Response.Write "
<p>Return value = " & CmdSP.Parameters("RETURN_VALUE").Value & "</p>
1"
2
3
4'大扫除
5Set adoRS = nothing
6Set CmdSP.ActiveConnection = nothing
7Set CmdSP = nothing
---------------------------------------------------------------
在ASP中调用存储过程
---- 存储过程(Stored-Procedure)是由一些SQL语句和控制语句组成的被封装起来的过程,它驻留在数据库中,可以被客户应用程序调用,也可以从另一个过程或触发器调用。它的参数可以被传递和返回。
---- ASP包含的ADO(ActiveX Data Object)即ActiveX数据对象技术与ASP相结合提供了强大的站点数据库访问功能。ADO具有操作简单快速,占用内存和硬盘空间少的优点。通过ODBC,ADO可以与包括SQL Server,Oracle,Sybase等多种数据库相连接。加上ADO支持存储过程,这使得ASP能与大型数据库相结合,完成大型复杂高效率的站点数据库应用成为可能。
---- 一、采用存储过程的优点:
---- 在客户端工作站中执行大而复杂的SQL批处理时,存储过程提供了诸多方便之处: * 可以在存储过程中利用Transact-SQL的强大功能。一个SQL存储过程可以包含多个SQL语句。通过使用变量和条件。能够用存储过程建立非常复杂的查询,以非常复杂的方式更新数据库。
快速执行。在第一次执行之后,存储过程在数据库中已经预先经过了优化和编译,存储在高速缓存之中,在接下来的运行中可以直接从高速缓存中执行,省去了以后执行的优化和编译阶段,节省了执行过程的大量时间。
减少网络通信量。存储过程能包含巨大而复杂的查询或SQL操作。它们已被编译完毕并存储在SQL数据库内,当客户发出执行存储过程的请求时,它们就在SQL Server上运行,只把最终结果传送给客户应用程序。所以使得客户机与服务器的通讯量降至最小,大大减少了网络负荷。
自动、复杂或敏感的事务处理。在一个存储过程中对某些表进行各种处理,可以保证这些表的数据完整性。
---- ASP调用存储过程除了具有存储过程本身的优点外还能够减少在ADO中构造复杂SQL语句的难度,省去繁杂的标点符号的处理。通过在多个网页中调用同一个存储过程。可以使站点更易于维护和更新。
---- 二、ASP调用存储过程的方法:
---- 调用存储过程的方法需要使用ADO的Command对象。Command对象是对一个数据源运行特定命令的定义(例如,一个SQL查询或一个SQL存储过程)。下面以MS SQL SERVER6.5为后台数据库,介绍ASP调用存储过程的方法。
---- 例如,在表User中保存了用户名和密码。现在建立一个检查密码的存储过程sp_CheckPass来检查用户是否输入了合法的密码。建立存储过程,可以从Microsoft SQL Sever程序组中启动ISQL/w。然后,在查询窗口中输入存储过程:
/存储过程例程/
CREATE PROCEDURE sp_CheckPass
@CHKName VARCHAR(30),@CHKPass VARCHAR(30),
@ISValid CHAR(8) OUTPUT
AS
IF EXISTS(SELECT UserName FROM Users
WHERE UserName=@CHKName AND UserPwd=@CHKPass)
SELECT @ISVaid="pass"
ELSE
SELECT @ISValid="Invalid"
---- 存储过程接收两个输入参数。输入参数@CHKName向存储过程传递一个用户名。@CHKPass向存储过程传递一个密码。如果有用户拥有指定的密码,输出参数将返回“pass",否则,返回“Invalid"。
---- 现在我们可以在CheckPass.asp中调用存储过程sp_CheckPass 了。
CheckPass.asp
< !--#INCLUDE VIRTUAL="ADOVBS.inc"-- > ’
包含VBSCRIPT的常量定义文件
< %
Set DataConn=Sever.CreateObject("ADODB.Connection")
'建立连接对象
Dataconn.Open"DSN=user;SERVER=APP_SERVER;
UID=sa;PWD=;APP=Microsoft(R) Developer Studio;
WSID=APP_SERVER;Regional=Yes"
Set cmdTemp=Sever.CreateObject("ADODB.Command")
'建立命令对象
Set cmdTemp.ActiveConnection=DataConn
cmdTemp.CommandType=adCMdStoredProc
'指定要执行的是一个存储过程
cmdTemp.CommandText="sp_CheckPass"
'存储过程名称
Set tmpFirstParam=cmdTemp.CreateParameter
("UserName",adVarChar,adParamIntput,30)
'创建输入参数对象
cmdTemp.Parameters.Append tmpFirstParam
'把参数加到参数集合
Set tmpSecondParam=cmdTemp.CreateParameter
("UserPwd",adVarChar,adParamInput,30)
cmdTemp.ParaMeters.Append tmpSecondParam
Set tmpThirdParam=cmdTemp.CreateParameter
("RetValue",adChar,adParamOutput,8)
'创建返回参数对象
cmdTemp.Parameters.Append tmpThirdParam
cmdTemp("UserName")=Request.FORM("UserName")
’取得输入参数
cmdTemp("UserPwd")=Request.FORM("UserPwd")
cmdTemp.Execute ’执行存储过程
% >
The Check Result is < %=cmdTemp("RetValue")% >
'输出返回值
< %
DataConn.Close '关闭数据库连接
% >
//用户输入界面
< HTML >
< HEAD >< TITLE >Registration Page< /TITLE >< /HEAD >
< H2 >请输入用户名和密码:< /H2 >
< FORM METHOD="POST" ACTION="CheckPass.asp" >
< p >用户名:
< input name="UserName" type="TEXT" >
< /p >
< p > 密 码:
< input name="UserPwd" type="PASSWORD" >
< input type="submit" name="submit" value="确定" >
< /p >
< /FORM > < /BODY >
< /HTML >
---- 在这个例子中,首先创建了命令对象的一个实例。接着,ActiveConnection属性把命令和一个打开的连接联系在一起。CommandText属性指定要执行的存储过程名。CommandType属性为adCMDStoredProc属性,指明该命令是一个存储过程的定义。而为了得到存储过程的返回状态值必须用命令对象的CreateParameter()方法建立参数。本例中CreateParameter()方法有四个参数:
---- 第一个参数为新参数指定一个名字;
---- 第二个参数指定数据类型;
---- 第三个参数指