productview.aspx.vb

来自「讲解visual studio的应用」· VB 代码 · 共 33 行

Partial Class Products_ProductView
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles Me.Load
        AddHandler SiteMap.SiteMapResolve, AddressOf Me.TweakUrls
    End Sub

    Private Function TweakUrls(ByVal sender As Object, _
        ByVal e As SiteMapResolveEventArgs) As SiteMapNode
        Dim myCurrentNode As SiteMapNode = SiteMap.CurrentNode.Clone(True)
        Dim MyTraversingNode As SiteMapNode = myCurrentNode

        Dim ProductGroupID As Integer = DetermineProductGroup()

        MyTraversingNode = MyTraversingNode.ParentNode
        If Not (MyTraversingNode Is Nothing) Then
            MyTraversingNode.Url = MyTraversingNode.Url & "?ProductGroupID=" & _
                ProductGroupID.ToString()
            MyTraversingNode.Title = "Product List (Group " & ProductGroupID.ToString _
                & ")"
        End If

        Return myCurrentNode

    End Function

    Private Function DetermineProductGroup() As Integer
        Return 3
    End Function
End Class