Source: Network/Editor: getting started with programming: Unknown
<! -- # 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, "Unicom. Ye ")
. Parameters. append. createparameter ("@ MSG", adinteger, adparamoutput)
. Execute
End
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
Set a. remark = inputremark -- to_char (sysdate, 'mi: ss ')
Where a. bill_id = 45;
MSG: = 1;
Commit;
End;
End if
%>
</Body>
</Html>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
