关于asp调用oracle存储过程的问题

关注

原创最新推荐文章于 2021-08-05 20:10:53 发布 1.4k 阅读 AI 写同款· GEO 优化 ›

魔百和CM211-1刷Armbian全流程：从安卓盒子到Linux服务器的完美变身本文详细介绍了如何将魔百和CM211-1机顶盒刷入Armbian系统，实现从安卓盒子到Linux服务器的完美变身。涵盖硬件兼容性验证、固件选择、刷机流程、系统优化及常见问题解决，特别适合技术爱好者低成本搭建家庭NAS或开发环境。阅读详情

关于asp调用oracle存储过程的问题

oracle存储过程如下

create or replace procedure PROC_GIFT_TEST(v_charge out varchar2)
is

begin
  select mame into v_charge from gift_type where gift_id=1001 ;
end PROC_GIFT_TEST;

在PL/SQL中测试返回:

sql>variable aaa varchar2(100);
sql>exec proc_gift_test(:aaa);

PL/SQL procedure successfully completed
aaa
---------
奖励

sql>print aaa;

aaa
---------
奖励

asp中调用脚本（adovbs.inc已包含在asp中）
〈%
Dim aaa

set theconn=server.createobject("adodb.connection")
connstr="Provider=OraOLEDB.Oracle;data source=ora;user id=gift;password=gift;"

theconn.open connstr

set cmd=server.createobject("adodb.command")
cmd.activeconnection=theconn
CMD.CommandType=4

cmd.commandtext="PROC_GIFT_TEST"
cmd.parameters.append cmd.createparameter(v_charge,adVarChar,AdParamOutput,100)


cmd.execute ,,adExecuteNoRecords

aaa=cmd.parameters(v_charge)

CMD.ActiveConnection=Nothing
set cmd=nothing

theconn.close
  %〉

现在我的目的是通过asp将proc_gift_test过程的输出参数送到变量aaa中（得到aaa=奖励），在调试aaa=cmd.parameters(v_charge)时，老是出错，提示：

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Command 错误 '800a0cc1'

项目在所需的名称或序数中未被发现。

/out.asp，行30

请教高手，我该如何操作该过程的输出参数应用到asp中来，急求赐教。谢谢！！！