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

<Html>
　　<head>
　　<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
　　<title></title>
　　
　　</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;
　　
　　end if
　　%>
　　
　　</body>
　　</html>