所属类别：Asp

文章作者：未知

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

ASP 调用 ORACLE存储过程并返回结果集看过网上好多ASP调用ORACLE的方法，但是没有特好特直接的东西，所以总结各家的东西最后得出的一个自己需要的方法，感觉也比较大众所以特此发布###################################################oracle的存储过程###################################################--创建包头create or replace package pck_asas type t_product_id is table of number index by binary_integer; type t_serial_no is table of varchar(300) index by binary_integer; type t_buy_date is table of date index by binary_integer; procedure allsfc ( product_id out t_product_id, serial_no out t_serial_no, buy_date out t_buy_date ); --procedure allsfc1;end pck_as;--创建包体create or replace package body pck_asas procedure allsfc ( product_id out t_product_id, serial_no out t_serial_no, buy_date out t_buy_date ) is cursor cur_sfc_tbl_product_reg is select product_id,serial_no,buy_date from sfc_tbl_product_reg; i number default 1; begin for onrecord in cur_sfc_tbl_product_reg loop product_id(i) := onrecord.product_id; serial_no(i) := onrecord.serial_no; buy_date(i) := onrecord.buy_date; i := i + 1; end loop; end;end;###################################################ASP的调用###################################################无标题文档<%dim str_oradim objconn_orastr_ora = "Driver={Microsoft ODBC for Oracle};Server=ora192;uid=dwuser;pwd=family.samsung.com.cn"set objconn_ora = server.CreateObject("adodb.connection")objconn_ora.connectionstring = str_oraobjconn_ora.CursorLocation = 3objconn_ora.opendim strsqlset rs1 = server.CreateObject("ADODB.RecordSet")strsql = "{call pck_as.allsfc({resultset 90000, product_id, serial_no, buy_date})}"set objcomm1 = server.CreateObject("adodb.command")objcomm1.activeconnection = objconn_oraobjcomm1.commandtype = 1objcomm1.commandtext = strsqlset rs1 = objcomm1.executewhile not rs1.eofresponse.Write(rs1(0) & "" & rs1(1) & "" & rs1(2) & "")rs1.movenextwend%>关闭本页

....