الأعضاء المسجلين ، إنشاء قاعدة بيانات تطوير الويب الخاصة بك ، ------------------------------------------- ------ ROOT1 --------------------------------------- ------------------------------------------------
********************************************** ***************************************
*استخدم هذه الفئة لإدارة وتسجيل DLL في صفحة ASP
*تم اختبار هذا الفصل على Win 2K
*ملاحظة: استخدم هذه الفئة لإنشاء ملف XML أولاً. الملف كما يلي.
*
*<
*<قائمة DLL>
*</dll list>
*
*------------------------------------------- ------------------------------------------------- ------------------------------------------------- ------------------------------------------------- -----
*مثال:
*Dimbjretsvr32
*تعيين OBJREGSVR32 = REGSVR32 الجديد
*مع objregsvr32
*if .loadxml ("../ mydll.xml") ثم
*Call Response.write ("خطأ في تحميل ملف XML")
*تعيين objregsvr32 = لا شيء
*استجابة
*نهاية إذا
*حدد case .addnode ("f: /web/cw31072/dll/test/myclass.dll" ، true) ‘إضافة إدخالات جديدة وتسجيل dll
*الحالة 1
*call response.write ("تمت إضافة الإدخال إلى ملف XML! و DLL المسجل بنجاح!")
*الحالة 0
*call response.write ("تمت إضافة الإدخال إلى ملف XML! لكنه فشل عند تسجيل DLL!")
*الحالة -1
*call reponse.write ("يوجد بالفعل هذا الإدخال في ملف XML! تم تسجيل DLL أيضًا!")
*نهاية الاختيار
*..........................
*نهاية مع
*
*'فئة بن بسيطة للغاية ، هناك بعض الطرق فيها ، لذلك لن أعطي مثالاً ، فقط انظر إليها. يمكنك فتحه في المستقبل
*"ملف XML يعتمد على قائمة DLL التي قمت بتسجيلها وتسجيلها.
*'ملفات xml في كل إدخال هي كما يلي: <dl quited = "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
"العودة: العودة إلى True إذا فشلت في التحميل
'------------------------------------------- ------------------------------------------------- -------------------------
وظيفة عامة loadxml (StrPrath)
تعيين s_objxml = createObject ("msxml2.document")
s_objxml.async = false
S_OBJXML.LOAD (Strath)
إذا s_objxml.parseerror.errorcode <> 0 ثم
اضبط S_OBJXML = لا شيء
loadxml = صحيح
وظيفة الخروج
إنهاء إذا
تعيين s_objnoderoot = s_objxml.documentElement
S_strxmlPath = Strath
s_strattributeName = "ما إذا كان قد تم تسجيله"
وظيفة نهاية
'---------------------------------------
الهدف: أضف مشروع DLL
'المعلمات: strath: عنوان ملف DLL
'blnreg: ما إذا كان يجب تسجيله بعد الإضافة
"العائد: إذا كان التسجيل مطلوبًا ، فإن التسجيل ناجح ، وفشل التسجيل ، وعودة التسجيل 0 ، فإن المشروع لديه بالفعل المشروع وسيعود السجل إلى -1
'---------------------------------------
الوظيفة العامة addn