频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组

ASP调用oracle存储过程

来源:yeorange 作者: 出处:巧巧读书 2006-03-19 进入讨论组

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

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>

URL查看 http://www.qqread.com/asp/n102894001.html 更多文章 更多内容请看存储过程网络存储—光纤通道Oracle 10g基础应用专题,或进入讨论组讨论。
收藏此文】【 】【打印】【关闭
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
巧巧读书宗旨
相关专题
讨论组问题推荐
站内各频道最新更新文档
站内最新制作专题
热门关键字导读
Photoshop教 程照片处理 照片制作 PS快捷键 抠图
计 算 机 故 障XP系统修复
艺 术 与 设 计设计 流媒体 设计欣赏 边框
计 算 机 安 全ARP
站内频道文章精选
巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章