最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

asp中將相對路徑轉(zhuǎn)換為絕對路徑的函數(shù)代碼

 更新時間:2011年05月27日 00:49:18   作者:  
一個將絕對路徑轉(zhuǎn)換為相對路徑的asp函數(shù),需要的朋友可以收藏下。
復(fù)制代碼 代碼如下:

'================================================
' 函數(shù)名:ChkMapPath
' 作 用:相對路徑轉(zhuǎn)換為絕對路徑
' 參 數(shù):strPath ----原路徑
' 返回值:絕對路徑
'================================================
Function ChkMapPath(ByVal strPath)
Dim fullPath
strPath = Replace(Replace(Trim(strPath), "/", "\"), "\\", "\")

If strPath = "" Then strPath = "."
If InStr(strPath,":\") = 0 Then
fullPath = Server.MapPath(strPath)
Else
strPath = Replace(strPath,"..\","")
fullPath = Trim(strPath)
If Right(fullPath, 1) = "\" Then
fullPath = Left(fullPath, Len(fullPath) - 1)
End If
End If
ChkMapPath = fullPath
End Function

相關(guān)文章

最新評論

行唐县| 临澧县| 银川市| 眉山市| 九龙县| 安福县| 衡水市| 铜鼓县| 林州市| 丹棱县| 古蔺县| 阿克| 湟中县| 长治市| 宁安市| 府谷县| 勐海县| 泰宁县| 六安市| 陕西省| 虹口区| 雷波县| 酒泉市| 济宁市| 阳原县| 鄂尔多斯市| 神池县| 阿图什市| 绩溪县| 峨眉山市| 思南县| 恩平市| 兴和县| 石阡县| 凌源市| 桐庐县| 深泽县| 陆良县| 乌拉特后旗| 霸州市| 安泽县|