www.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
%>