This Domain(Admin5.com) is for Sale:

ASP调用oracle数据库存储过程

时间:2007-12-23  来源:不详  作者:迈克DB
<!--#include file="inc\public.asp"-->

<!--#include file="inc\conn.
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 内容来自dedecms

response.endIf 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>

  

看完这篇,您有何感觉呢?

文章评论

共有位Admini5网友发表了评论 查看完整内容

24小时热门信息