يحتاج الموقع بأكمله إلى استخدام ملف اتصال قاعدة بيانات واحد فقط لتنفيذ رمز الوظيفة، ولن أقول أي شيء آخر، فقط قم بتخصيص الكود الأصلي مباشرة.
انسخ رمز الكود كما يلي:
'========== الانتباه ====================================== =========
1. لا يمكن أن يكون اسم المجلد الذي يوجد به موقع الويب جذرًا.
2. اسم المجلد الذي يوجد به موقع الويب غير مسموح بأسماء المجلدات المتكررة في المسار الفعلي، على سبيل المثال، F:/t/t، t هو اسم المجلد الذي يوجد به موقع الويب الحالة، سيحدث خطأ.
'======================================================================== = ============
خافت dbPath،dbName،Db،ConnStr،WebSiteFolderName
على خطأ استئناف المقبل
WebSiteFolderName=WeldSiteBuilder
dbPath = _sitedata/ 'لاحظ أنها شرطة مائلة عكسية، وفي النهاية فقط
dbName = acteedata.mdb 'اسم قاعدة البيانات
Db=GetSitePhysicalPath(WebSiteFolderName) & dbPath & dbName
'response.Write (المسار الفعلي لقاعدة البيانات الحالية: &server.mappath(db))
'رد.كتابة(<hr>)
'response.Write(مسار الصفحة المطلوب حاليًا: &request.ServerVariables(URL))
'رد.كتابة(<hr>)
'response.Write(المسار الجذري للموقع الحالي: &request.ServerVariables(APPL_PHYSICAL_PATH))
'رد.كتابة(<hr>)
'response.Write(حالة مسار الموقع الحالي: &request.ServerVariables(APPL_MD_PATH))
'الاستجابة. الكتابة (ديسيبل)
'الاستجابة. النهاية ()
'=======================
تعيين conn=Server.CreateObject(ADODB.Connection)
ConnStr=Provider=Microsoft.Jet.OLEDB.4.0;مصدر البيانات=&Db
كون.فتح كونستر
إذا أخطأت ثم
خطأ.واضح
SetConn=لا شيء
Response.Write خطأ في اتصال قاعدة البيانات!
الاستجابة.النهاية
نهاية إذا
سوبكلوسيكون ()
conn. Close
تعيين كون = لا شيء
نهاية الفرعية
'احصل على المسار المطلق للدليل الذي يوجد به موقع الويب (مع / علامة)
الدالة GetSitePhysicalPath(WSFN)
خافت APPL_MD_PATH،APPL_MD_PATHArray،مسار،WSPP
WSPP=request.ServerVariables(APPL_PHYSICAL_PATH)'يعمل موقع الويب الافتراضي في الدليل الجذر
APPL_MD_PATH=request.ServerVariables(APPL_MD_PATH)
APPL_MD_PATHArray=split(APPL_MD_PATH,/)
المسار=APPL_MD_PATHArray(UBound(APPL_MD_PATHArray))
إذا كان UCase(Path)=ROOT، فحدد ما إذا كان موقع الويب يعمل ضمن تطبيق مستقل أم لا
"ثم حدد ما إذا كان موقع الويب يعمل في مجلد معين."
إذا كان InStr(WSPP,WSFN)=0، فسيتم تشغيل موقع الويب في مجلد في الدليل الجذر
"قم بتوضيح عنوان المجلد الذي يوجد به موقع الويب بناءً على عنوان الصفحة التي تمت زيارتها."
خافت CurrentUrl، NameArray
CurrentUrl=request.ServerVariables(URL)
NameArray=split(CurrentUrl,/)
من أجل i=LBound(NameArray) إلى UBound(NameArray)
إذا كان UCase(NameArray(i))=UCase(WSFN) إذن
ل ي = 0 إلى ط
WSPP=WSPP+NameArray(j)+/
التالي
الخروج ل
نهاية إذا
التالي
يشير آخر إلى أن موقع الويب يعمل في الدليل الجذر
"ليس هناك حاجة لفعل أي شيء، لقد تمت تهيئة قيمة الإرجاع."
نهاية إذا
يشير آخر إلى أن موقع الويب يعمل في دليل ظاهري
'لا تفعل شيئًا، لقد تمت تهيئة قيمة الإرجاع
نهاية إذا
WSPP = استبدال (WSPP،//،/)
GetSitePhysicalPath=WSPP
وظيفة النهاية
ملاحظة: ما سبق هو مجرد حل لمشكلة مسارات التضمين غير الصحيحة لقاعدة بيانات Access، بحيث يمكن للموقع مشاركة ملف اتصال قاعدة البيانات إذا كان يحتوي على أي ملف، ويمكن فتح قاعدة البيانات بشكل طبيعي، ولا داعي لذلك تقلق بشأن كيفية تشغيل موقع الويب (التشغيل في الدليل الجذر، والتشغيل ضمن المسار الظاهري، والتشغيل ضمن الدليل الجذر + الدليل الذي يوجد به موقع الويب).