สมาชิกที่ลงทะเบียนสร้างฐานข้อมูลการพัฒนาเว็บของคุณ ------------------------------------------- ------ root1 --------------------------------------- --------------------------------------------
************************************************ ***************************************
*ใช้คลาสนี้เพื่อจัดการและลงทะเบียน DLL ของคุณในหน้า ASP
*คลาสนี้ได้รับการทดสอบใน Win 2K
*หมายเหตุ: ใช้คลาสนี้เพื่อสร้างไฟล์ XML ก่อน ไฟล์มีดังนี้
-
*<? XML เวอร์ชัน = "1.0" การเข้ารหัส = "GB2312" standalone = "ใช่"
*<รายการ dll>
*</dll รายการ>
-
*----------------------------------------- ------------------------------------------------------ ------------------------------------------------------ ------------------------------------------------------ -----
*ตัวอย่าง:
*dim objretsvr32
*ตั้งค่า objregsvr32 = ใหม่ regsvr32
*ด้วย objregsvr32
*ถ้า. loadxml ("../ mydll.xml") แล้ว
*call response.write ("ข้อผิดพลาดในการโหลดไฟล์ XML"))
*ตั้งค่า objregsvr32 = ไม่มีอะไร
*response.end
*สิ้นสุดถ้า
*เลือก case .addnode ("f: /web/cw31072/dll/test/myclass.dll", true) ‘เพิ่มรายการใหม่และลงทะเบียน dll
*กรณีที่ 1
*การตอบสนองการโทร. เขียน ("มีการเพิ่มรายการลงในไฟล์ XML! และลงทะเบียน DLL สำเร็จ!")
*กรณี 0
*การตอบสนองการโทร. เขียน ("รายการถูกเพิ่มลงในไฟล์ XML! แต่มันล้มเหลวเมื่อลงทะเบียน DLL!")
*กรณี -1
*การตอบสนองการโทร. เขียน ("มีรายการนี้อยู่ในไฟล์ XML แล้ว DLL ได้ลงทะเบียนแล้ว!")
*สิ้นสุดเลือก
-
*จบด้วย
-
*'คลาสเบ็นนั้นง่ายมากมีบางวิธีในนั้นดังนั้นฉันจึงไม่ยกตัวอย่างเพียงแค่ดู คุณสามารถเปิดได้ในอนาคต
*'ไฟล์ XML ขึ้นอยู่กับรายการ DLL ที่คุณลงทะเบียนและลงทะเบียน
*'ไฟล์ xml ในแต่ละรายการมีดังนี้: <dl ได้ลงทะเบียนแล้ว = "1"> f: /web/cw31072/dll/test/myclass.dll </dll>
*'f: /web/cw31072/dll/test/myclass.dll เป็นเส้นทางของไฟล์ dll ของคุณ
*'ไม่ว่าจะลงทะเบียนแล้ว = "1" คือ DLL ได้รับการลงทะเบียนแล้ว = "0" ยังไม่ได้ลงทะเบียน!
************************************************ ***************************************
ชั้นเรียน regsvr32
ส่วนตัว s_objxml
ส่วนตัว s_objnoderoot
ส่วนตัว s_strxmlpath
ส่วนตัว s_strattributename
-
'วัตถุประสงค์: โหลดไฟล์ XML การกำหนดค่า DLL
'พารามิเตอร์: ที่อยู่ไฟล์ XML
'return: return to True หากไม่สามารถโหลดได้
-
ฟังก์ชั่นสาธารณะ loadxml (strpath)
SET S_OBJXML = CreateObject ("MSXML2.Document"))
S_OBJXML.ASYNC = FALSE
s_objxml.load (strpath)
ถ้า s_objxml.parseerror.errorCode <> 0 แล้ว
ตั้งค่า S_OBJXML = ไม่มีอะไร
loadxml = true
ฟังก์ชั่นออก
สิ้นสุดถ้า
ตั้งค่า S_OBJNODEROOT = S_OBJXML.DocumentElement
S_STRXMLPATH = StrPHAT
s_strattributeName = "ไม่ว่าจะลงทะเบียนหรือไม่"
ฟังก์ชันสิ้นสุด
-
'วัตถุประสงค์: เพิ่มโครงการ DLL
'พารามิเตอร์: strpath: ที่อยู่ไฟล์ dll
'blnreg: จะลงทะเบียนหลังจากเพิ่ม
'ผลตอบแทน: หากจำเป็นต้องลงทะเบียนการลงทะเบียนจะสำเร็จการลงทะเบียนล้มเหลวความล้มเหลวในการลงทะเบียนจะส่งคืน 0 โครงการมีโครงการแล้วและการลงทะเบียนจะส่งคืน -1
-
ฟังก์ชั่นสาธารณะ addn