ASP.NET 2.0中动态修改页面标题

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