📄 shop.asp
字号:
<%
'取得购物车清单
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"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -