建立表：

    SQL〉  create table CD_BILL_LOG
      2   (
      3     BILL_ID      NUMBER,
      4     DEAL_EMP_ID  NUMBER,
      5     REACH_DATE   DATE,
      6     DONE_DATE    DATE,
      7     BILL_STATUS  VARCHAR2(10),
      8     DEAL_DEPT_ID NUMBER,
      9     SIGN         NUMBER,
     10     REMARK       VARCHAR2(50)
     11   )
     12  ;

    建立过程：

    SQL〉 create or replace procedure
      2  cd_update_log(inputremark varchar2,msg out float)
      3   as
      4   begin
      5
      6     update cd_bill_log a
      7     set a.remark =inputremark   --to_char(sysdate,’mi:ss’)
      8     where a.bill_id=45;
      9      msg:=1;
     10     commit;
     11  end;

    调用过程：

    〈%@ LANGUAGE=“Javascript“%〉
    〈%
    var conn = Server.CreateObject(“ADODB.Connection“);
    conn.Open(“sczbo“,“sczb“,“sczb“);
    var sp_common= Server.CreateObject(“ADODB.Command“);
    var rs = Server.CreateObject(“ADODB.Recordset“);
    conn.CursorLocation =3;

    sp_common.CommandText = “cd_update_log“;
    sp_common.CommandType = 4;

    var para1=sp_common.CreateParameter(“inputremark“, 129,1,50,“联通“);
    sp_common.Parameters.Append(para1);
    var para2=sp_common.CreateParameter(“msg“, 3, 2);
    sp_common.Parameters.Append(para2);
    sp_common.activeConnection=conn;
    sp_common.execute;
    var msg=sp_common(“msg“);
    Response.write( msg);
    Response.end;
    %〉