以后地位:首页 > 建站常识 > 列表

asp中将相对途径转换为相对途径的函数代码

点击: 次时候:2016/11/3关头词:asp 相对途径 相对途径
代码以下:'================================================' 函数名:ChkMapPath' 作 用:相对途径转换为相对途径' 参 数:strPath ----原途径' 前往值:相对途径'===========
代码以下:

'================================================ 
' 函数名:ChkMapPath 
' 作 用:相对途径转换为相对途径 
' 参 数:strPath ----原途径 
' 前往值:相对途径 
'================================================ 
Function ChkMapPath(ByVal strPath) 
Dim fullPath 
strPath = WordStr(WordStr(Trim(strPath), "/", "\"), "\\", "\") 

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

预定建站
收费供给网站优化
支付关头词