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

最新推荐文章于 2024-04-11 17:11:33 发布

fjnu105022004005

最新推荐文章于 2024-04-11 17:11:33 发布

阅读量567

点赞数

分类专栏： Oracle 文章标签： oracle asp 存储 date google file

Oracle 专栏收录该内容

133 篇文章 0 订阅

订阅专栏

来源：网络/责编：编程入门作者：不详
<script src="http://www.bianceng.cn/js1/468.js"></script>

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