oracle存过传参的3中方法,写一个封装方法就是传三个参数输入参数输出参数存储过程的名字...

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")

%>

作者：ministrybill(生命的烙印)

ASP调用Procedure

Microsoft 的Active Server Pages 即ASP，是一套微软开发的服务器端脚本环境，ASP内含于IIS 和PWS之中,通过ASP我们可以结合 HTML 网页、ASP指令和 ActiveX 元件建立动态、交互且高效的WEB服务器应用程序。

---- 　　存储过程(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"

---- 　　存储过程接收两个输入参数。输入参数@CHKaName向存储过程传递一个用户名。@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")% >

'输出返回值

//用户输入界面

请输入用户名和密码：

用户名:

密　码: