shop.asp

来自「网上购物系统 asp+sql server 2005」· ASP 代码 · 共 21 行

<%
'取得购物车清单
buylist = request.cookies("buyok")("cart")
'取得当前选购商品编号
buyid = Request("Prodid")
if buylist="" and buyid="" then
response.redirect "../error.asp?error=007"
response.end
end if
If Len(buylist) = 0 Then
'如果购物车内没有商品，则将当前选中商品加入一件。
buylist = "'" & buyid & "', '1'"
ElseIf InStr( buylist, buyid ) <= 0 Then
'如果购物车内有商品，且没有当前选中商品，则加入一件
buylist = buylist & ", '" & buyid & "', '1'"
End If
'保存购物清单
response.cookies("buyok")("cart") = buylist
response.redirect "check.asp"
%>