复制代码 代码如下:'================================================ ' 函数名：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

　　推荐阅读

　　ASP让url的中文显示为编码

asp解码url 复制代码 代码如下: <a href="1.asp?action=<%=server.urlencode("你好")%>">asdf</a> 解码函数 [code] <% Function URLDecode(enStr) dim deStr,strSpecial dim c,i,v deStr="" strSpecial="!""#$%&'>>>详细阅读

本文标题：asp中将相对路径转换为绝对路径的函数代码

地址：http://www.17bianji.com/kaifa2/ASP/31859.html

 1/2    1