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
关键词:asp
相关阅读
- 07-28asp版百度ueditor在线编辑器上传图片错误(无权限问题修复)
- 05-05Windows2008 64位IIS7+ACCESS数据库无法打开Asp页面
- 05-05win7 iis7.5 Request 对象 错误 'ASP 0104 : 80004005'
- 10-16"Request 对象 错误 'ASP 0104 : 80004005'”解决办法
- 05-03Win7 IIS7.5配置解决ASP的500错误
- 04-07ASP和PHP的区别所在
- 03-09aspx文件怎么打开,ASPX的文件用什么打开?
- 03-04301转向代码大合集 包括IIS、apache和PHP程序/asp程序的301转向设置
- 02-28asp.net“服务器应用程序不可用"解决方法
- 09-24修改IIS的 ASPMaxRequestEntityAllowed
阅读本文后您有什么感想? 已有 人给出评价!
用户评论
热门评论
最新评论
相关软件
热点图文
- 05-02解决:错误提示:Microsoft OLE DB Provider for ODBC Drivers (0x80004005) ...不能更新
- 05-02解决:ADODB.Stream 错误 '800a0bbc' 写入文件失败
- 07-28asp版百度ueditor在线编辑器上传图片错误(无权限问题修复)
- 04-08对象不支持此属性或方法: 'Response.CharSet'
- 04-13asp是什么文件/asp是什么意思/asp是什么格式
- 05-11asp将access数据导出为excel电子表的方法
- 06-14ASP实例教程:FileSystemObject对象
- 07-14使用NetBox编译asp 完全摆脱iis束缚
- 01-10ASP连接Excel文件的方法
- 07-17Microsoft JET Database Engine 错误 '80004005' 错误解决办法