Anggota Terdaftar, Buat Database Pengembangan Web Anda, ------------------------------------------ ------ root1 ------------------------------------------- ------------------------------------------------
******************************************** ***************************************
*Gunakan kelas ini untuk mengelola dan mendaftarkan DLL Anda di halaman ASP
*Kelas ini diuji pada Win 2K
*Catatan: Gunakan kelas ini untuk membuat file XML terlebih dahulu. File tersebut adalah sebagai berikut.
*
*<? Versi xml = "1.0" encoding = "gb2312" mandiri = "ya"?>
*<Dll List>
*</lll Daftar>
*
*------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -----
*contoh:
*Redup objretsvr32
*Set Objregsvr32 = Regsvr32 baru
*Dengan objregsvr32
*if .LoadXml ("../ mydll.xml") lalu
*Call Response.Write ("Kesalahan Penguat File XML")
*atur objregsvr32 = tidak ada
*Response.end
*Akhiri jika
*Pilih casing .addnode ("f: /web/cw31072/dll/test/myclass.dll", true) ‘Tambahkan entri baru dan daftar DLL
*Kasus 1
*Call Response.Write ("Entri telah ditambahkan ke file XML! Dan berhasil terdaftar DLL!")
*Kasus 0
*Call Response.Write ("Entri telah ditambahkan ke file XML! Tapi gagal saat terdaftar DLL!")
*Kasus -1
*Call Response.Write ("Sudah ada entri ini di file XML! DLL juga telah terdaftar!")
*Akhiri Pilih
*..........................
*diakhiri dengan
*
*Kelas Ben sangat sederhana, ada beberapa cara di dalamnya, jadi saya tidak akan memberi contoh, lihat saja. Anda dapat membukanya di masa depan
*'File XML tergantung pada daftar DLL yang telah Anda daftarkan dan terdaftar.
*'File XML di setiap entri adalah sebagai berikut: <dl telah terdaftar = "1"> f: /web/cw31072/dll/test/myclass.dll </lll>
*'f: /web/cw31072/dll/test/myclass.dll adalah jalur file dll Anda
*'Apakah itu telah terdaftar = "1" adalah bahwa DLL telah terdaftar, = "0" belum terdaftar!
******************************************** ***************************************
Kelas REGSVR32
Private S_OBJXML
Private s_objnoderoot
Private S_STRXMLPATH
Private S_StrattributeName
'------------------------------------------------- -------------------------------------------------- -----------------------------
'Tujuan: Muat file xml konfigurasi dll
'Parameter: Alamat File XML
'Return: Return To True jika gagal memuat
'------------------------------------------------- -------------------------------------------------- -----------------------------
Fungsi Publik LoadXML (Strpath)
set s_objxml = createObject ("msxml2.document")
s_objxml.async = false
s_objxml.load (strpath)
jika s_objxml.parseeRror.ErrorCode <> 0 lalu
atur s_objxml = tidak ada
loadxml = true
fungsi keluar
akhiri jika
Set S_OBJNODEROOT = S_OBJXML.DocumentElement
s_strxmlpath = strpath
s_strattributename = "Apakah itu telah terdaftar"
fungsi akhir
'-------------------------------------------
'Tujuan: Tambahkan proyek DLL
'Parameter: strpath: alamat file dll
'blnreg: apakah akan mendaftarkannya setelah menambahkan
'Return: Jika diperlukan pendaftaran, pendaftaran berhasil, pendaftaran gagal, kegagalan pendaftaran mengembalikan 0, proyek sudah memiliki proyek dan register akan kembali -1
'-------------------------------------------
Fungsi Publik Addn