ASP调用带参数存储过程的几种方式

最新推荐文章于 2022-02-09 15:50:25 发布
最新推荐文章于 2022-02-09 15:50:25 发布
阅读量462 收藏
点赞数
分类专栏： ASP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/dongzi502/article/details/18313213
版权
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程序如下：

<%@  Language=VBScript  %>

<%

Dim  CmdSP

Dim  adoRS

Dim  adCmdSPStoredProc

Dim  adParamReturnValue

Dim  adParaminput

Dim  adParamOutput

Dim  adInteger

Dim  iVal

Dim  oVal

Dim  adoField

Dim  adVarChar

‘这些值在  VB  中是预定义常量，可以直接调用，但在  VBScript  中没有预定义

adCmdSPStoredProc  =  4

adParamReturnValue  =  4

adParaminput  =  1

adParamOutput  =  2

adInteger  =  3

adVarChar  =  200

iVal  =  5

oVal  =  3

'建一个command对象

set  CmdSP  =  Server.CreateObject("ADODB.Command")

'建立连结

CmdSP.ActiveConnection  =  "Driver={SQL  Server};server=(local);Uid=sa;Pwd=;Database=Pubs"

'定义command  对象调用名称 

CmdSP.CommandText  =  "sp_PubsTest"
  • 作者：218.241.229.*

 

2

ASP调用带参数存储过程的几种方式


'设置command调用类型是存储过程  (adCmdSPStoredProc  =  4)

CmdSP.CommandType  =  adCmdSPStoredProc

'往command  对象中加参数

'定义存储过程有直接返回值，并且是个整数，省缺值是4

CmdSP.Parameters.Append  CmdSP.CreateParameter("RETURN_VALUE",  adInteger,  adParamReturnValue,  4)

'定义一个字符型输入参数

CmdSP.Parameters.Append  CmdSP.CreateParameter("@au_lname",  adVarChar,  adParaminput,  20,  "M")

'定义一个整型输入参数

CmdSP.Parameters.Append  CmdSP.CreateParameter("@intID",  adInteger,  adParamInput,  ,  iVal)

'定义一个整型输出参数

CmdSP.Parameters.Append  CmdSP.CreateParameter("@intIDOut",  adInteger,  adParamOutput,  oVal)

'运行存储过程，并得到返回记录集

Set  adoRS  =  CmdSP.Execute

'把每个记录打印出来，其中的字段是虚拟的，可以不用管

While  Not  adoRS.EOF

for  each  adoField  in  adoRS.Fields

Response.Write  adoField.Name  &  "="  &  adoField.Value  &  "<br>"  &  vbCRLF

Next

Response.Write  "<br>"

adoRS.MoveNext

Wend

'打印两个输出值：

Response.Write  "<p>@intIDOut  =  “  &  CmdSP.Parameters("@intIDOut").Value  &  "</p>"

Response.Write  "<p>Return  value  =  "  &  CmdSP.Parameters("RETURN_VALUE").Value  &  "</p>"

'大扫除

Set  adoRS  =  nothing

Set  CmdSP.ActiveConnection  =  nothing

Set  CmdSP  =  nothing

%>

此外还有其他方式，稍微偏门一些，以后慢慢再说
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程序如下：

<%@  Language=VBScript  %>

<%

Dim  CmdSP

Dim  adoRS

Dim  adCmdSPStoredProc

Dim  adParamReturnValue

Dim  adParaminput

Dim  adParamOutput

Dim  adInteger

Dim  iVal

Dim  oVal

Dim  adoField

Dim  adVarChar

‘这些值在  VB  中是预定义常量，可以直接调用，但在  VBScript  中没有预定义

adCmdSPStoredProc  =  4

adParamReturnValue  =  4

adParaminput  =  1

adParamOutput  =  2

adInteger  =  3

adVarChar  =  200

iVal  =  5

oVal  =  3

'建一个command对象

set  CmdSP  =  Server.CreateObject("ADODB.Command")

'建立连结

CmdSP.ActiveConnection  =  "Driver={SQL  Server};server=(local);Uid=sa;Pwd=;Database=Pubs"

