shop.asp

这是一个很漂亮的网站购物系统

<!--
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
★                                                                  ★
☆ （请保留此处版权信息，这些内容并不会对您的网站运行有任何影响）   ☆
★                                                                  ★
☆                良精网店系统-白金版                              ☆
★                                                                  ★
☆  版权所有: 北京良精软件科技有限公司                              ☆
★                                                                  ★
☆  程序开发: 北京良精软件科技有限公司                              ☆
★            MSN:[e-mail] [e-mail]         ★
☆            Tel:[phone]    销售QQ:88353022 技术QQ:812256     ☆
★                                                                  ★
☆  相关网址:http://www.liangjing.net                               ☆
★                                                                  ★
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
-->
<%
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"
%>