savedingdan.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 97 行

<!--#include file="conn.asp"-->
<%
dim dingdan,action,bookid,bookcount,bkzhuangtai,rs_bk,rs_cg,x_xcount,x_gxcount

    dingdan=request.QueryString("dan")
    action =request.QueryString("action")

select case action
       case "save"
if request("zhuangtai")<>"" then
   set rs=server.CreateObject("adodb.recordset")
       rs.Open "select bookid,bookcount,zhuangtai from shop_action where dingdan='"&dingdan&"'",conn,1,3

       do while not rs.EOF

          bookid     = rs("bookid")
          bookcount  = rs("bookcount")
          bkzhuangtai= rs("zhuangtai")

          rs("zhuangtai")=request("zhuangtai")
          rs.Update

       if bkzhuangtai=1 then

          //按笔冲减采购数 
          set rs_cg=server.CreateObject("adodb.recordset")
              rs_cg.open "select * from shop_cgaction where bookid=" &bookid& " and kccount>0 ",conn,1,3

          //获取销售数
          x_xcount=cint(bookcount)
 
          do while not rs_cg.eof

             //销售数大于单笔库存数
             if x_xcount>rs_cg("kccount") then

                //单笔销售数等于库存数
                rs_cg("xscount") = rs_cg("xscount")+rs_cg("kccount")
                x_gxcount = rs_cg("kccount")
                rs_cg("yhkcount")= rs_cg("yhkcount")+rs_cg("kccount")
                rs_cg("kccount") = rs_cg("cgcount")-rs_cg("xscount")-rs_cg("tscount")

             //销售数小于单笔数
             else

                //单笔销售数等于退书数
                rs_cg("xscount")=rs_cg("xscount")+x_xcount
                x_gxcount=x_xcount
                rs_cg("yhkcount")=rs_cg("yhkcount")+x_xcount
                rs_cg("kccount")=rs_cg("cgcount")-rs_cg("xscount")-rs_cg("tscount")
             end if

             //分解销售数
             x_xcount=x_xcount-x_gxcount

             if x_xcount<0 then x_xcount=0
             if x_xcount=0 then exit do

          rs_cg.movenext
          loop

          rs_cg.update  

          //更新图书中总数据
          set rs_bk=server.CreateObject("adodb.recordset")
              rs_bk.open "select * from shop_books where bookid="&bookid,conn,1,3
              rs_bk("sumxs")=rs_bk("sumxs")+bookcount
              rs_bk("sumkc")=rs_bk("sumcg")-rs_bk("sumxs")-rs_bk("sumts")
              rs_bk.update
        end if

        rs.MoveNext
        loop
    rs.Close

set rs=nothing
set rs_bk=nothing
set rs_cg=nothing
end if

response.Write "<script language=javascript>alert('订单状态修改成功！');window.location.reload('dingdan.asp?dan="&dingdan&"')</script>"

case "del"
     set rs=server.CreateObject("adodb.recordset")
         rs.open "select username,dingdan from shop_action where dingdan='"&dingdan&"' " ,conn,1,1

'先判断此订单是不是操作人的
if request.Cookies("bookshop")("username")<>trim(rs("username")) then
   response.Write "您无权删除此订单!"
   response.End
end if

conn.execute "delete from shop_action where dingdan='"&dingdan&"' "
     response.Write "<script language=javascript>alert('订单删除成功！');window.location.reload('myuser.asp?action=dingdan')</script>"
end select

%>