服务器维护网站维护数据维护系统安全配置
专业定制网站企业建站一条龙、软件定制开发、系统集成
稳定虚机备案一条龙，稳定快捷通道
服务理念诚信守诺客户至上专业精神专心贯注

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

作者：黑客防线网安Oracle维护基地来源：黑客防线网安Oracle维护基地浏览次数：0

黑客防线网安网讯：　 　　　　　　<html>　　<head>　　<meta http-equiv="Content-Type" content="text/html; charset=gb2312">　...

<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>

黑客防线网安服务器维护方案本篇连接：http://www.rongsen.com.cn/show-12810-1.html

网站维护教程更新时间:2012-03-23 00:46:13 【打印此页】【关闭】