基于cookies的小型购物车程序

最近因为公司项目开发，需要一个购物车程序。
虽然网上很多，但个人很久前就想写个。于是马上动手。
代码有点多，感觉方法不怎么好！
随便post上来，高手可略过~！

mycart.asp客户端：
<form method="POST" action="mycart.asp">
<table border="0" width="489" cellspacing="1" id="table1">
 <tr>
  <td bgcolor="#C0C0C0">产品名称</td>
  <td bgcolor="#C0C0C0">数量</td>
  <td bgcolor="#C0C0C0">合价</td>
  <td bgcolor="#C0C0C0">操作</td>
 </tr>
 
 <%
 Nid=split(request.cookies("myCartInfo")("proID"),"|") '商品ID
 Nnum=split(request.cookies("myCartInfo")("num"),"|")  '订购数量
 Nprice=split(request.cookies("myCartInfo")("price"),"|") '单价
 
 for k=1 to ubound(Nid)+1
 %>
 <tr>
  <td>
  <%
  set rs=conn.execute("select productName from product where id="&Nid(k-1)&"")
  response.write rs(0)
  set rs=nothing
  %>
  </td>
  <td><input type="text" name="num" size="4" value="<%=Nnum(k-1)%>"></td>
  <td>&yen;<%=Nprice(k-1)*Nnum(k-1)%></td>
  <td><a href="mycart.asp?action=remove&location=<%=k-1%>">移除</td>
 </tr>
 <%next%>
 <tr>
  <td colspan="4">
  <p align="center">
  <input type="submit" value="清空购物车" name="action">
  <input type="submit" value="继续购物" name="action">
  <input type="submit" value="更新数量" name="action">
  <input type="submit" value="去结帐" name="action">
  </td>
  </tr>
    </table>
</form>

mycart.asp服务端：

<%
dim action
action=request("action")

select case action

'添加记录
'从产品展示页面“购买”链接过来的
case "add"
productID=HTMLEncode(request.querystring("id"))
set rs=conn.execute("select * from product where id="&productID&"")
if rs.eof then
set rs=nothing
response.write("找不到相应产品!")
response.end
end if

'截取
theid=split(request.cookies("myCartInfo")("proID"),"|")
thenum=split(request.cookies("myCartInfo")("num"),"|")
theprice=split(request.cookies("myCartInfo")("price"),"|")

'清空
response.cookies("myCartInfo")=""

'判断
select case ubound(theid)
 case "-1"
   response.cookies("myCartInfo")("proID")=productID   '产品ID
   response.cookies("myCartInfo")("num")=1   '订购数量
   response.cookies("myCartInfo")("price")=rs("price2")   '单价
   response.cookies("myCartInfo").Expires=Date+7
 case "0"
   if theid(0)=productID then
   response.cookies("myCartInfo")("proID")=theid(0)
   response.cookies("myCartInfo")("num")=thenum(0)+1
   response.cookies("myCartInfo")("price")=theprice(0)
   response.cookies("myCartInfo").Expires=Date+7
   else
   response.cookies("myCartInfo")("proID")=theid(0)&"|"&productID   '产品ID
   response.cookies("myCartInfo")("num")=thenum(0)&"|"&"1"   '订购数量
   response.cookies("myCartInfo")("price")=theprice(0)&"|"&rs("price2")   '单价
   response.cookies("myCartInfo").Expires=Date+7
   end if
 case else
   for mm=1 to ubound(theid)+1
    if theid(mm-1)=productID then '此产品ID己存在
      if request.cookies("myCartInfo")("proID")="" then
        response.cookies("myCartInfo")("proID")=theid(mm-1)
        response.cookies("myCartInfo")("num")=thenum(mm-1)+1
        response.cookies("myCartInfo")("price")=theprice(mm-1)
      else
        response.cookies("myCartInfo")("proID")=request.cookies("myCartInfo")("proID")&"|"&theid(mm-1)
        response.cookies("myCartInfo")("num")=request.cookies("myCartInfo")("num")&"|"&thenum(mm-1)+1
        response.cookies("myCartInfo")("price")=request.cookies("myCartInfo")("price")&"|"&theprice(mm-1)
      end if
      response.cookies("myCartInfo")(""&productID&"hasadd")=1
      response.cookies("myCartInfo").Expires=Date+7
    else
      if request.cookies("myCartInfo")("proID")="" then
        response.cookies("myCartInfo")("proID")=theid(mm-1)
        response.cookies("myCartInfo")("num")=thenum(mm-1)
        response.cookies("myCartInfo")("price")=theprice(mm-1)
        response.cookies("myCartInfo").Expires=Date+7
      else
        response.cookies("myCartInfo")("proID")=request.cookies("myCartInfo")("proID")&"|"&theid(mm-1)   '产品ID
        response.cookies("myCartInfo")("num")=request.cookies("myCartInfo")("num")&"|"&thenum(mm-1)  '订购数量
        response.cookies("myCartInfo")("price")=request.cookies("myCartInfo")("price")&"|"&theprice(mm-1)   '单价
        response.cookies("myCartInfo").Expires=Date+7
      end if
    end if
   next
  
        if request.cookies("myCartInfo")(""&productID&"hasadd")<>"1" then
        response.cookies("myCartInfo")("proID")=request.cookies("myCartInfo")("proID")&"|"&productID   '产品ID
        response.cookies("myCartInfo")("num")=request.cookies("myCartInfo")("num")&"|"&"1"  '订购数量
        response.cookies("myCartInfo")("price")=request.cookies("myCartInfo")("price")&"|"&rs("price2")   '单价
        response.cookies("myCartInfo").Expires=Date+7
        end if
       
