在电子商务网站上为客户推荐类似产品

时间:2014-10-11 10:47:04

标签: vb.net

我是VB asp.net的新手。我创建了一个销售电子书的电子商务网站,它有我的产品的目录和购物车,工作得很好。我现在希望能够在用户向购物车添加内容时为类似产品提供建议,但我不确定如何进行此操作。我正在考虑检查购物车内的物品,然后检查它属于哪个类别,然后在购物者的同一类别的副产品上显示。但我不知道该怎么做。有人可以帮帮我吗。例如,如果客户选择数学教科书并点击"添加到购物车"然后程序应该显示更多的数学教科书。

我试过这个不起作用......

Dim连接为SqlConnection             Dim mathcommand As SqlCommand             Dim sqlString As String             Dim rdr作为SqlDataReader             sqlString =(" SELECT * FROM books WHERE Subject =' Mathematics'")             mathcommand =新的SqlCommand(sqlString)             如果Session(" cart")是sqlString那么

            connection = New SqlConnection(" Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\ebooksshelve.mdf;Integrated Security=True")


            mathcommand.CommandType = CommandType.Text
            mathcommand.Connection = connection
            mathcommand.Connection.Open()
            mathcommand.ExecuteNonQuery()
            rdr = mathcommand.ExecuteReader(CommandBehavior.CloseConnection)



            Dim bookinfo As String = " "
            If rdr.HasRows Then
                bookinfo &= "<table class ='table' border='8'>"
                Do While rdr.Read
                    Dim book As String = "<tr>"

                    book &= "<tr>" _
                       & "<td><ul>" _
                                   & "<font size='5'><b> <a href='ProductDescription.aspx?prodID=" & rdr("Id") & "' >" & rdr("Name") & "</a></b></font>" _
                                    & "<li><b>ISBN: " & rdr("ISBN") & "</b></li>" _
                                    & "<li><b>Name: " & rdr("Name") & "</b></li>" _
                                    & "<li><b>Author: " & rdr("Author") & "</b></li>" _
                                    & "<li><b>Price: R " & rdr("Price") & "</b></li>" _
                                    & "<li><b>Subject: " & rdr("Subject") & "</b></li>" _
                                       & "</ul></td>" _
                                    & "<td> <img src= '" & rdr("Image") & "' width=175 height=175/></td>"
                    book &= "</tr>"
                    bookinfo &= book

                Loop
                bookinfo &= "</table>"

            End If

            mathcommand.Connection.Close()
            mathcommand.Dispose()
            connection.Dispose()
        End If

1 个答案:

答案 0 :(得分:0)

您还需要改进查询:

SELECT * FROM books WHERE主题='数学'和ID&lt;&gt; PRODUCTID(选定产品编号)

最好不要在类似产品中再次显示已选择的产品