ASP memanggil dll dan merangkum instance dll. Enkapsulasi ke dalam dll dapat memberikan efisiensi yang berjalan dan mengenkripsi kode. Buka VB6 dan buat DLL ActiveX baru
2. Tambahkan pilihan Perpustakaan Objek Halaman Server Aktif Microsoft ke referensi proyek
3. Isikan kode sebagai berikut:
Copy kode kodenya sebagai berikut:
'Kode Mulai
'Bagian deklarasi
MyScriptingContext Pribadi Sebagai ScriptingContext
Aplikasi Saya Pribadi Sebagai Aplikasi
Permintaan Saya Pribadi Sebagai Permintaan
Pribadi MyResponse Sebagai Respons
Server Saya Pribadi Sebagai Server
Sesi Pribadi Sebagai Sesi
'Berikut ini mendefinisikan fungsi-fungsi umum (untuk mengakses objek ASP di VB, yaitu, di VB Anda dapat menggunakan MyApplication yang setara dengan Aplikasi di ASP, MyRequest yang setara dengan Permintaan di ASP, MyResponse yang setara dengan Response di ASP, dan MyServer setara dengan Server di ASP, MySession setara dengan penggunaan Sesi di ASP)
Sub Publik OnStartPage (PassedScriptingContext Sebagai ScriptingContext)
Setel MyScriptingContext = PassedScriptingContext
Setel Aplikasi Saya = MyScriptingContext.Application
Setel Permintaan Saya = MyScriptingContext.Permintaan
Setel MyResponse = MyScriptingContext.Response
Setel Server Saya = MyScriptingContext.Server
Setel MySession = MyScriptingContext.Session
Akhiri Sub
Sub Publik DiEndPage()
Setel MyScriptingContext = Tidak Ada
Setel Aplikasi Saya = Tidak Ada
Setel Permintaan Saya = Tidak Ada
Setel MyResponse = Tidak Ada
Setel Server Saya = Tidak Ada
Setel MySession = Tidak Ada
Akhiri Sub
'Buat fungsi khusus SayHello
Sub Publik Ucapkan Halo()
MyResponse.Write(Halo Dunia)
Akhiri Sub
'Kode Akhir
4. Ubah nama kelas menjadi: HelloWorld dan ubah nama proyek menjadi: TestVBCode
5. Hasilkan file TestVBCode.DLL dan gunakan perintah komponen registrasi run Windows Regsvr32 path/TestVBCode.DLL untuk mendaftarkannya agar dapat digunakan. (Perintah untuk uninstall komponen adalah Regsvr32 /u path/TestVBCode.DLL)
6. Buat file Test.asp, kodenya seperti berikut
Copy kode kodenya sebagai berikut:
<%
'Format pemanggilan fungsi yang dibuat sendiri oleh VB
'Tetapkan nama objek=Server.CreateObject(nama proyek.nama kelas)
'Nama objek. Nama fungsi yang dibuat sendiri
Setel MyTestObj = Server.CreateObject(TestVBCode.HelloWorld)
MyTestObj.SayHalo
%>
7. Hasil menjalankan file Test.asp adalah sebagai berikut:
Halo Dunia
==================== =========
Untuk aplikasi yang lebih kompleks, Anda dapat memperluasnya melalui contoh ini.
menyukai:
Copy kode kodenya sebagai berikut:
Subkonstr2() Publik
Setel koneksi = MyServer.CreateObject(ADODB.Connection)
samb.Buka driver={Microsoft Access Driver (*.mdb)};dbq= & MyServer.MapPath(codata.mdb)
Setel rs = conn.Execute(pilih * dari berita)
Lakukan Sementara Bukan rs.EOF
MyResponse.Write (rs(news_title) & <br>)
rs.MoveNext
Lingkaran
rs.Tutup
Setel samb = Tidak ada
Akhiri Sub
Ini dirangkum dengan kode koneksi database. Tentu saja referensi ADO perlu ditambahkan di sini.