Faktanya, yang paling dikhawatirkan semua orang saat menulis program ASP adalah informasi koneksi database akan dilihat oleh sebagian orang dan menyebabkan kerusakan. Selanjutnya kita menggunakan vb6.0 untuk membuat perpustakaan tautan dinamis (.dll) untuk menyembunyikan informasi koneksi database.
Mulai vb6.0, buat baru -> proyek dll aktif. Klik "Proyek"-->Referensi dan pilih "Perpustakaan Objek Halaman Server Aktif Microsoft"
dan "perpustakaan objek data microsoft activeX 2.1" dua item. Ubah nama modul kelas menjadi dcss. Ubah nama proyek menjadi yygwy. Simpan file proyek yygwy.vbp dan file kelas dcss.cls.
Tulis di dcss.cls:
Konteks myscripting pribadi Sebagai ScriptingContext
Aplikasi pribadi saya Sebagai Aplikasi
Permintaan pribadi saya Sebagai Permintaan
Respons pribadi saya Sebagai Respons
Server saya pribadi Sebagai Server
Sesi pribadi Sebagai Sesi
Sub Publik di halaman awal (passscriptingcontext As ScriptingContext)
Setel myscriptingcontext = passscriptingcontext
Setel aplikasi saya = konteks skrip saya.Aplikasi
Setel permintaan saya = konteks skrip saya.Permintaan
Setel respons saya = konteks skrip saya.Respon
Setel server saya = konteks skrip saya.Server
Setel mysession = myscriptingcontext.Session
Akhiri Sub
Publik Sub di halaman akhir()
Setel myscriptingcontext = Tidak Ada
Setel aplikasi saya = Tidak ada
Setel permintaan saya = Tidak ada
Setel tanggapan saya = Tidak ada
Setel server saya = Tidak ada
Tetapkan sesi saya = Tidak ada
End Sub
'Pernyataan di atas wajib diisi.
'Tentukan dua fungsi publik
Fungsi Publik rsresult(strsql As String) Sebagai Recordset
Redupkan mycnn Sebagai Koneksi
Redupkan myset Sebagai Recordset
Redupkan strconnstring Sebagai String
'strconnstring = "penyedia=sqlledb.1;
kata sandi=;" & "id pengguna=sa;" & "katalog awal=vlog;" & "sumber data=hpe60;
batas waktu koneksi habis=15"
strconnstring = "driver={sql server};server=yang;uid=sa;pwd=;
basis data=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.Buka strconnstring
set saya.ActiveConnection = mycnn
set saya.Buka strsql, mycnn, 3, adCmdText
Setel rsresult = set saya
Fungsi Akhir
() Sebagai Varian
sumber data = "driver={sql server};server=yang;uid=sa;pwd=; database=dcss"
End Function
mengkompilasi dan menghasilkan file dcss.dll. Daftarkan jalur regsvr32dcss.dll.
Buka file global.asa dengan visual interdev. Tentu saja, Anda juga dapat menggunakannya di file lain.
setel dcss=server.CreateObject("yygwy.dcss")
oonn=dcss.datasource()
application("strconn")=oconn
dapat dipanggil sebagai berikut di halaman lain:
setel objConn = Server.CreateObject("ADODB.Connection")
objConn.Buka aplikasi("strconn")