يمكن لوظيفة asp التي تحول المسارات المطلقة إلى مسارات نسبية حفظها. انسخ رمز الكود كما يلي:
"=======================================================================================
'اسم الوظيفة: ChkMapPath
الوظيفة: تحويل المسار النسبي إلى المسار المطلق
'المعلمة: strPath ---- المسار الأصلي
'قيمة الإرجاع: المسار المطلق
"=======================================================================================
الدالة ChkMapPath (ByVal strPath)
خافت مسار كامل
strPath = استبدال(Replace(Trim(strPath), /, /), //, /)
إذا strPath = ثم strPath = .
إذا كان InStr(strPath,:/) = 0 إذن
fullPath = Server.MapPath(strPath)
آخر
strPath = استبدال (strPath،../،)
مسار كامل = تقليم (سترباث)
إذا كان Right(fullPath, 1) = / ثم
مسار كامل = يسار (فولباث، لين (فولباث) - 1)
نهاية إذا
نهاية إذا
ChkMapPath = fullPath
وظيفة النهاية