ASP memanggil prosedur tersimpan ORACLE dan mengembalikan kumpulan hasil.
Saya telah melihat banyak metode di Internet untuk ASP memanggil ORACLE, tetapi tidak ada yang langsung, jadi saya merangkum hal-hal dari masing-masing perusahaan dan akhirnya menemukan metode yang saya gunakan. perlu. Saya rasa ini lebih populer, jadi ini caranya rilis
################################ ################ ##
prosedur tersimpan Oracle
################################################## #
- -Buat tajuk
buat atau ganti paket pck_as
sebagai
ketik t_product_id adalah tabel angka
indeks berdasarkan biner_integer;
ketik t_serial_no adalah tabel varchar(300)
indeks berdasarkan biner_integer;
ketik t_buy_date adalah tabel tanggal
indeks berdasarkan biner_integer;
prosedur allsfc
(
id_produk keluar t_id_produk,
serial_tidak keluar t_serial_tidak,
tanggal_pembelian keluar tanggal_pembelian
);
--prosedur semuasfc1;
akhir pck_as;
--Buat badan paket
buat atau ganti badan paket pck_as
sebagai
prosedur allsfc
(
id_produk keluar t_id_produk,
serial_tidak keluar t_serial_tidak,
tanggal_pembelian keluar tanggal_pembelian
)
adalah
kursor cur_sfc_tbl_product_reg adalah
pilih product_id,serial_no,buy_date dari sfc_tbl_product_reg;
saya nomor default 1;
mulai
untuk dicatat di cur_sfc_tbl_product_reg
lingkaran
product_id(i) := pada catatan.product_id;
serial_no(i) := pada catatan.serial_no;
tanggal_beli(i) := pada catatan.tanggal_beli;
saya := saya + 1;
putaran akhir;
akhir;
akhir;
################################################## #
panggilan ASP
################################################## #
<html>
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<title>Dokumen Tanpa Judul</title>
</kepala>
<tubuh>
<%
redupkan str_ora
redupkan objconn_ora
str_ora = "Driver={Microsoft ODBC untuk Oracle};Server=ora192;uid=dwuser;pwd=family.samsung.com.cn"
setel objconn_ora = server.CreateObject("adodb.koneksi")
objconn_ora.connectionstring = str_ora
objconn_ora.CursorLocation = 3
objconn_ora.buka
redup strsql
setel rs1 = server.CreateObject("ADODB.RecordSet")
strsql = "{panggil pck_as.allsfc({resultset 90000, product_id, serial_no, buy_date})}"
setel objcomm1 = server.CreateObject("adodb.command")
objcomm1.activeconnection = objconn_ora
objcomm1.commandtype = 1
objcomm1.commandtext = strsql
setel rs1 = objcomm1.eksekusi
sementara bukan rs1.eof
respon.Tulis(rs1(0) & "|" & rs1(1) & "|" & rs1(2) & "|<BR>")
rs1.movenext
pergi ke
%>
</tubuh>
</html>