Question

asp代码如何实现在购物车里吧已经付过款的物品消除或者加标记?（求源代码）

我用asp代码设计一个购物车，用户可以吧多种商品加入购物车，但是他可以选择其中的几种商品进行付款，而不是必须全部付款，付完款之后使得购物车中已付款的商品清除或者加上标记
未付款的商品还在购物车里

Answer 1

请先附上购物车记录结构,,,,

追问

上边两张图是access数据库中读取的数据和数据量库结构，用户把喜欢的商品放入订购单数据表，购物车就是从这张表里读取的数据显示在网页上，即为购物车中的商品，这只是一个用户的商品，不同用户的商品以用户名进行区别，现在我想做购物车和订购单，购物车可以有多种商品，但是只要支付之后，订购单里显示的是已付款的商品，购物车里显示的是未付款的商品，非常感谢！！！加分！

追答

我给你一个思路

Dim ProductID,BuyID
ProductID="6,7,3,15,34,97,65,33,2" '购物车中未支付商品ID
BuyID="7,15,33,2" 'BuyID 为 ProductID 的子集,即已支付商品ID
'据题义要求,支付过的商品不得出现在未支付组中
'所以,新的未支付ID组如下
'ProductID="6,3,34,97,65"
'解法如下
Response.Write "客户选择了如下商品:"&ProductID&"<BR />"
Response.Write "客户支付了如下商品:"&BuyID&"<BR />"
Dim Buy_Arr,Pro_Arr,B,P,I,J
Pro_Arr=Split(ProductID,",")
Buy_Arr=Split(BuyID,",")
P=Ubound(Pro_Arr)
B=Ubound(Buy_Arr)
For I=0 To B
For J=0 To P
IF Buy_Arr(I)=Pro_Arr(J) Then '过滤掉组中被支付的ID
Pro_Arr(J)=""
End if
Next
Next
ProductID="" '清空购物车
For I=0 To P
If Pro_Arr(I)<>"" Then
ProductID=ProductID&Pro_Arr(I)&"," '重建购物车ID组
End IF
Next
ProductID=Left(ProductID,Len(ProductID)-1) '删除最后一个逗号
Response.Write "客户尚未支付商品:"&ProductID&"<BR />"

结果如下:

至于,增加未支付商品就更简单了,,ProductID=ProductID&","&Request.Form("提交的商品ID")

追问

运行结果

可不可以弄成这样的？如果未购买的话，就在最后一栏里显示未购买，还可以！你这样弄也可以，不过得写入数据库也可以在数据库里再写入一栏用0和1进行判断是否已购买，1就是购买了，0就是未购买

追答

你得把未支付与已支付分成两张表的.已支付做为历史存根,必须存在,可以不显示,但不能删除.
未支付的,可以随便改.
即,客户在选择部分支付后,在账单表里删除支付项,转到已支付表中插入支付项数据.
-------------------
这样,客户在支付了部分商品后,又继续购物则可以在原有未支付表中继续.