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

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

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

'================================================
' 函數(shù)名:ChkMapPath
' 作 用:相對(duì)路徑轉(zhuǎn)換為絕對(duì)路徑
' 參 數(shù):strPath ----原路徑
' 返回值:絕對(duì)路徑
'================================================
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)文章

最新評(píng)論

黎平县| 泸溪县| 建阳市| 四平市| 武汉市| 寿光市| 玉门市| 即墨市| 上饶市| 家居| 潞西市| 漠河县| 楚雄市| 山西省| 信阳市| 札达县| 兴化市| 祁东县| 南部县| 民和| 葫芦岛市| 特克斯县| 云浮市| 宣汉县| 凯里市| 青神县| 清流县| 大洼县| 紫云| 宁南县| 麻城市| 连州市| 安义县| 淳安县| 莫力| 旬阳县| 镇雄县| 鞍山市| 丹东市| 青阳县| 靖边县|