shop.asp

来自「是一套很好的数码购物系统」· ASP 代码 · 共 23 行

<%
if request.cookies("buyok_user_ip")="" then
response.write "<script language='javascript'>"
response.write "alert('对不起，您的电脑没有开启COOKIES，您无法保存购物信息。\n\n请设置您的IE开启COOKIES后再打开本页。');"
response.write "location.href='javascript: window.close()';"
response.write "</script>"
response.end
end if

buylist = request.cookies("buyok")("cart")
buyid = Request("Prodid")
if buylist="" and buyid="" then
response.redirect "../shop_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"
%>