'定义command  对象调用名称 

CmdSP.CommandText  =  "sp_PubsTest"
  • 作者：218.241.229.*

 

2

ASP调用带参数存储过程的几种方式


'设置command调用类型是存储过程  (adCmdSPStoredProc  =  4)

CmdSP.CommandType  =  adCmdSPStoredProc

'往command  对象中加参数

'定义存储过程有直接返回值，并且是个整数，省缺值是4

CmdSP.Parameters.Append  CmdSP.CreateParameter("RETURN_VALUE",  adInteger,  adParamReturnValue,  4)

'定义一个字符型输入参数

CmdSP.Parameters.Append  CmdSP.CreateParameter("@au_lname",  adVarChar,  adParaminput,  20,  "M")

'定义一个整型输入参数

CmdSP.Parameters.Append  CmdSP.CreateParameter("@intID",  adInteger,  adParamInput,  ,  iVal)

'定义一个整型输出参数

CmdSP.Parameters.Append  CmdSP.CreateParameter("@intIDOut",  adInteger,  adParamOutput,  oVal)

'运行存储过程，并得到返回记录集

Set  adoRS  =  CmdSP.Execute

'把每个记录打印出来，其中的字段是虚拟的，可以不用管

While  Not  adoRS.EOF

for  each  adoField  in  adoRS.Fields

Response.Write  adoField.Name  &  "="  &  adoField.Value  &  "<br>"  &  vbCRLF

Next

Response.Write  "<br>"

adoRS.MoveNext

Wend

'打印两个输出值：

Response.Write  "<p>@intIDOut  =  “  &  CmdSP.Parameters("@intIDOut").Value  &  "</p>"

Response.Write  "<p>Return  value  =  "  &  CmdSP.Parameters("RETURN_VALUE").Value  &  "</p>"

'大扫除

Set  adoRS  =  nothing

Set  CmdSP.ActiveConnection  =  nothing

Set  CmdSP  =  nothing

%>

此外还有其他方式，稍微偏门一些，以后慢慢再说
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程序如下：

<%@  Language=VBScript  %>

<%

Dim  CmdSP

Dim  adoRS

Dim  adCmdSPStoredProc

Dim  adParamReturnValue

Dim  adParaminput

Dim  adParamOutput

Dim  adInteger

Dim  iVal

Dim  oVal

Dim  adoField

Dim  adVarChar

‘这些值在  VB  中是预定义常量，可以直接调用，但在  VBScript  中没有预定义

adCmdSPStoredProc  =  4

adParamReturnValue  =  4

adParaminput  =  1

adParamOutput  =  2

adInteger  =  3

adVarChar  =  200

iVal  =  5

oVal  =  3

'建一个command对象

set  CmdSP  =  Server.CreateObject("ADODB.Command")

'建立连结

CmdSP.ActiveConnection  =  "Driver={SQL  Server};server=(local);Uid=sa;Pwd=;Database=Pubs"

'定义command  对象调用名称 

CmdSP.CommandText  =  "sp_PubsTest"
  • 作者：218.241.229.*

 

2

ASP调用带参数存储过程的几种方式


'设置command调用类型是存储过程  (adCmdSPStoredProc  =  4)

CmdSP.CommandType  =  adCmdSPStoredProc

'往command  对象中加参数

'定义存储过程有直接返回值，并且是个整数，省缺值是4

CmdSP.Parameters.Append  CmdSP.CreateParameter("RETURN_VALUE",  adInteger,  adParamReturnValue,  4)

'定义一个字符型输入参数

CmdSP.Parameters.Append  CmdSP.CreateParameter("@au_lname",  adVarChar,  adParaminput,  20,  "M")

'定义一个整型输入参数

CmdSP.Parameters.Append  CmdSP.CreateParameter("@intID",  adInteger,  adParamInput,  ,  iVal)

'定义一个整型输出参数

CmdSP.Parameters.Append  CmdSP.CreateParameter("@intIDOut",  adInteger,  adParamOutput,  oVal)

'运行存储过程，并得到返回记录集

Set  adoRS  =  CmdSP.Execute

