• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    FormatRemoteUrl函数之asp实现格式化成当前网站完整的URL-将相对地址转换为绝对地址的代码
    '================================================
    '函数名:FormatRemoteUrl
    '作  用:格式化成当前网站完整的URL-将相对地址转换为绝对地址
    '参  数: url ----Url字符串
    '参  数: CurrentUrl ----当然网站URL
    '返回值:格式化取后的Url
    '================================================
        Public Function FormatRemoteUrl(ByVal URL,ByVal CurrentUrl)
            Dim strUrl
            If Len(URL)  2 Or Len(URL) > 255 Or Len(CurrentUrl)  2 Then
                FormatRemoteUrl = vbNullString
                Exit Function
            End If
            CurrentUrl = Trim(Replace(Replace(Replace(Replace(Replace(CurrentUrl, "'", vbNullString), """", vbNullString), vbNewLine, vbNullString), "\", "/"), "|", vbNullString))
            URL = Trim(Replace(Replace(Replace(Replace(Replace(URL, "'", vbNullString), """", vbNullString), vbNewLine, vbNullString), "\", "/"), "|", vbNullString))    
            If InStr(9, CurrentUrl, "/") = 0 Then
                strUrl = CurrentUrl
            Else
                strUrl = Left(CurrentUrl, InStr(9, CurrentUrl, "/") - 1)
            End If

            If strUrl = vbNullString Then strUrl = CurrentUrl
            Select Case Left(LCase(URL), 6)
                Case "http:/", "https:", "ftp://", "rtsp:/", "mms://"
                    FormatRemoteUrl = URL
                    Exit Function
            End Select

            If Left(URL, 1) = "/" Then
                FormatRemoteUrl = strUrl  URL
                Exit Function
            End If

            If Left(URL, 3) = "../" Then
                Dim ArrayUrl
                Dim ArrayCurrentUrl
                Dim ArrayTemp()
                Dim strTemp
                Dim i, n
                Dim c, l
                n = 0
                ArrayCurrentUrl = Split(CurrentUrl, "/")
                ArrayUrl = Split(URL, "../")
                c = UBound(ArrayCurrentUrl)
                l = UBound(ArrayUrl) + 1

                If c > l + 2 Then
                    For i = 0 To c - l
                        ReDim Preserve ArrayTemp(n)
                        ArrayTemp(n) = ArrayCurrentUrl(i)
                        n = n + 1
                    Next
                    strTemp = Join(ArrayTemp, "/")
                Else
                    strTemp = strUrl
                End If
                URL = Replace(URL, "../", vbNullString)
                FormatRemoteUrl = strTemp  "/"  URL
                Exit Function
            End If
            strUrl = Left(CurrentUrl, InStrRev(CurrentUrl, "/"))
            FormatRemoteUrl = strUrl  Replace(URL, "./", vbNullString)
            Exit Function
        End Function    
    您可能感兴趣的文章:
    • 易语言将指定的主机名与IP地址转换功能
    • PHP实现将优酷土豆腾讯视频html地址转换成flash swf地址的方法
    • 将IP地址转换为整型数字的PHP方法、Asp方法和MsSQL方法、MySQL方法
    • 两端口路由器地址转换的例子
    • Cisco 路由器动态和静态地址转换
    • 如何把URL和邮件地址转换为超级链接?
    • 使用网络地址转换实现多服务器负载均衡
    • NAT网络地址转换详情
    上一篇:ReSaveRemoteFile函数之asp实现查找文件保存替换的代码
    下一篇:ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    FormatRemoteUrl函数之asp实现格式化成当前网站完整的URL-将相对地址转换为绝对地址的代码 FormatRemoteUrl,函数,之,asp,