Question

asp购物车重复加入产品

<%
Sub PutToShopBag( Prodid, ProductList )
If Len(ProductList) = 0 Then
ProductList = "'" & Prodid & "'"
ElseIf InStr( ProductList, Prodid ) <= 0 Then
ProductList = ProductList & ", '" & Prodid & "'"
End If
End Sub
%>
<%
ProductList = Session("ProductList")
Products = Split(Request("Product_Id"), ",")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList

If Session("UserName")<>"" Then
Response.Redirect"order_check.asp"
Else
%>

这个是购物车不能重复添加同一个产品
要是添加同一个怎么做呢？
谢谢大家
sqlc="select * from Product where Product_Id in ("&productlist&") order by Product_Id"

按你的方法做还是不能
要不你给我邮箱我发给你看看可以吗？

Answer 1

在www.hymcu.com可以找到你要找的答案。

Answer 2

If Len(ProductList) = 0 Then
ProductList = "'" & Prodid & "'"
ElseIf InStr( ProductList, Prodid ) <= 0 Then
ProductList = ProductList & ", '" & Prodid & "'"
End If
对不起改错了，没注意，应该是
If Len(ProductList) = 0 Then
ProductList = "'" & Prodid & "'"
Else
ProductList = ProductList & ", '" & Prodid & "'"
End If

那就没有道理了
是不是其他地方还有过滤的地方
你这样，找个地方输出Session("ProductList") 看看里面有没有重复的
如果没有，说明是这里还有过滤
如果有，可能是显示购物车的地方过滤了重复

Answer 3

能否添加同一个是在这个方法里做的---->PutToShopBag 你给出的代码没这个功能.

-------看错,楼下的正解.