请稍候......

正在装入购物车，请稍候...... <% pid=request.querystring("id") if pid="" or len(pid) > 10 then errormsg="商品编号不能为空!" end if pid=replace(pid,"'","") pid=replace(pid,"""","") pid=replace(pid,"%20","") if errormsg<>"" then response.redirect"shop.asp" end if dim thedict set thedict=session("dict") if not thedict.exists(pid) then thedict.add pid,1 else thedict.item(pid)=thedict.item(pid)+1 end if randomize response.redirect"showcart.asp?id="&rnd() %>