<% igoods=saferequest("goodid",1) action=request("action") itemid=saferequest("itemid",1) if igoods="" then response.Write "" response.End else select case action case "moveitem" 'response.redirect "dingdandetail2.asp?goodsid="&igoods 'response.end set rs3=server.CreateObject("adodb.recordset") rs3.open "select * from orders where goods='"& igoods &"' and actionid="& itemid &"",conn,1,3 rs3.delete 'response.Write rs3.recordcount 'response.Write "select * from orders where goods='"& igoods &"' and actionid="& itemid &"" rs3.close set rs3=nothing response.write "删除成功" 'response.end Response.clear response.redirect "dingdandetail.asp?action=changed&goodid="&igoods case "additem" if trim(request.form("addbh"))<>"" then set rs=server.CreateObject("adodb.recordset") rs.open "select * from [user] where username='"& request("username") & "'",conn,1,1 vip=rs("vip") set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from tproduct where tproduct_bh="& request.form("addbh") & "",conn,1,1 if not rs1.eof and not rs1.bof then '若输入的为有效编码，则继续 proid=rs1("id") select case vip case 0 addprice=rs1("tpricenet") case 1 addprice=rs1("tprice1") case 2 addprice=rs1("tprice2") case 3 addprice=rs1("tprice3") case 4 addprice=rs1("tprice4") end select 'rs.close set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from orders",conn,1,3 'response.Write "
" & rs2.recordcount &" " & request("username") &" " & proid &" " & request.form("addnum") &" " & igoods &" " & 1 &" " & addprice rs2.addnew rs2("username")=request("username") rs2("id")=proid rs2("productnum")=request.form("addnum") rs2("goods")=igoods rs2("state")=1 if rs1("recommend")=2 then rs2("kind")=3 '标示为特价商品 else rs2("kind")=0 '标示为正常价格商品 end if rs2("jiage")=addprice rs2.Update end if rs2.Close set rs2=nothing rs.close set rs=nothing rs1.close set rs1=nothing 'conn.close end if response.redirect "dingdandetail.asp?action=changed&goodid="&igoods case "present" if request.form("presentnum")>0 then response.write "select * from tproduct where tproduct_bh="& request.form("present") & "" set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from orders",conn,1,3 rs2.addnew rs2("username")=request("username") rs2("id")=request.form("present") rs2("productnum")=request.form("presentnum") rs2("goods")=igoods rs2("state")=1 '标示为订单内商品 rs2("jiage")=0 rs2("kind")=1 '标为赠品 rs2.Update rs2.Close set rs2=nothing end if response.redirect "dingdandetail.asp?goodid="&igoods case "usecoupon" if request.form("coupon")<>"" then 'response.write "select * from tproduct where tproduct_bh="& request.form("present") & "" set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from coupon where id="& request.form("coupon"),conn,1,3 if not rs1.eof and not rs1.bof then dim content content=rs1("content") set rs2=server.CreateObject("adodb.recordset") rs2.open "select * from goods where goodsid="& igoods,conn,1,3 if rs2("coupon")<>"" and rs2("coupon")<>0 then 'response.write "已用" response.Write "" 'response.end 'response.redirect "dingdandetail2.asp?goodid="&igoods end if set rs3=server.CreateObject("adodb.recordset") rs3.open "select * from orders where kind=0 and goods='"& igoods&"'",conn,1,3 dim shopjiage shopjiage=0 do while not rs3.eof 'totaljg=rs3("jiage") shopjiage=shopjiage+rs3("jiage") '计算正常商品的总价，以作为计算折扣用 rs3.movenext loop rs3.close set rs3=nothing select case rs1("kind") case 1 'response.write "比例现金抵用券" '计算折扣金额 zke=round(shopjiage*0.1,0) ce=zke-content if ce>0 then rs2("goodszk")=content else 'rs2("totaljg")=rs2("totaljg")-zke rs2("goodszk")=zke end if rs2("coupon") =request.form("coupon") rs2.update rs1("state")=1 rs1("orderid")=igoods rs1("usedtime")=now() rs1.update case 2 'response.write "订单折扣券" '计算订单折扣后的金额 zke=round(shopjiage*content/10,0) rs2("goodszk")=shopjiage-zke 'rs2("totaljg")=zke rs2("coupon") =request.form("coupon") rs2.update rs1("state")=1 rs1("orderid")=igoods rs1("usedtime")=now() rs1.update case 3 'response.write "免费商品券" set rs3=server.CreateObject("adodb.recordset") rs3.open "select * from tproduct where tproduct_bh="& content ,conn,1,1 proid=rs3("id") rs3.close rs3.open "select * from orders",conn,1,3 rs3.addnew rs3("username")=request("username") rs3("id")=proid 'rs3("productnum")=request.form("presentnum") rs3("goods")=igoods rs3("state")=1 '标示为订单内商品 rs3("jiage")=0 rs3("kind")=2 '标为礼品 rs3.Update rs3.Close set rs3=nothing rs2("coupon") =request.form("coupon") rs2.update rs1("state")=1 rs1("orderid")=igoods rs1("usedtime")=now() rs1.update case 4 'response.write "全额现金低用券" ce=shopjiage-content if ce>0 then 'rs2("totaljg")=rs2("totaljg")-content rs2("goodszk")=content else 'rs2("totaljg")=0 rs2("goodszk")=shopjiage end if rs2("coupon") =request.form("coupon") rs2.update rs1("state")=1 rs1("orderid")=igoods rs1("usedtime")=now() rs1.update end select end if end if response.redirect "dingdandetail.asp?goodid="&igoods end select end if %>