<% 'if request.cookies("snsn")("username")="" then 'response.write "" 'response.End 'end if dim bookid,username,action action=request.QueryString("action") username=trim(request.cookies("snsn")("username")) if (username="") then username = session.sessionID end if bookid=request.QueryString("id") '//删除收藏 select case action case "del" conn.execute "delete from shop_action where actionid="&request.QueryString("actionid") if request.QueryString("ll")=22 then response.redirect "myuser.asp?action=shoucang" else response.redirect "gouwu.asp?action=show" end if response.End case "add" '//商品，判断是否存在 set rs_s=server.CreateObject("adodb.recordset") rs_s.open "select * from shop_books where bookid="&bookid,conn,1,1 if request.Cookies("snsn")("reglx")=1 then danjia=rs_s("huiyuanjia") else danjia=rs_s("huiyuanjia") end if kucun=rs_s("kucun") bookname=rs_s("bookname") rs_s.close set rs_s=nothing 'if kucun<=0 then 'response.write "" 'response.end 'end if set rs=server.CreateObject("adodb.recordset") rs.open "select bookid,username,bookcount,zonger from shop_action where username='"&username&"' and bookid="&bookid&" and zhuangtai=7",conn,1,3 if rs.recordcount=1 then 'if kucun<(rs("bookcount")+1) then 'response.write "" 'response.end 'end if rs("zonger")=(rs("bookcount")+1)*danjia rs("bookcount")=rs("bookcount")+1 rs.update rs.close set rs=nothing response.Redirect "gouwu.asp?action=show" else '//添加购物 rs.close set rs=server.CreateObject("adodb.recordset") rs.open "select bookid,username,zhuangtai,zonger,bookcount from shop_action",conn,1,3 rs.addnew rs("bookid")=bookid rs("username")=username rs("zhuangtai")=7 rs("bookcount")=1 rs("zonger")=danjia rs.update rs.close set rs=nothing response.Redirect "gouwu.asp?action=show" end if case "show" '////////////////// %> <%=webname%>--我的购物车 <% response.write "
我的购物车
" set rs=server.CreateObject("adodb.recordset") rs.open "select shop_action.actionid,shop_action.bookid,shop_action.bookcount,shop_action.zonger,shop_books.bookname,shop_books.shichangjia,shop_books.huiyuanjia,shop_books.vipjia from shop_books inner join shop_action on shop_books.bookid=shop_action.bookid where shop_action.username='"&username&"' and shop_action.zhuangtai=7",conn,1,1 %>

<%shuliang=rs.recordcount jianshu=0 zongji=0 do while not rs.eof%> <% jianshu=jianshu+rs("bookcount") zongji=zongji+rs("zonger") rs.movenext loop rs.close set rs=nothing%> <%set snsn=server.CreateObject("adodb.recordset") snsn.open "select * from shop_action_jp where username='"&username&"' and zhuangtai=7",conn,1,1 if snsn.recordcount>0 then%> <%end if snsn.close set snsn=nothing%>
商品名称
单价
数量
总价
删除
<% if request.Cookies("snsn")("reglx")=2 then response.write rs("vipjia") else response.write rs("huiyuanjia") end if%> 元
<%=rs("bookcount")%>
<%=rs("zonger")%>元
购物车里有商品：<%=shuliang%>件　总数：<%=jianshu%>件　共计：<%=zongji%>元　您有预存款：<%=request.cookies("snsn")("yucun")%>元 <%if request("lx")<>1 then %>
购物车将在6分钟后自动关闭 <%end if%>
<% while not snsn.eof%> <% snsn.movenext wend%>
您已选择的奖品清单
奖品名称 使用积分 删除
<% set snsn1=server.CreateObject("adodb.recordset") snsn1.open "select * from shop_jiangpin where bookid="&snsn("bookid"),conn,1,1 if snsn1.recordcount=1 then response.write ""&snsn1("bookname")&"" end if snsn1.close set snsn1=nothing%> <%=snsn("jifen")%> &action=del&ll=22">

<% end select%>