Sebagai seorang programmer, saya percaya bahwa setiap orang memiliki perpustakaan fungsi dan perpustakaan kelas sendiri. Saat mengerjakan sebuah proyek, ekstrak fungsi dan kelas yang diinginkan dari perpustakaan. Ini dapat meningkatkan efisiensi pengembangan. Kelas di Perpustakaan Kelas ASP Khusus CJJ
Salinan kode adalah sebagai berikut:
'--- ********************* Tconnstring ********************************** ---
'Struktur string koneksi database
Classtconnstring
Publicdbname, dbpath, dbserver, dbuser, dbpass, dbtype
Endclass
'--- ********************* Tconnstring ********************************** ---
'--- ************************ TDBOPATER ************************************ ---
'Kelas Operasi Database Umum
Classtdboperate
Privatecls_oconn, objek koneksi privat kelas CLS_ORS, Objek Recordset
Privatecls_serrinfo, cls_sconn, cls_ssql, cls_surl, cls_sformaction
Privatecls_ipagesize 'jumlah halaman
Privatecls_ltotalpage, cls_ltotalrecord, cls_lpageno
'Inisialisasi kelas
Privatesubclass_initialize ()
Endsub
'*******************************************
'Jenis: Properti
'Tujuan: Buat koneksi database berdasarkan ConnectionString yang diperoleh
'Input: a_sconn: string tipe data
'Return: Tidak ada
'*******************************************
PublicPropertyletSetConn (A_SConn)
DimsObjType
sobjtype = lcase (typename (a_sconn))
Ifsobjtype <> "string" lalu
cls_serrinfo = cls_serrinfo & "<li> setConn: parameter string ilegal </li>" & chr (10)
Exitproperty
Endif
Setcls_oconn = createObject ("adodb.connection")
OnerrorresumeNext
cls_oconn.opena_sconn