asp 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

%>