<%if request.cookies("timesshop")("username")="" then response.write "" Conn.Close Set Conn = Nothing response.End() end if %> <% dim id,username,action action=FormatSQL(SafeRequest("action",0)) id=SafeRequest("goodsid",1) username=trim(request.cookies("timesshop")("username")) select case action case "del" set rs=server.CreateObject("adodb.recordset") rs.open "select * from goods where username='"& username &"' and goodsid="& id &"",conn,1,3 rs("mdel")=1 depositchange=rs("yfje") if depositchange<>0 then '将已付的费用放入预存款里 set rs7=server.CreateObject("adodb.recordset") rs7.open "select * from [user] where username='"& username &"'",conn,1,3 rs7("deposit")=rs7("deposit")+depositchange rs7.update rs7.close set rs7=nothing if rs("payforstats")=1 then rs("payforstats")=0 end if '若订单状态为已付款，则自动改为未付款，所付的款项将放入预存款 end if rs.update rs.close set rs=nothing response.Redirect "dingdan.asp" case "restore" '恢复客户自主取消的订单 set rs=server.CreateObject("adodb.recordset") rs.open "select * from goods where username='"& username &"' and goodsid="& id &"",conn,1,3 'if rs("yfje")<>0 then set rs7=server.CreateObject("adodb.recordset") '从预存款里扣除已付费用 rs7.open "select * from [user] where username='"& username &"'",conn,1,3 'if rs7("deposit")<>0 then if rs7("deposit")< rs("yfje")+rs("yftotal") then rs("yfje")=rs7("deposit") rs("yftotal")=rs("yfje")+rs("yftotal")-rs7("deposit") rs7("deposit")=0 else rs("yfje")=rs("yfje")+rs("yftotal") rs("yftotal")=0 rs7("deposit")=rs7("deposit")-rs("yfje")-rs("yftotal") rs("payforstats")=1 '若预存款足够订单金额，则自动将订单状态改为已付款 end if 'end if rs7.update rs7.close set rs7=nothing 'end if rs("mdel")=0 rs.update rs.close set rs=nothing response.Redirect "dingdan.asp" case "restore1" '恢复客户自主取消的订单 set rs=server.CreateObject("adodb.recordset") rs.open "select * from goods where username='"& username &"' and goodsid="& id &"",conn,1,3 rs("mdel")=0 depositchange=rs("yfje") rs.update rs.close set rs=nothing if depositchange<>0 then '从预存款里扣除已付费用 set rs7=server.CreateObject("adodb.recordset") rs7.open "select * from [user] where username='"& username &"'",conn,1,3 rs7("deposit")=rs7("deposit")-depositchange rs7.update rs7.close set rs7=nothing end if response.Redirect "dingdan.asp" end select%>