Fungsi asp yang mengubah jalur absolut menjadi jalur relatif. Teman yang membutuhkan dapat menyimpannya. Copy kode kodenya sebagai berikut:
' ====
'Nama fungsi: ChkMapPath
' Fungsi: Mengubah jalur relatif menjadi jalur absolut
'Parameter: strPath ---- jalur asli
'Nilai kembalian: jalur absolut
' ====
Fungsi ChkMapPath(ByVal strPath)
Redupkan fullPath
strPath = Ganti(Ganti(Trim(strPath), /, /), //, /)
Jika strPath = Maka strPath = .
Jika InStr(strPath,:/) = 0 Maka
fullPath = Server.MapPath(strPath)
Kalau tidak
strPath = Ganti(strPath,../,)
fullPath = Memangkas(strPath)
Jika Benar(fullPath, 1) = / Kemudian
fullPath = Kiri(fullPath, Len(fullPath) - 1)
Akhiri Jika
Akhiri Jika
ChkMapPath = jalur penuh
Fungsi Akhir