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

【收藏分享】一个将绝对路径转换为相对路径的ASP函数教程

对于需要在ASP编程中将绝对路径转换为相对路径的朋友们，这个函数将会是你的好帮手。以下是该函数的详细代码，需要的朋友可以收藏以备不时之需。

函数名：ChkMapPath

作用：将相对路径转换为绝对路径

参数：strPath（原路径）

返回值：绝对路径

代码如下：

```asp

Function ChkMapPath(ByVal strPath)

Dim fullPath

strPath = Replace(Replace(Trim(strPath), "/", "\"), "\\", "\")

If strPath = "" Then

strPath = "."

End If

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

```

这个函数首先将输入的路径字符串进行处理，处理内容包括去除多余的斜杠和空白字符。接着，它会检查路径是否为空，如果为空则默认为当前目录（"."）。然后，它会检查路径中是否包含驱动器标识符（如"C:"），如果不包含，则使用Server.MapPath方法将相对路径转换为绝对路径。如果路径中包含驱动器标识符，则去除路径中的"../"并修剪路径字符串，同时移除路径字符串末尾的斜杠（如果存在）。函数返回处理后的绝对路径。

请注意，此函数的使用方式可能因你的具体需求和环境而有所不同。建议在实际使用前根据具体情况进行调整和测试。希望这个函数能帮助你在ASP编程中更方便地处理路径问题。如果你有任何疑问或需要进一步帮助，请随时向我询问。