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