一个将绝对路径转换为相对路径的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