<!--#include file="incpublic.asp"-->
<!--#include file="incconn.asp"-->
<html>
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<judul></judul>
</kepala>
<tubuh>
<%
'--------------------------------------------------
redupkan sp_common
Setel sp_common = Server.CreateObject("ADODB.Command")
dengan sp_common
.ActiveConnection = samb
.CommandText = "cd_update_log"
.Parameters.Append .CreateParameter("@inputremark", adVarChar, adParamInput,50,"联通.Ye")
.Parameters.Tambahkan .CreateParameter("@msg", adInteger, adParamOutput)
.menjalankan
diakhiri dengan
pesan=sp_common("@pesan")
'--------------------------------------------------
respon.tulis "<hr>" & pesan
respon.end
Jika 1+1=3 maka
'----------------------------------Tabel
buat tabel CD_BILL_LOG
(
NOMOR TAGIHAN_ID,
DEAL_EMP_ID NOMOR,
REACH_DATE TANGGAL,
SELESAI_TANGGAL TANGGAL,
BILL_STATUS VARCHAR2(10),
DEAL_DEPT_ID NOMOR,
NOMOR TANDA,
KETERANGAN VARCHAR2(50)
)
;
'--------proc
membuat atau mengganti prosedur
cd_update_log(inputremark varchar2, pesan keluar float)
sebagai
mulai
perbarui cd_bill_log a
set a.remark =inputremark --to_char(sysdate,'mi:ss')
dimana a.bill_id=45;
pesan:=1;
melakukan;
akhir;
berakhir jika
%>
</tubuh>
</html>