FormatRemoteUrl函数之asp实现格式化成当前网站完整(3)

        End If
        strUrl = Left(CurrentUrl, InStrRev(CurrentUrl, "/"))
        FormatRemoteUrl = strUrl & Replace(URL, "./", vbNullString)
        Exit Function
    End Function