Untuk raksasa Oracle, Asp benar-benar siap digunakan. Apalagi dalam hal mengembalikan suatu hasil yang ditetapkan (Recordset), membuat banyak orang kesulitan. Setelah eksplorasi dan latihan, saya menulis solusi saya sendiri di bawah ini:
menjelaskan:
Versi klien Oracle saya adalah Oracle 9i. Saat menginstal klien, Anda tidak dapat menggunakan instalasi default. Anda harus menyesuaikannya, lalu memilih semua konten terkait OLEDB dan menginstalnya Penyedia di bawah ini.
Copy kode kodenya sebagai berikut:
<%@Bahasa=VBSCRIPT Halaman Kode=936 LCID=2052%>
<%Opsi Eksplisit%>
<!-- #sertakan file=../adovbs.inc -->
<%
Redupkan cnOra
Fungsi Connect2OracleServer
Kontras redup
conStr = Penyedia=MSDAORA.Oracle;Sumber Data=xx;Id Pengguna=?;Kata Sandi=?
Setel cnOra = Server.CreateObject(ADODB.Connection)
cnOra.CursorLocation = adUseClient '=3
Pada Kesalahan Lanjutkan Berikutnya
cnOra.Buka konStr
Connect2OracleServer = (Err.Nomor = 0)
Fungsi Akhir
Sub DisconnectFromOracleServer
Jika Bukan cnOra Bukan Apa-apa, Maka
Jika cnOra.State = 1 Maka
cnOra.Tutup
Akhiri Jika
Setel cnOra = Tidak Ada
Akhiri Jika
Akhiri Sub
Sub Gema(str)
Respon.Tulis(str)
Akhiri Sub
Sub Hasil Keluaran
Redupkan cmdOra
Redup
Setel cmdOra = Server.CreateObject(ADODB.Command)
Dengan cmdOra
.CommandType = adCmdText '=1
.CommandText = {panggil PKG_TEST.GetItem(?,?)}
.Parameters.Tambahkan cmdOra.CreateParameter(p1, adNumeric, adParamInput, 10, 1)
.Parameters.Tambahkan cmdOra.CreateParameter(p2, adVarChar, adParamInput, 10, xx)
.ActiveConnection = cnOra
Setel rs = cmdOra.Jalankan
Jika Bukan rs.Eof Lalu
Meskipun Bukan rs.Eof
Gema rs(0)
Gema --
Gema rs(1)
Gema <br>
rs.MoveNext
Pergi ke
rs.Tutup
Akhiri Jika
Setr=Tidak ada
Setel cmdOra = Tidak Ada
Akhiri Dengan
Putuskan SambunganDariOracleServer
Akhiri Sub
Jika Connect2OracleServer Lalu
Hasil Keluaran
Kalau tidak
Respon.Tulis(Err.Deskripsi)
Akhiri Jika
%>
Berikut ini adalah skrip sql Oracle
--------------------Skrip SQL---------- ---- ----------------------
--Bangun paket---------------------------------
Copy kode kodenya sebagai berikut:
Buat Atau Ganti Paket PKG_TEST
ADALAH
JENIS rfcTest ADALAH KURSOR REF;
PROSEDUR DAPATKAN
( p1 DALAM NOMOR,
p2 DI VARCHAR2,
p3 KELUAR Uji rfc
);
AKHIR; -- Spesifikasi Paket PKG_TEST
--------------------------------------------------- -
--Membangun badan paket -----------------------------------
Buat Atau Ganti Badan Paket PKG_TEST
ADALAH
PROSEDUR DAPATKAN
( p1 DALAM NOMOR,
p2 DI VARCHAR2,
p3 KELUAR Uji rfc
)
ADALAH
MULAI
BUKA p3 UNTUK
PILIH * DARI nama tabel WHERE id = p1 DAN nama=p2 DAN nomor baris < 10;
PENGECUALIAN
KETIKA ORANG LAIN LALU
BATAL;
AKHIR;
AKHIR; -- Badan Paket PKG_TEST