قبل وقت طويل ، تم فرزها وتذكرها
استخدم VB لتغليف ASP وإنشاء برنامج اختبار Sayhello
1. افتح VB6 وإنشاء ActiveXDLL جديد
2. إضافة Microsoft ActiveServerPagesObjectLibrary إلى مرجع المشروع
3. املأ الرمز على النحو التالي:
'Codestart
جزء الإعلان
privateMyScriptingContextScriptingContext
الخصوصية applicationasapplication
PRIVATEMEREQUESTASREQUEST
PrivatemyResponseasSponse
PrivatemyServerAsserver
privatemysessionassession
"يحدد ما يلي وظيفة مشتركة (الوصول إلى كائن ASP في VB ، أي في VB ، يمكن استخدام myapplication لتكون مكافئة للتطبيق في ASP ، myrequest مكافئة للطلب في ASP ، myresponse يعادل الاستجابة في ASP ، myserver يعادل الخادم في ASP ، mysession هو ما يعادل الجلسة في ASP)
PublicsubonStartPage (SquipscriptingContextAsscriptingContext)
setMyScriptingContext = passedScriptingContext
setMyApplication = myscriptingcontext.application
setMyRequest = myScriptingContext.request
setMyResponse = myScriptingContext.Response
setMyServer = myScriptingContext.Server
setMySession = myscriptingcontext.session
ينتهي
publicsubonendpage ()
setMyScriptingContext = لا شيء
setMyApplication = لا شيء
setMyRequest = لا شيء
setMyResponse = لا شيء
setMyServer = لا شيء
setMysession = لا شيء
ينتهي
'إنشاء وظيفة مخصصة sayhello
publicsubsayhello ()
myresponse.write ("HelloWorld")
ينتهي
'codeend
4. تغيير اسم الفصل إلى: HelloWorld تغيير اسم المشروع إلى: TestVBCode
5. قم بإنشاء ملف testvbcode.dll واستخدم Windows لتشغيل REGSVR32 PATH/TESTVBCODE.DLL لتسجيله واستخدامه. (أمر إلغاء التثبيت هو REGSVR32/U PATH/TESTVBCODE.DLL)
6. إنشاء ملف test.asp ، الرمز كما يلي
<٪
'VB تنسيق استدعاء الوظيفة الذاتية
"تعيين اسم الكائن = server.createObject (" اسم المشروع. اسم cclass ")
اسم الكائن. اسم وظيفة بنيت ذاتيا
setMyTestObj = server.createBject ("testvbcode.helloworld")
mytestobj.sayhello
٪>
7. يتم عرض نتائج تشغيل ملف test.asp على النحو التالي:
مرحبا بالعالم
المثال أعلاه سيفتح الباب أمام عالم برمجة VB الخاص بك
دعونا نتجمع ، هاها!