ฟังก์ชัน asp ที่แปลงเส้นทางสัมบูรณ์เป็นเส้นทางสัมพัทธ์ เพื่อนที่ต้องการสามารถบันทึกได้ คัดลอกรหัสรหัสดังต่อไปนี้:
-
'ชื่อฟังก์ชัน: ChkMapPath
' ฟังก์ชั่น: แปลงเส้นทางสัมพัทธ์เป็นเส้นทางสัมบูรณ์
'พารามิเตอร์: strPath ---- เส้นทางเดิม
'ค่าส่งคืน: เส้นทางที่แน่นอน'
-
ฟังก์ชั่น ChkMapPath (ByVal strPath)
Dim fullPath
strPath = แทนที่ (แทนที่ (ตัดแต่ง (strPath), /, /), //, /)
ถ้า strPath = ดังนั้น strPath =
ถ้า InStr(strPath,:/) = 0 แล้ว
fullPath = Server.MapPath (strPath)
อื่น
strPath = แทนที่ (strPath,../,)
fullPath = ตัดแต่ง (strPath)
ถ้าขวา(fullPath, 1) = / จากนั้น
fullPath = ซ้าย (fullPath, Len (fullPath) - 1)
สิ้นสุดถ้า
สิ้นสุดถ้า
ChkMapPath = เส้นทางแบบเต็ม
ฟังก์ชันสิ้นสุด