您正在使用IPV4(3.236.214.224)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】618云上GO!云服务器限时秒杀,1核2G首年95元!       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 建党节 9
2021年 建军节 40
2022年 元 旦 193
2022年 春 节 224
 
  • 您现在的位置:首页 >> ASP >> 内容

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

    内容摘要: '================================================' 函数名:ChkMapPath' 作 用:相对路径转换为绝对路径' 参 数:strPath ----原路径' 返回值:绝对路径'================================================Function ChkMapPat......

      

    '================================================

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

    手机扫描二维码可直达本页
      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2021/6/15 发布时间:12:34:56 点击:41 录入:齐天大圣
  • 上一篇:asp 关键词高亮显示(不区分大小写)
  • 下一篇:asp调用Word打印的代码
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.5 Build 21.06.17(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021