استخدم VB لكتابة برنامج ASP النقي

قبل بضعة أيام ، أخبرني أخي الأكبر أن استخدام ASP أمر مزعج حقًا ، فإن بيئة التجميع سيئة للغاية.

في البرنامج ، لهذا ، طرحت حلاً هنا. استخدم VB لاستبدال جميع كائنات ASP وكتابة برامج ASP النقية في VB.

يجب أن يعلم الجميع أنه في الواقع ، يتم كتابة العديد من المكونات في ASP في VB ، ولكن ما الذي يجعل الجميع يشعرون بأنهم غير مريحين للغاية هو كيفية استخدام ASP المتأصل.

هذا المكون ، مثل الاستجابة ، الطلب ، التطبيق ، الجلسة ، إلخ

يكفي لاستخدام VB لكتابة ASP لاستخدام البرنامج.

فيما يلي خطوة مفصلة:

1. إنشاء DLL ActiveX جديد في VB.

2. الآن تحتاج إلى الرجوع إلى اثنين من DLL في VB.

الأول هو اقتباس DLL لمحرك ASP.

حدد أمر المشروع/المراجع من القائمة ، واقتبس من "مكتبة كائن Microsoft Active Server".

إذا لم تجدها ، فيمكنك العثور على دليل ASP.DLL ٪ SystemDirectory ٪/system32/inetsvr في الدليل التالي

انقر على الزر "تصفح ..." لاستيراد مكتبة الاتصال الديناميكية هذه

والثاني هو اقتباس كائن Microsoft Transaction Server (MTS).

"مكتبة نوع خادم Microsoft Type Server".

إذا لم تجدها ، فيمكنك العثور على ملف mtxas.dll هذا في الدليل التالي

٪ SystemDirectory ٪/system32/mts/3. حسنًا ، يتم اكتمال جميع الاستعدادات ، وكيفية كتابة الرمز أدناه ، وأعتقد أن الجميع يمكنهم فهمه

ل.

هذا هو رمز الملف:

الخيار صريح

dim m_objresponse كاستجابة

Dim M_ObjRequest كطلب

dim m_objserver كخادم

قاتمة m_objapplication كتطبيق

Dim M_ObjSession كجلسة

sub sub class_initialize ()

Dim ObjContext ككائن

تعيين OBJContext = getObjectContext ()

تعيين m_objresponse = objContext (استجابة)

تعيين m_objrequest = objContext (طلب)

تعيين m_objserver = objContext (خادم)

تعيين m_objapplication = objContext (التطبيق)

تعيين m_objsession = objContext (الجلسة)

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

النسب الفرعي العام ()

m_objresponse.write وداعا لمجلس الكتابة ، استخدم بيئة VB لكتابة برنامج ASP!

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

الصق الكود أعلاه في البرنامج الخاص بك ، ثم قم بتجميع هذا المشروع إلى DLL. الاستخدام النهائي

regsvr32 componentName.dll سجل هذا dll في IIS.

فيما يلي طريقة استخدام هذا المكون في ملف ASP:

<٪

تعيين كائن = server.createObject (yourprjname.asptest)

objtest.asptest

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

٪>

حسنًا ، آمل أن تتمكن طريقتي من حل محنة الأخ الأكبر ، هاها.