Const DEFAULT_UNNAMED_PAGE_TITLE As String = "Untitled Page"
    Const DEFAULT_PAGE_TITLE As String = "Welcome to my Website!!"

    Protected Sub Page_Load(ByVal sender As Object， ByVal e As System.EventArgs) Handles Me.Load
        'Set the page's title， if needed
        If String.IsNullOrEmpty(Page.Title) OrElse Page.Title = DEFAULT_UNNAMED_PAGE_TITLE Then
            If SiteMap.CurrentNode Is Nothing Then
                Page.Title = DEFAULT_PAGE_TITLE
            Else
                Page.Title = GetPageTitleBasedOnSiteNavigation()

                'Can also use the following if you'd rather
                'Page.Title = GetPageTitleBasedOnSiteNavigationUsingRecursion(SiteMap.CurrentNode)
            End If
        End If
    End Sub

    Private Function GetPageTitleBasedOnSiteNavigation() As String
        If SiteMap.CurrentNode Is Nothing Then
            Throw New ArgumentException("currentNode cannot be Nothing")
        End If

        'We are visiting a page defined in the site map - build up the page title
        'based on the site map node's place in the hierarchy

        Dim output As String = String.Empty
        Dim currentNode As SiteMapNode = SiteMap.CurrentNode

        While currentNode IsNot Nothing
            If output.Length > 0 Then
                output = currentNode.Title & " :: " & output
            Else
                output = currentNode.Title
            End If

            currentNode = currentNode.ParentNode
        End While

        Return output
    End Function