ASP يستدعي dll ويغلف مثيلات dll

يستدعي ASP ملف dll ويغلف مثيل dll ويمكن أن يوفر التغليف في ملف dll كفاءة التشغيل وتشفير التعليمات البرمجية. افتح VB6 وقم بإنشاء ActiveX DLL جديد

2. قم بإضافة تحديد مكتبة كائنات Microsoft Active Server Pages إلى مرجع المشروع

3. املأ الرمز كما يلي:

انسخ رمز الكود كما يلي:

"بدء الكود."

"جزء الإعلان."

MyScriptingContext الخاص كـ ScriptingContext

MyApplication الخاص كتطبيق

MyRequest خاص حسب الطلب

MyResponse الخاص كرد

MyServer الخاص كخادم

MySession الخاص كجلسة

'يحدد ما يلي الوظائف الشائعة (للوصول إلى كائنات ASP في VB، أي أنه في VB يمكنك استخدام MyApplication ليكون مكافئًا للتطبيق في ASP، وMyRequest ليكون مكافئًا للطلب في ASP، وMyResponse ليكون مكافئًا للاستجابة في ASP، و MyServer مكافئ للخادم في ASP، MySession مكافئ لاستخدام الجلسة في ASP)

OnStartPage الفرعي العام (PassedScriptingContext As ScriptingContext)

قم بتعيين MyScriptingContext = PassedScriptingContext

قم بتعيين MyApplication = MyScriptingContext.Application

قم بتعيين MyRequest = MyScriptingContext.Request

قم بتعيين MyResponse = MyScriptingContext.Response

قم بتعيين MyServer = MyScriptingContext.Server

قم بتعيين MySession = MyScriptingContext.Session

نهاية الفرعية

OnEndPage العامة الفرعية ()

قم بتعيين MyScriptingContext = لا شيء

تعيين MyApplication = لا شيء

تعيين MyRequest = لا شيء

اضبط MyResponse = لا شيء

تعيين MyServer = لا شيء

تعيين MySession = لا شيء

نهاية الفرعية

'إنشاء وظيفة مخصصة SayHello

العامة الفرعية SayHello()

MyResponse.Write (مرحبا بالعالم)

نهاية الفرعية

"نهاية الكود."

4. قم بتغيير اسم الفئة إلى: HelloWorld وقم بتغيير اسم المشروع إلى: TestVBCode

5. قم بإنشاء ملف TestVBCode.DLL واستخدم أمر مكون تسجيل تشغيل Windows Regsvr32 path/TestVBCode.DLL لتسجيله للاستخدام. (الأمر الخاص بإلغاء تثبيت المكون هو Regsvr32 /u path/TestVBCode.DLL)

6. قم بإنشاء ملف Test.asp، ويكون الرمز كما يلي

انسخ رمز الكود كما يلي:

<%

'تنسيق استدعاء الوظائف المبني ذاتيًا لـ VB

'تعيين اسم الكائن = Server.CreateObject (اسم المشروع. اسم الفئة)

"اسم الكائن. اسم الوظيفة المبني ذاتيًا."

تعيين MyTestObj = Server.CreateObject(TestVBCode.HelloWorld)

MyTestObj.SayHello

%>

7. نتائج تشغيل الملف Test.asp هي كما يلي:

مرحبا بالعالم

================================================================================================== =========

بالنسبة للتطبيقات الأكثر تعقيدًا، يمكنك التوسع للخارج من خلال هذا المثال.

يحب:

انسخ رمز الكود كما يلي:

connstr2 الفرعي العام ()

تعيين conn = MyServer.CreateObject(ADODB.Connection)

conn.Open driver={Microsoft Access Driver (*.mdb)};dbq= & MyServer.MapPath(codata.mdb)

تعيين rs = conn.Execute(اختر * من الأخبار)

افعل بينما لا rs.EOF

MyResponse.Write (rs(news_title) & <br>)

rs.MoveNext

حلقة

إغلاق

تعيين كون = لا شيء

نهاية الفرعية

هذا مغلف برمز اتصال قاعدة البيانات، بالطبع، يجب إضافة مراجع ADO هنا.