&;nbsp;XML&;nbsp; &;nbsp;XSL&;nbsp;&;nbsp; <% '向购物车中添加某一物品 sub puttoshopcart(goodsid,session("shopcart")) if len(session("shopcart"))=0 then session("shopcart")=goodsid elseif instr(goodsid,session("shopcart"))<0 then session("shopcart")=session("shopcart") &;","&;goodsid response.W rite(" ") else response.Write(" ") end if end sub '删除购物车中的某一物品 sub delfromshopcart(goodsid,session("shopcart")) if len(session("shopcart"))<>0 then session("shopcart")="" '清空原 session("sho