gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\admin\manage_order.asp
<% if session("admin")="" then Response.redirect "backlogin.asp?msg=对不起你还没有登录,请返回登录!" end if %> <!--#include file="conn.asp"--> <% order_flag="已经发货" set rs=server.createobject("adodb.recordset") sqltext="select Flag from OrderList where order_Id=" & request("order_Id") rs.open sqltext,cn,1,1 if rs("Flag")="已经发货" then rs.close Response.Redirect "ordermessagebox.asp?msg=此订货单您处理过了,已经向用户发书了!" Else set rs=server.createobject("adodb.recordset") sqltext="update OrderList set Flag='"&order_flag&"'where order_Id=" & request("order_Id") rs.open sqltext,cn,3,3 rs.close set rs2=server.createobject("adodb.recordset") sqltext2="select * from book_sell where order_Id=" & request("order_Id") rs2.open sqltext2,cn,1,1 while not rs2.eof set rs3=server.createobject("adodb.recordset") sqltext="select * from book where ID="&rs2("book_id") rs3.open sqltext,cn,1,1 num=rs3("book_count")-rs2("num") set rs1=server.createobject("adodb.recordset") sqltext="update book set book_count='"&num&"'where ID=" & rs2("book_id") rs1.open sqltext,cn,3,3 rs2.movenext wend set rs=server.createobject("adodb.recordset") sql="select * from book " rs.open sql,cn,1,1 while not rs.eof if rs("book_count")=0 or rs("book_count")<0 then bookname=rs("book_name") session("bookname")=session("bookname") &"《"& bookname &"》"& "," end if rs.movenext wend booklist=session("bookname") if session("bookname")="" then response.redirect "ordermessagebox.asp?msg=订货单处理处理完毕,请按客户详细地址发书!" else response.redirect "message.asp?msg=书库里没有这些" end if end if rs2.close rs1.close rs3.close response.end %>