Recuperare l'URL della root di un sito

La function che propongo questa volta permette di recuperare, in una qualsiasi pagina aspx, l'indirizzo URL della root del sito che la ospita.


Protected Function GetSiteRoot() As String
 Dim virtualPathItems As String() = Me.Request.Path.Split("/")
 Dim urlPathItems As String() = Me.Request.Url.AbsoluteUri.Split("/")
 Dim siteRoot As New StringBuilder
 For i As Int16 = 0 To urlPathItems.Length - 1
  siteRoot.Append(urlPathItems(i))
  If String.Compare(urlPathItems(i), virtualPathItems(1)) = 0 Then
   Exit For
  Else
   siteRoot.Append("/")
  End If
 Next
 Return siteRoot.ToString()
End Function