亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

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)論