如何获取当前WEB页的地址

Question

'返回当前Web页的URL地址，如http://www.aaa.com/news
        Public Function GetBaseURL() As String
            Dim strUrl As String = ("http://" & HttpContext.Current.Request.Url.Host & HttpContext.Current.Request.RawUrl)
            Dim intIndex As Integer = strUrl.LastIndexOf("/") + 1
            strUrl = strUrl.Remove(intIndex, (strUrl.Length - intIndex))
            Return strUrl
        End Function