<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Kelas operasi basis data
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'Nama: Class_DBPerate
'Versi: 0.2
'Penulis: qihangnet
'Pembaruan: 14 Juni 2005
'Fungsi : Menyederhanakan proses pengoperasian database
'Otorisasi: Gratis untuk digunakan
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Kelas Class_DBOperate
'************ * **************************
'Definisi variabel
'***************************************
'Conn ---------- objek koneksi database
'Conn_Str ------ String koneksi database
Private Conn,Conn_Str
'********************************** ** ***
'Inisialisasi/penghentian instans
'************************************
Sub Pribadi Class_Initialize()
Setel Koneksi = Server.CreateObject("ADODB.Connection")
Akhiri Sub
Privat Sub Class_Teriminate()
SetConn=Tidak ada
Akhir Sub
'************************************
'milik
'***************************************
'String koneksi basis data keluaran
'Jenis nilai kembalian:
properti string Dapatkan ConnectString
ConnectString = Sambungan_Str
Properti Akhir
'Atur string koneksi database (string koneksi database)
' Parameter: str --- string
Properti Biarkan ConnectString(str)
Sambungan_Str = str
Properti Akhir
'************************************
'peristiwa
'***************************************
'Database terbuka
Sub Publik DB_Open() .
Sambungan.ConnectionString = Sambungan_Str
Sambungan Terbuka
Akhir Sub
'Database ditutup
Sub Publik DB_Close()
Sambungan Tutup
Akhir Sub
'************************************
'metode
'***************************************
'Permintaan basis data (pernyataan sql)
'Parameter dan kategori: sql ---- string
'Jenis nilai pengembalian: kumpulan rekaman
' Prasyarat: Status database terbuka
Public Function DB_Select(sql)
Setel DB_Select = Sambungan.Eksekusi(sql)
Fungsi Akhir
'Eksekusi basis data (pernyataan SQL)
'Parameter dan kategori: sql ---- string
'Jenis nilai pengembalian: bilangan bulat
'Arti nilai kembalian: jumlah baris yang terpengaruh
' Prasyarat: Status database terbuka
Public Function DB_Excute(sql)
Redupkan rs_affected
Sambungan.Jalankan sql,rs_affected
DB_Excute = rs_terpengaruh
Fungsi Akhir
Kelas Akhir
%>