arrCart = Session("myCart")
CartIndex = Session("cartIndex")
count=0
for i=0 to CartIndex
if arrCart(i,2)<>"" then
if arrCart(i,2)>0 then
count=count+1
end if
end if
next
idbook = request.form("idbook")
bookname = request.form("bookname")
purchase = request.form("purchase")
availstock = request.form("availstock")
if purchase <>"" then
purchase=Cint(purchase)
availstock=availstock
if purchase>availstock then
htmlcode="你购买的数量超过了库存图书的数量! <a href=""viewitem.asp?idbook="&idbook&"&bookname="&bookname&""">返回</a>"
response.write htmlcode
else
if purchase>0 then
call openDB()
sql="select price,discount from books where idbook="&idbook&" and bookname='"&bookname&"'"
set rs=conn.execute(sql)
nowprice=rs("price")*(100-rs("discount"))/100
arrCart(CartIndex,0) = idbook
arrCart(CartIndex,1) = bookname
arrCart(CartIndex,2) = purchase
arrCart(CartIndex,3) = nowprice
session("myCart") = arrCart
CartIndex = CartIndex + 1
Session("cartIndex") = CartIndex
call closeDB()
end if
response.redirect "showcart.asp"
end if
else
response.write"你没有选择图书数量!"
end if
%>
在global.asa里面有:
SUB Session_OnStart
Session("idcustomer") = ""
Session("adminname") = ""
Session("cartIndex") = Cint(0)
ReDim arrcart(50,3)
Session("myCart") = arrcart
END SUB
SUB Session_OnEnd
set Session("idCustomer") = Nothing
set Session("adminname") = Nothing
set Session("cartIndex") = Nothing
set Session("myCart") = Nothing
END SUB
重点是arrCart,myCart,cartIndex。
各代表什么。添加商品入购物车的来龙去脉。详细的可以再加分。
其中purchase=要购买的数量
availstock=可销售的数量
bookname=书籍名称