تستخدم هذه المقالة رمز ASP المغطى DLL الذي تم إنشاؤه بواسطة VB للاتصال بقاعدة البيانات (أخذ قاعدة بيانات الوصول كمثال).
بشكل عام ، عندما نستخدم ASP للاتصال بقواعد البيانات الوصول ، عادةً ما نقوم بإجراء العمليات التالية.
'//proconn.asp
<٪
Dimproconn
setProconn = server.createObject ("adodb.connection")
proconn.open "driver = {microsoft accessDriver (*. mdb)} ؛ uid = ؛ pwd = 123 ؛ dbq =" & server.mappath ("db.asp")
"ملف مع اللاحقة db.asp التي تم في الأصل db.mdb تم تغييرها إلى db.asp ، كلمة مرور قاعدة البيانات 123
iferr.number <> 0then
استجابة. الكتابة "قاعدة البيانات ليس لها أي اتصال ، يرجى التحقق"
استجابة
آخر
Response.write "رابط قاعدة البيانات بنجاح"
استجابة
Endif
٪>
إذا تم تكوين الخادم ، فإن Access Proconn.asp. إذا نجح اتصال قاعدة البيانات ، فسيكون الإخراج "اتصال قاعدة البيانات".
ومع ذلك ، فإن مستوى أمان مثل رمز ASP منخفض للغاية. إذا تم رؤية هذا ASP الأصلي ، في ذلك مع ملف قاعدة البيانات هذا ، يمكن للآخرين بسهولة
افتح قاعدة البيانات الخاصة بك للتشغيل.
إذن مهمتنا موجودة هنا ، وكيفية تغليف هذا المحتوى الرئيسي؟
أولاً ، نحتاج إلى تحديد الأساليب والكائنات.
بعد التحقق من بعض المعلومات على الإنترنت ، يستخدمون بشكل أساسي VB لإنشاء DLLs لتغليفها. لذلك يجب علينا أيضًا تبني هذه الطريقة ، (على الرغم من أنني لم أستخدم VB حقًا بعد)
تم تحديد الطريقة ، فما هي الكائنات التي نحتاج إلى تغليفها؟
تعال وانظر الجميع
"Driver = {Microsoft AccessDriver (*.
هذا هو الرمز الأكثر أهمية. يجب أن يكون هذا الرمز مغلفًا بشكل أفضل في DLL تم إنشاؤه باستخدام VB.
سبب عدم وضع الكل
Dimproconn
setProconn = server.createObject ("adodb.connection")
proconn.open "driver = {microsoft accessDriver (*. mdb)} ؛ uid = ؛ pwd = 123 ؛ dbq =" & server.mappath ("db.asp")
يتم تغليف جميعها (لأنه يقال إن رمز الاتصال بالكامل مغلف) هو أنه عندما تشير ملفات ASP الأخرى إلى Proconn.asp ،
أحتاج أيضًا إلى Proconn Inside للقيام بعمليات أخرى ، وإذا تم تغليفه ، فمن غير المريح الرجوع والتشغيل.
(سبب التفسير أعلاه لكائن التغليف هو رأيي الشخصي. قال بعض الأصدقاء إن التغليف العام ليس له أي تأثير على استخدام Proconn. لا أفهم هذا ، من فضلك أخبرني إذا كنت تعرف ذلك)
أريد فقط تغليف الجزء الأكثر أهمية "" Driver = {Microsoft AccessDriver (*.
تحليل المحتوى المراد تغليفه.
النصف الأول منه عبارة عن سلسلة:
"Driver = {Microsoft accessDriver (*. MDB)} ؛ uid = ؛ pwd = 123 ؛ dbq ="
استخدام وتوصيل سلسلة أخرى في الشوط الثاني.
سلسلة أخرى في النصف الثاني هي قيمة إرجاع وظيفة كائن server.mappath.
فيما يلي عملية تشغيل هذه الحزمة.
أولاً
قم بإنشاء مشروع ActiveXDLL جديد ضمن VB ، قم بتغيير اسم Project Project1 إلى Condbdll ؟؟ تم تغيير اسم الطريقة Class1 إلى CS