ASP调用oracle存储过程

　2005-10-11 10:33:11　来源：WEB开发网　　　

核心提示：<html><head><meta http-equiv="Conten

</head>

<body>
<%
'-----------------------------------
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 "<hr>" & 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;