Question

This question already has answers here:

Absolute path back to web-relative path (6 answers)

Closed 3 years ago.

我看到许多辅导员在解决相对权宜到绝对道路上,但我想做的是相反的:将一个系统绝对卷宗排入相对权。

Is there a nice hack-free way to turn a filepath like c:my_website_rootimagespicture_a.jpg into images/picture_a.jpg

我曾看过<代码>Uri.MakeRelative(),但我想,在这种情况下会使用。

Edit:我已经照此执行,似乎仍然很 ha(第2行)。

var urlPath = new Uri(@"c:mywebfolderimagespicture1.jpg");
var urlRoot = new Uri(Server.MapPath("~")+"/");
string relative = urlRoot.MakeRelativeUri(urlPath).ToString();

Answer 1

在IIS,建立了虚拟名录images,并将其贴在c:my_website_rootimages。

如果贵国网站已经指示c:my_website_root,那么你就不需要做任何事情。

Answer 2

如果你需要把所有相对的尿素转换为绝对的尿素,则使用这一缩略语:

Private Function ConvertALLrelativeLinksToAbsoluteUri(ByVal html As String, ByVal PageURL As String)
    Dim result As String = Nothing

      Getting all Href
    Dim opt As New RegexOptions

    Dim XpHref As New Regex("(href="".*?"")", RegexOptions.IgnoreCase)

    Dim i As Integer
    Dim NewSTR As String = html
    For i = 0 To XpHref.Matches(html).Count - 1
        Application.DoEvents()
        Dim Oldurl As String = Nothing
        Dim OldHREF As String = Nothing
        Dim MainURL As New Uri(PageURL)
        OldHREF = XpHref.Matches(html).Item(i).Value
        Oldurl = OldHREF.Replace("href=", "").Replace("HREF=", "").Replace("""", "")
        Dim NEWURL As New Uri(MainURL, Oldurl)
        Dim NewHREF As String = "href=""" & NEWURL.AbsoluteUri & """"
        NewSTR = NewSTR.Replace(OldHREF, NewHREF)


    Next

    html = NewSTR

    Dim XpSRC As New Regex("(src="".*?"")", RegexOptions.IgnoreCase)

    For i = 0 To XpSRC.Matches(html).Count - 1
        Application.DoEvents()
        Dim Oldurl As String = Nothing
        Dim OldHREF As String = Nothing
        Dim MainURL As New Uri(PageURL)
        OldHREF = XpSRC.Matches(html).Item(i).Value
        Oldurl = OldHREF.Replace("src=", "").Replace("src=", "").Replace("""", "")
        Dim NEWURL As New Uri(MainURL, Oldurl)
        Dim NewHREF As String = "src=""" & NEWURL.AbsoluteUri & """"
        NewSTR = NewSTR.Replace(OldHREF, NewHREF)


    Next


    Return NewSTR


End Function

友情链接