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

”/“新建数据链接”；

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。

Create Procedure Returnemploy

AS

select emp_id, fname from employee

If Exists(Select fname From employee Where fname=''''Margaret'''')

Return(1)

Else

Return(0)

例wuf73.asp

% @LANGUAGE = VBScript %>

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

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

% '''' wuf73.asp

Dim cmdTest, prmTest, rsTest

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

cmdTest.ActiveConnection = Cnn

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

cmdTest.CommandType = adCmdStoredProc


Set prmTest = cmdTest.CreateParameter("ReturnValue",adInteger,adParamReturnValue)

cmdTest.Parameters.Append prmTest


Set rsTest = cmdTest.Execute()

While Not rsTest.EOF

Response.Write rsTest(0) & " ][ " & rsTest(1) & " "

rsTest.MoveNext

Wend

rsTest.Close: Set rsTest = Nothing

''''返回 cmdtest("ReturnValue") 之前,必须先关闭rsTest, 否则结果错误


If cmdtest("ReturnValue") = 1 Then

Response.Write "有该雇员"

Else

Response.Write "无该雇员"

End If


Cnn.close

Set prmTest = Nothing

Set cmdTest = Nothing: Set Cnn = Nothing

%>


三、如何处理大数据

这里的“大数据”主要是指Text（大文本）和im