في الواقع، أكثر ما يقلق الجميع عند كتابة برنامج ASP هو أن معلومات اتصال قاعدة البيانات سوف يراها بعض الأشخاص وتتسبب في بعض الضرر. بعد ذلك نستخدم الإصدار vb6.0 لإنشاء مكتبة الارتباط الديناميكي (.dll) لإخفاء معلومات اتصال قاعدة البيانات.
ابدأ الإصدار vb6.0، وأنشئ مشروعًا جديدًا --> نشط dll. انقر فوق "المشروع"-->المراجع وحدد "مكتبة كائنات صفحات الخادم النشطة لـ Microsoft"
و"مكتبة كائنات بيانات Microsoft ActiveX 2.1" عنصرين. قم بتغيير اسم الوحدة النمطية للفئة إلى dcss قم بتغيير اسم المشروع إلى yygwy. احفظ ملف المشروع yygwy.vbp وملف الفئة dcss.cls.
اكتب في dcss.cls:
myscriptingcontext الخاص كـ ScriptingContext
تطبيقي الخاص كتطبيق
طلبي الخاص حسب الطلب
رد myresponse الخاص كرد
خادم myserver الخاص كخادم
جلسة خاصة كجلسة
فرعية عامة في صفحة البداية (تم تمرير سياق النص كنص نصي)
قم بتعيين myscriptingcontext = passscriptingcontext
قم بتعيين myapplication = myscriptingcontext.Application
قم بتعيين طلبي = myscriptingcontext.Request
قم بتعيين myresponse = myscriptingcontext.Response
قم بتعيين myserver = myscriptingcontext.Server
اضبط mysession = myscriptingcontext.Session
النهاية
الفرعية العامة الفرعية onendpage()
قم بتعيين myscriptingcontext = لا شيء
تعيين تطبيقي = لا شيء
تعيين طلبي = لا شيء
تعيين myresponse = لا شيء
تعيين خادمي = لا شيء
تعيين mysession = لا شيء
End Sub
'البيان أعلاه مطلوب.
'حدد وظيفتين عامتين
مصدر بيانات الوظيفة العامة () كمتغير
مصدر البيانات = "برنامج التشغيل = {خادم SQL}؛ الخادم = يانغ؛ uid = sa؛ pwd =؛ قاعدة البيانات = dcss"
وظيفة النهاية
على تجميع وإنشاء ملف dcss.dll. سجل مسار regsvr32dcss.dll.
افتح ملف global.asa باستخدام برنامج interdev المرئي، ويمكنك بالطبع استخدامه في ملفات أخرى.
تعيين dcss=server.CreateObject("yygwy.dcss")
oconn=dcss.datasource()
application("strconn")=oconn
يمكن استدعاؤه كما يلي في الصفحات الأخرى:
تعيين objConn = Server.CreateObject("ADODB.Connection")
تطبيق objConn.Open("strconn")