Oracle開發之ASP調用oracle存儲過程

2024-08-29 13:32:23

字體：大中小

來源：轉載

供稿：網友

　　<!--#include file="incpublic.asp"-->
　　<!--#include file="incconn.asp"-->
　　
　　<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>