当前位置:首页 > 网站维护 > 列表

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

来源:浦一科技点击:时间:2016-11-3 关键词:asp 相对路径 绝对路径
代码如下:'================================================'函数名:ChkMapPath'作用:相对路径转换为绝对路径'参数:strPath----原路径'返回值:绝对路径'==================
代码如下:

'================================================ 
' 函数名: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 

服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词