في الواقع، أكثر ما يقلق الجميع عند كتابة برنامج 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
'البيان أعلاه مطلوب.
'حدد وظيفتين عامتين
الوظيفة العامة rsresult(strsql كسلسلة) كمجموعة سجلات
خافت mycnn كاتصال
خافت myset كمجموعة السجلات
خافت strconnstring كسلسلة
'strconnstring = "provider=sqloledb.1;
كلمة المرور =؛" & "معرف المستخدم = sa؛" & "الكتالوج الأولي = vlog؛" & "مصدر البيانات = hpe60؛
مهلة الاتصال = 15"
strconnstring = "driver={sql server};server=yang;uid=sa;pwd=;
قاعدة البيانات=dcss"
'mycnn.ConnectionString = strconnstring
mycnn.افتح strconnstring
myset.ActiveConnection = mycnn
myset.Open strsql، mycnn، 3، adCmdText
تعيين rsresult = myset
نهاية الوظيفة
العامة مصدر البيانات () كمتغير
مصدر البيانات = "برنامج التشغيل = {خادم 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")