<!--#include file="admin_start.asp"-->
<%
dim id
dim ids
dim n_ids

id=request("id")
ids=request("ids")
ids=replace(ids," ","")
n_ids=""

if not MySys.check.isInteger(id) and request("action")="edit" then
MySys.error.info="请选择您要操作的订单！"
MySys.error.location="back"
MySys.error.err()
end if

select case request("action")
case "delete"
	if ids="" then
		MySys.error.info="请选择你要删除的订单！"
		MySys.error.location="back"
		MySys.error.err()
	else

		conn.execute("delete from jins_customer_order_list where customer_order_id in ("&ids&") ")
		
		MySys.error.info="删除订单成功！"
		if request("back")=1 then MySys.error.location="javascript:opener.history.back(-1);window.close();"
		if request("back")=2 then MySys.error.location="javascript:opener.location.reload();window.close();"
		if request("back")="" then MySys.error.location="back"
		MySys.error.suc()
	end if
	
case else

	if request("action")="add" then
	    sql="select * from jins_customer_order_list "
	else
	    sql="select * from jins_customer_order_list  where customer_order_id="&id&""
	end if
	
	rs.open sql,conn,1,3
	
	'/////////////////////////////////////////////检测
	
	if request("action")="edit" and rs.eof then
		MySys.error.info="您选择的订单不存在！"
		MySys.error.location="back"
		MySys.error.err()
	end if
	'//////////////修改订单金额
	if request("action")="editmoney" then
		if rs("customer_order_stat")=0 then
			rs("customer_order_money")=request("customer_order_money")
			rs.update
			rs.close
			MySys.error.info="订单金额修改成功！"
			MySys.error.location="back"
			MySys.error.suc()
		else
			MySys.error.info="此订单目前不能修改金额！"
			MySys.error.location="back"
			MySys.error.err()
		end if
    end if
	'//////////////修改订单状态
	if request.form("stat_c")="" then
		MySys.error.info="请完整填写相关项目！"
		MySys.error.location="back"
		MySys.error.err()
	end if
		
	'/////////////////////////////////////////////
	
	if request("action")="add" then

	else
	    MySys.error.info="订单状态修改成功！"
	end if
	
	'//////////////////////////////////////////////
	dim stat_d(6)
	dim stat(6,2)
	dim stat_n
	dim able
	
	stat_n=rs("customer_order_stat")
	
	stat(0,0)=0
	stat(0,1)=0
	
	stat(1,0)=1
	stat(1,1)=0
	
	stat(2,0)=2
	stat(2,1)=1
	
	stat(3,0)=3
	stat(3,1)=1
	
	stat(4,0)=4
	stat(4,1)=0
	
	stat(5,0)=5
	stat(5,1)=1
	
	stat_d(0)="未作任何处理"
	stat_d(1)="用户已付款"
	stat_d(2)="确认到款"
	stat_d(3)="已发货"
	stat_d(4)="用户收到货"
	stat_d(5)="订单完成"
	'//////////////////////////////////////////////
	if stat(stat_n+1,1)=0 then
	MySys.error.info="您选择的订单状态不能更改！！"
	MySys.error.location="back"
	MySys.error.err()
	else
	rs("customer_order_stat")=stat_n+1
	rs("customer_order_stat_description")=stat_d(stat_n+1)
	rs.update
	MySys.error.info=MySys.error.info+";订单状态已经更改为"&stat_d(stat_n+1)&"！！"
	MySys.error.location="back"
	MySys.error.suc()
	end if

	rs.close
	
	MySys.error.location="back"
	MySys.error.suc()

end select

%>
<!--#include file="admin_end.asp"-->
