particular.aspx.vb

电子商务买书的网站

Public Class Particular
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents myDataList As System.Web.UI.WebControls.DataList
    Protected WithEvents myRepeater As System.Web.UI.WebControls.Repeater

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region
    Protected myTop10 As New shopb.top10

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not Page.IsPostBack Then
            '首先返回本书的KindId
            Dim dbk As New DataBook(Request.QueryString("BookId"))
            Dim intKindId As Integer = dbk.KindId
            '设置用户控件的属性
            myTop10.KindId = intKindId
            '下面绑定分类栏和本书信息
            Call myDataBind()
        End If
    End Sub
    '该过程用来绑定数据
    Sub myDataBind()
        '下面首先绑定myReapter控件，用来显示类别信息
        Dim dbs As New DataBusiness
        myDataList.DataSource = dbs.GetKind()
        myDataList.DataBind()
        '下面绑定本书具体信息
        myRepeater.DataSource = dbs.GetOneBook(Request.QueryString("BookId"))
        myRepeater.DataBind()
    End Sub

End Class