asp调oracle存储过程,Oracle开发之ASP调用oracle存储过程

'-----------------------------------

dim sp_common

set sp_common = server.createobject("adodb.command")

with sp_common

.activeconnection = conn

.commandtext = "cd_update_log"

.parameters.append .createparameter("@inputremark", advarchar, adparaminput,50,"联通.ye")

.parameters.append .createparameter("@msg", adinteger, adparamoutput)

.execute

end with

msg=sp_common("@msg")

'-----------------------------------

response.write "

---

" & msg

response.end

if 1+1=3 then

'----------------------------------table

create table cd_bill_log

(

bill_id　　　number,

deal_emp_id　number,

reach_date　 date,

done_date　　date,

bill_status　varchar2(10),

deal_dept_id number,

sign　　　　 number,

remark　　　 varchar2(50)

)

;

'-----------------------proc

create or replace procedure

cd_update_log(inputremark varchar2,msg out float)

as

begin

update cd_bill_log a

set a.remark =inputremark　 --to_char(sysdate,'mi:ss')

where a.bill_id=45;

msg:=1;

commit;

end;

end if

%>