productcontroller.vb

C#语言制作asp.net网上商店的

            ' Input parameters can specify the input value
            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, productID)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Return FillProductInfo(reader)
                End While
                Return Nothing
            End Using

        End Function

        Public Shared Function HasProductOption(ByVal productID As Integer) As Boolean

            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetAttributeXML")
            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, productID)
            Return (db.ExecuteScalar(dbCommand).ToString.Length > 0)
        End Function

        Public Shared Function GetProductFeatureList(ByVal productID As Integer) As List(Of ProductFeatureInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetProductFeature")
            ' Add paramters
            ' Input parameters can specify the input value
            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, productID)
            Dim FeatureList As New List(Of ProductFeatureInfo)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    FeatureList.Add(New ProductFeatureInfo(reader.Item("FeatureName"), reader.Item("FeatureValue")))
                End While
                Return FeatureList
            End Using
        End Function

        Public Shared Function GetFeatureProductList(ByVal categoryID As Integer) As List(Of ProductInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetFeatureProducts")
            Dim Products As New List(Of ProductInfo)
            db.AddInParameter(dbCommand, "@CategoryID", DbType.Int32, categoryID)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Products.Add(FillProductInfo(reader))
                End While
                Return Products
            End Using
        End Function

        Public Shared Function GetSellWellProductList(ByVal categoryID As Integer) As List(Of ProductInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetSellWellProducts")
            Dim Products As New List(Of ProductInfo)
            db.AddInParameter(dbCommand, "@CategoryID", DbType.Int32, categoryID)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Products.Add(FillProductInfo(reader))
                End While
                Return Products
            End Using
        End Function
        Public Shared Function GetNewArrivalProductList(ByVal categoryID As Integer) As List(Of ProductInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetNewArrivalProducts")
            Dim Products As New List(Of ProductInfo)
            db.AddInParameter(dbCommand, "@CategoryID", DbType.Int32, categoryID)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Products.Add(FillProductInfo(reader))
                End While
                Return Products
            End Using
        End Function
        Public Shared Function GetSpecialOfferProductList(ByVal categoryID As Integer) As List(Of ProductInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetSpecialOfferProducts")
            Dim Products As New List(Of ProductInfo)
            db.AddInParameter(dbCommand, "@CategoryID", DbType.Int32, categoryID)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Products.Add(FillProductInfo(reader))
                End While
                Return Products
            End Using
        End Function
        Public Shared Function GetCommendProductList(ByVal categoryID As Integer) As List(Of ProductInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetCommendProducts")
            Dim Products As New List(Of ProductInfo)
            db.AddInParameter(dbCommand, "@CategoryID", DbType.Int32, categoryID)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Products.Add(FillProductInfo(reader))
                End While
                Return Products
            End Using
        End Function


        Public Shared Function GetCategoryIDByProductID(ByVal productID As Integer) As Integer
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetCategoryID")
            ' Add paramters
            ' Input parameters can specify the input value
            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, productID)
            Return db.ExecuteScalar(dbCommand)
        End Function
        'Public Function GetProdutOptionList(ByVal productID As Integer) As List(Of ProductOptionInfo)
        '    Dim db As Database = DatabaseFactory.CreateDatabase
        '    Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetProductOption")
        '    ' Add paramters
        '    ' Input parameters can specify the input value
        '    db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, productID)
        '    Dim OptionList As New List(Of ProductOptionInfo)
        '    Using reader As IDataReader = db.ExecuteReader(dbCommand)
        '        While reader.Read
        '            Dim po As New ProductOptionInfo
        '            po.ProductID = productID
        '            po.OptionName = reader.Item("OptionName")
        '            po.SelectText = reader.Item("SelectText")
        '            po.OptionID = reader.Item("OptionID")
        '            po.OptionSelect = GetProductOptionSelect(po.OptionID)
        '            OptionList.Add(po)
        '        End While
        '        Return OptionList
        '    End Using
        'End Function

        Public Shared Function GetProductLinksList(ByVal productID As Integer) As List(Of ProductLiksInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetProductLinksList")

            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, productID)
            Dim linksList As New List(Of ProductLiksInfo)

            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    linksList.Add(FillProductLinksInfo(reader))
                End While
                Return linksList
            End Using
            Return Nothing

        End Function

  
        Public Shared Function GetProductCategoryList(ByVal productID As Integer) As Generic.List(Of Integer)
            Dim cList As New List(Of Integer)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetProductCategoryList")
            ' Add paramters
            ' Input parameters can specify the input value
            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, productID)
            'Dim FeatureList As New List(Of ProductFeatureInfo)

            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    Dim cID As Integer = reader.Item("CategoryID")
                    cList.Add(cID)
                End While
            End Using
            Return cList
        End Function


        Public Shared Function GetProductRating(ByVal productID As Integer) As ProductRatingInfo
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetProductrating")

            db.AddInParameter(dbCommand, "@productID", DbType.Int32, productID)
            Dim pr As New ProductRatingInfo
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                While reader.Read
                    pr.Rating = reader("Rating")
                    pr.RatingQty = reader("RatingQty")
                    pr.RecommendQty = reader("RecommendQty")

                End While
                Return pr
            End Using

        End Function
        Public Shared Function GetDescriptorList(ByVal productID As Integer) As List(Of ProductDescriptorInfo)
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_GetProductProductDescriptor")
            ' Add paramters
            ' Input parameters can specify the input value
            db.AddInParameter(dbCommand, "@ProductID", DbType.Int32, productID)

            Dim DescriptorList As New List(Of ProductDescriptorInfo)

            Using reader As IDataReader = db.ExecuteReader(dbCommand)

                While reader.Read
                    DescriptorList.Add(FillProductDescriptorInfo(reader))
                End While
                Return DescriptorList
            End Using
        End Function




        Public Shared Function AddProductLinks(ByVal productLinks As ProductLiksInfo) As Integer
            Dim db As Database = DatabaseFactory.CreateDatabase()

            Dim sqlCommand As String = "nsf_Product_AddProductLinks"
            Dim dbCommand As DbCommand = db.GetStoredProcCommand(sqlCommand)
            Dim linksID As Integer = GetKeys("ProductLinksID")

            db.AddInParameter(dbCommand, "@ProductLinksID ", DbType.Int32, linksID)
            db.AddInParameter(dbCommand, "@ProductAID", DbType.Int32, productLinks.ProductAID)
            db.AddInParameter(dbCommand, "@ProductBID", DbType.Int32, productLinks.ProductBID)
            db.AddInParameter(dbCommand, "@LinkType", DbType.Int32, productLinks.LinkType)
            db.ExecuteNonQuery(dbCommand)
            Return linksID

        End Function

        Public Shared Function AddProductDescriptor(ByVal productDescriptorInfo As ProductDescriptorInfo) As Integer

            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetStoredProcCommand("nsf_Product_AddProductDescriptor")

            Dim DescriptorID As Integer = GetKeys("DescriptorID")