'把每个记录打印出来，其中的字段是虚拟的，可以不用管

While  Not  adoRS.EOF

for  each  adoField  in  adoRS.Fields

Response.Write  adoField.Name  &  "="  &  adoField.Value  &  "<br>"  &  vbCRLF

Next

Response.Write  "<br>"

adoRS.MoveNext

Wend

'打印两个输出值：

Response.Write  "<p>@intIDOut  =  “  &  CmdSP.Parameters("@intIDOut").Value  &  "</p>"

Response.Write  "<p>Return  value  =  "  &  CmdSP.Parameters("RETURN_VALUE").Value  &  "</p>"

'大扫除

Set  adoRS  =  nothing

Set  CmdSP.ActiveConnection  =  nothing

Set  CmdSP  =  nothing

%>

此外还有其他方式，稍微偏门一些，以后慢慢再说
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程序如下：
<%@ Language=VBScript %>
<%
Dim CmdSP
Dim adoRS
Dim adCmdSPStoredProc
Dim adParamReturnValue
Dim adParaminput
Dim adParamOutput
Dim adInteger
Dim iVal
Dim oVal
Dim adoField
Dim adVarChar
‘这些值在 VB 中是预定义常量，可以直接调用，但在 VBScript 中没有预定义
adCmdSPStoredProc = 4
adParamReturnValue = 4
adParaminput = 1
adParamOutput = 2
adInteger = 3
adVarChar = 200
iVal = 5
oVal = 3
'建一个command对象
set CmdSP = Server.CreateObject("ADODB.Command")
'建立连结
CmdSP.ActiveConnection = "Driver={SQL Server};server=(local);Uid=sa;Pwd=;Database=Pubs"
'定义command 对象调用名称 
CmdSP.CommandText = "sp_PubsTest"        2 ASP调用带参数存储过程的几种方式  '设置command调用类型是存储过程 (adCmdSPStoredProc = 4)
CmdSP.CommandType = adCmdSPStoredProc
'往command 对象中加参数
'定义存储过程有直接返回值，并且是个整数，省缺值是4
CmdSP.Parameters.Append CmdSP.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 4)
'定义一个字符型输入参数
CmdSP.Parameters.Append CmdSP.CreateParameter("@au_lname", adVarChar, adParaminput, 20, "M")
'定义一个整型输入参数
CmdSP.Parameters.Append CmdSP.CreateParameter("@intID", adInteger, adParamInput, , iVal)
'定义一个整型输出参数
CmdSP.Parameters.Append CmdSP.CreateParameter("@intIDOut", adInteger, adParamOutput, oVal)
'运行存储过程，并得到返回记录集
Set adoRS = CmdSP.Execute
'把每个记录打印出来，其中的字段是虚拟的，可以不用管
While Not adoRS.EOF
for each adoField in adoRS.Fields
Response.Write adoField.Name & "=" & adoField.Value & "<br>" & vbCRLF
Next
Response.Write "<br>"
adoRS.MoveNext
Wend
'打印两个输出值：
Response.Write "<p>@intIDOut = “ & CmdSP.Parameters("@intIDOut").Value & "</p>"
Response.Write "<p>Return value = " & CmdSP.Parameters("RETURN_VALUE").Value & "</p>"
'大扫除
Set adoRS = nothing
Set CmdSP.ActiveConnection = nothing
Set CmdSP = nothing
%>
鑫诚工作室
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
[转]editor.js或editor.asp等网页…
dongzi502的专栏
01-15 524
网上很快有了原因分析及解决方法，原因是IE8中不支持“anonymous()”方法，于是网上能大量搜索到解决的办法，将anonymous()改为onclick(event)，在IE8中便可正常使用，但在老版本的IE中便不能使用，然后就有人增加了版本判断，以下代码开始流行： if (element.YUSERONCLICK) eval_r(element.YUSERONCLICK + "anony
asp执行带参数的sql语句实例
10-25
主要介绍了asp执行带参数的sql语句实例,参数化SQL语句可以有效的防止SQL注入漏洞,需要的朋友可以参考下
老大说不要在项目中使用存储过程
热门推荐
陈哈哈的菜园子
02-09 1万+
作为技术人，我不愿看到因为xxx问题而直接拒接xxx技术这种情况，该篇文章是网上多方技术人针对“存储过程到底是值不值得用”这个问题的一些见解
ASP.NET页面之间传递值的几种方式
ba_wang_mao的专栏
06-22 6361
页面传值是学习asp.net初期都会面临的一个问题，总的来说有页面传值、存储对象传值、ajax、类、model、表单等。但是一般来说，常用的较简单有QueryString，Session，Cookies，Application，Server.Transfer。 　一、QueryString 　　QueryString是一种非常简单的传值方式，他可以将传送的值显示在浏览器的地址栏中。如果是传递一个或多个安全性要求不高或是结构简单的数值时，可以使用这个方法。但是对于传递数组或对象的话，就不能...
在ASP中调用存储过程的几种方法
01-02
1 这也是最简单的方法,两个输入参数，无返回值： set connection = server.createobject(“adodb.connection”) connection.open someDSN Connection.Execute “procname varvalue1, varvalue2” ‘将所有...
在Asp中调用存储过程的几种方法.doc
02-15
经验,不是什么优秀的东西,自己觉得不错,反正免费,请大家看看,顺便打个分!
Asp.Net分页和AspNetPager控件的使用
01-20
下面就来重点说说这几种分页方式： 一般情况下我们都是通过sql语句来分页，这在无论哪种开发语音都是通用的， 使用sql语句或者存储过程分页的方式最主要的是要在读取数据的时候把sql语句或者存储过程写好，它的原理...
ASP 查询数据库 等待状态显示
dongzi502的专栏
01-15 723
Response.Buffer = True Response.Write "正在努力获取中,请稍候!!!!" Response.Flush '输出部分内容 rs.open strSql,Conn134,1,1 Response.Write "document.getElementById('wait').style.display='none';"
ASP类型转换提示无效使用 Null
dongzi502的专栏
01-15 593
在asp中进行类型转换时，如读取数据库中的数据，对某一列进行转换，此列数据没有初始化值，则使用cdbl，cint等函数对此列信息类型进行转换时，会出现“无效使用 Null”的错误，有2中解决办法。 第一种，使用isnull函数判断下列是否为null，如果为null则不能进行转换。 +展开 -VBScript       num=0       if not isnull(rs("num")
Asp 下拉框 onChange 事件
dongzi502的专栏
01-15 540
下拉框 onChange="showmoney(this.options[this.options.selectedIndex].value)" function KJLXChange(selectedindex) {   if ((selectedindex==1) || (selectedindex==2))   {  document.getElementByIdx_x("jianshu"
网页回车换行　显示的字符串
dongzi502的专栏
01-15 519
ASP：　response.write("sss"&chr(13)&chr(10)&"dddd") 显示结果为： sss dddd
asp去除所有的超级链接的两种方法&…
dongzi502的专栏
01-15 515
'****************************** '函数：RemoveHref_A(HTMLstr) '参数：HTMLstr，待去除链接的字符串 '作者：阿里西西 '日期：2007/7/12 '描述：去除字符串中所有的超级链接 '示例：测试")百分号> '****************************** Function RemoveHref_A(HTMLstr) Dim
1.简述互联网作为全球信息系统的三大特征。 2．简述ASP过程调用的几种途径。 3．列举ASP中的几个常用内建对象。 4．简述ODBC规范的作用和意义。 5．简述客户在项目小组中可能扮演的角色。 6．比较DHTML与HTML的异同并列举DHTML的构成技术。 7．用HTML语言建立一个简单的网页，使之在IE浏览器中显示效果如下图所示，标题为 “调查”。其中，动物园的链接网址为www.zoo.com.cn。输入框要求为9行，字符宽度为60，提交按钮无须和数据库连接。
最新发布
05-28
2. ASP过程调用的几种途径包括：页面调用、组件调用、WebService调用和命令行调用。页面调用指的是在ASP页面中直接调用过程；组件调用指的是在ASP页面中实例化COM组件，并调用其中的过程；WebService调用指的是通过...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值