几例在ASP存储过程的使用方法(4)

3．使用VB6.0，打开菜单“视图”/“数据视图窗口”后，右键单击“数据链接”/“新建数据链接”；

4．使用ASP脚本创建存储过程，例wuf75.asp：

% @LANGUAGE = VBScript %>

!--#include file="AdoSQL7.asp"-->

!--#include file="adovbs.inc"-->

% '' wuf75.asp

Dim StrSQL

''注: & Chr(10) & Chr(13) 完全可以不要, 主要是为了好看

StrSQL="CREATE PROCEDURE OUTemploy ( @job_lvl tinyint OUTPUT, " & Chr(10) & Chr(13) &_

"@hire_date1 datetime, @hire_date2 datetime) AS " & Chr(10) & Chr(13) &_

"select @job_lvl = MAX(job_lvl) from employee " &_

"where hire_date >= @hire_date1 and hire_date = @hire_date2"


Cnn.Execute StrSQL

Response.Write "创建存储过程成功"

Cnn.close: Set Cnn = Nothing

%>

存储过程创建后，除了使用菜单，你还可以使用SQL语句“Drop Procedure OUTemploy”删除它。

例wuf72.asp – 把所需要的输入参数送入存储过程并取得输出结果。

% @LANGUAGE = VBScript %>

!--#include file="AdoSQL7.asp"-->

!--#include file="adovbs.inc"-->

% '' wuf72.asp

Dim cmdTest, prmTest

Set cmdTest = Server.CreateObject("ADODB.Command")

cmdTest.ActiveConnection = Cnn

cmdTest.CommandText = "OUTemploy" ''存储过程名

cmdTest.CommandType = adCmdStoredProc


''创建 Parameter 对象

Set prmTest = cmdTest.CreateParameter("job_lvl",adTinyInt,adParamOutput)

cmdTest.Parameters.Append prmTest

''adTinyInt - 1 字节带符号整型 

''adDbDate - 日期值 (yyyymmdd)


Set prmTest = cmdTest.CreateParameter("hiredate1",adDBDate,adParamInput,,"1993-05-09")

cmdTest.Parameters.Append prmTest


Set prmTest = cmdTest.CreateParameter("hiredate2",adDBDate,adParamInput,,"1994-02-01")

cmdTest.Parameters.Append prmTest


cmdTest.Execute

‘下面三种表达方式意思一样

Response.Write cmdtest("job_lvl") & " "

Response.Write cmdTest.Parameters("job_lvl") & " "

Response.Write cmdTest.Parameters("job_lvl").Value


Cnn.close

Set prmTest = Nothing

Set cmdTest = Nothing: Set Cnn = Nothing

%>

（三）使用返回代码参数

用Return语句可以从存储过程返回不同的返回代码，如下面存储过程先取得一个记录集，然后，若有叫Margaret的雇员则返回1，否则返回0。