end select
set rs=nothing
response.redirect("mycart.asp")

'移除某一商品
case "remove"
theid=split(request.cookies("myCartInfo")("proID"),"|")
thenum=split(request.cookies("myCartInfo")("num"),"|")
theprice=split(request.cookies("myCartInfo")("price"),"|")

response.cookies("myCartInfo")("proID")=""
response.cookies("myCartInfo")("num")=""
response.cookies("myCartInfo")("price")=""

for kk=1 to ubound(theid)+1
if theid(kk-1)=theid(request.querystring("location")) then
else
  if kk=1 then
    response.cookies("myCartInfo")("proID")=theid(kk-1)
    response.cookies("myCartInfo")("num")=thenum(kk-1)
    response.cookies("myCartInfo")("price")=theprice(kk-1)
  else
    if request.cookies("myCartInfo")("proID")="" then
    response.cookies("myCartInfo")("proID")=theid(kk-1)
    response.cookies("myCartInfo")("num")=thenum(kk-1)
    response.cookies("myCartInfo")("price")=theprice(kk-1)
    else
    response.cookies("myCartInfo")("proID")=request.cookies("myCartInfo")("proID")&"|"&theid(kk-1)
    response.cookies("myCartInfo")("num")=request.cookies("myCartInfo")("num")&"|"&thenum(kk-1)
    response.cookies("myCartInfo")("price")=request.cookies("myCartInfo")("price")&"|"&theprice(kk-1)
    end if
  end if
end if
next
response.redirect("mycart.asp")

case "更新数量"
response.cookies("myCartInfo")("num")=""
newNum=HTMLEncode(request.form("num"))

thenum=split(newNum,",")
if ubound(thenum)=0 then
  response.cookies("myCartInfo")("num")=thenum(0)
else
  for p=1 to ubound(thenum)+1
   if p=1 then
   response.cookies("myCartInfo")("num")=thenum(p-1)
   else
   response.cookies("myCartInfo")("num")=request.cookies("myCartInfo")("num")&"|"&trim(thenum(p-1))
   end if
  next
end if
response.redirect("mycart.asp")

case "去结帐"
'转到要求顾客填写收货信息的页面
'在continueBuy.asp页面要调用订购信息的话，可直接向cookies中调用。调用方法与本页方法类似。
response.redirect("continueBuy.asp?action="&server.urlencode("去结帐"))
response.end

case "清空购物车"
response.cookies("myCartInfo")=""

case "继续购物"
response.Redirect("product.asp")

end select
%>