服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - asp中将相对路径转换为绝对路径的函数代码

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

2019-08-28 12:19服务器之家 ASP教程

一个将绝对路径转换为相对路径的asp函数,需要的朋友可以收藏下。

代码如下:


'================================================ 
' 函数名:ChkMapPath 
' 作 用:相对路径转换为绝对路径 
' 参 数: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 

延伸 · 阅读

精彩推荐