副本 categorytreecontrol.ascx.vb.exclude

来自「C#语言制作asp.net网上商店的」· EXCLUDE 代码 · 共 111 行

Imports System.Data
Imports NetShopForge.Library.Category
Partial Class Shop_Controls_CategoryTreeControl
    Inherits System.Web.UI.UserControl
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    

        If Not IsPostBack Then
            hfCategoryID.Value = Request("CatID")
            If hfCategoryID.Value.Length = 0 Then
                hfCategoryID.Value = -1
            End If
            Dim cID As Integer = CInt(hfCategoryID.Value)

            If cID = -1 Then
                CategoryTitle.Text = "商品类别"
                mvCategory.ActiveViewIndex = 0
                BindCategory()
            Else
                CategoryTitle.Text = "商品细化分类"
                mvCategory.ActiveViewIndex = 2


                'BindSubCategory(cID)
                'lbSubCategory.Text = CategoryController.GetCategoryName(cID)
                'Dim fID As Integer = CategoryController.GetCategoryFatherID(cID)
                'If fID <> -1 Then
                '    hlFatherCategory.NavigateUrl = String.Format("~/Category.aspx?CatID={0}", fID.ToString)
                '    hlFatherCategory.Text = "[查看上一级分类]"
                'Else

                '    hlFatherCategory.NavigateUrl = "~/default.aspx"
                '    hlFatherCategory.Text = "[返回首页]"
                'End If


                Dim fID As Integer = CategoryController.GetCategoryFatherID(cID)
                BindCategory2(fID)
                If fID <> -1 Then
                    hlFatherCategory2.NavigateUrl = String.Format("~/Category.aspx?CatID={0}", fID.ToString)
                    hlFatherCategory2.Text = "[查看上一级分类]"
                Else

                    hlFatherCategory2.NavigateUrl = "~/default.aspx"
                    hlFatherCategory2.Text = "[返回首页]"
                End If


            End If
        End If

    End Sub


    Private Sub BindCategory()

        Using dtt As DataTable = CategoryController.GetSubCategoryTable(-1)
            listTopLevelCategory.DataKeyField = "CategoryID"
            listTopLevelCategory.DataSource = dtt
            listTopLevelCategory.DataBind()
        End Using
    End Sub
    Private Sub BindCategory2(ByVal categoryID As Integer)

        Using dtt As DataTable = CategoryController.GetSubCategoryTable(categoryID)
            listTopLevelCategory2.DataKeyField = "CategoryID"
            listTopLevelCategory2.DataSource = dtt
            listTopLevelCategory2.DataBind()
        End Using
    End Sub




    Private Sub BindSubCategory2(ByVal categoryID As Integer)
        Using dtt As DataTable = CategoryController.GetSubCategoryTable(categoryID)
            For Each r As DataRow In dtt.Rows
                blSubCategory.Items.Add(New ListItem(r("CategoryName"), String.Format("~/Category.aspx?CatID={0}", r("CategoryID"))))
            Next
        End Using
    End Sub

    Protected Sub listTopLevelCategory_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles listTopLevelCategory.ItemDataBound
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            Dim ListSubCategory As DataList = CType(e.Item.FindControl("ListSubCategory"), DataList)

            Dim id As Integer = listTopLevelCategory.DataKeys(e.Item.ItemIndex)
            Using dtt As DataTable = CategoryController.GetSubCategoryTable(id)
                ListSubCategory.DataSource = dtt
                ListSubCategory.DataBind()
            End Using
        End If
    End Sub

  
    Protected Sub listTopLevelCategory2_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles listTopLevelCategory2.ItemDataBound
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then

            Dim id As Integer = listTopLevelCategory2.DataKeys(e.Item.ItemIndex)
            If id = CInt(hfCategoryID.Value) Then
                Dim rpCategory As Repeater = CType(e.Item.FindControl("rpCategory"), Repeater)
                CType(e.Item.FindControl("linkTopLevelCategory"), HyperLink).ForeColor = Drawing.Color.Orange
                rpCategory.DataSource = CategoryController.GetSubCategoryTable(id)
                rpCategory.DataBind()

            End If
            
        End If
    End Sub
End Class