savedingdan_fhy.asp

购物系统(本版为正式商业版

<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx3<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
dim action,dingdan,username
action=request.QueryString("action")
dingdan=request.QueryString("dan")
username=request.QueryString("username")
select case action
case "save"
if request("zhuangtai")<>"" then
	set rs=server.CreateObject("adodb.recordset")
	rs.Open "select zhuangtai,qlr,qlr1,qlr2,qlr3 from shop_action_fhy where dingdan='"&dingdan&"'",conn,1,3
	do while not rs.EOF
	old_zhuangtai=rs("zhuangtai")
		rs("zhuangtai")=request("zhuangtai")
		adddate=now()
        if request("zhuangtai")=2 then
		        rs("qlr")=session("admin")&","&adddate
		elseif  request("zhuangtai")=3 then
				rs("qlr1")=session("admin")&","&adddate
		elseif  request("zhuangtai")=4 then
				rs("qlr2")=session("admin")&","&adddate
		elseif  request("zhuangtai")=5 then
				rs("qlr3")=session("admin")&","&adddate
		end if
		rs.Update
		rs.MoveNext
	loop
	rs.Close
	set rs=nothing
'conn.execute "update shop_action_fhy set zhuangtai="&request("zhuangtai")&" where dingdan='"&dingdan&"' "
end if
if request("zhuangtai")=4 then
	set rs=server.CreateObject("adodb.recordset")
	rs.Open "select shopcount,shopid from shop_action_fhy where dingdan='"&dingdan&"'",conn,1,1
	while not rs.eof
          set rs2=server.CreateObject("adodb.recordset")
		rs2.Open "select shopid,kucun from shop_snsn where shopid="&rs("shopid"),conn,1,3
		'response.write rs("shopcount")
		'response.End
		rs2("kucun")=rs2("kucun")-rs("shopcount")
			rs2.Update
		rs2.close
		set rs2=nothing
		rs.MoveNext
	wend
	rs.Close
end if
'if request("zhuangtai")=4 then
fhsj=now()
conn.execute "update shop_action_fhy set fhsj='"&fhsj&"' where dingdan='"&dingdan&"' "
'end if

	response.Write "<script language=javascript>alert('订单状态修改成功！');history.go(-1);</script>"


'response.Write "<script language=javascript>alert('订单状态修改成功!');history.go(-1);window.opener.location.reload();</script>"
'response.Write dingdan
case "del"
'删除时要判断状态，未收到货时要返还积分和库存的
set rs=server.createobject("adodb.recordset")
rs.open "select zhuangtai from shop_action_fhy where dingdan='"&dingdan&"' ",conn,1,1
if rs("zhuangtai")=>5 then
rs.close

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_action_fhy where  dingdan='"&dingdan&"'",conn,1,1
while not rs.eof
	set rs_s=server.CreateObject("adodb.recordset")
	rs_s.open "select * from shop_snsn where shopid="&rs("shopid"),conn,1,3
	rs_s("kucun")=rs_s("kucun")+rs("shopcount")
	rs_s("chengjiaocount")=rs_s("chengjiaocount")-rs("shopcount")
	rs_s.update
	rs_s.close
	set rs_s=nothing
rs.movenext
wend
rs.close
set rs=nothing

else
rs.close
set rs=nothing
end if
conn.execute "delete from shop_action_fhy where dingdan='"&dingdan&"' "
response.Write "<script language=javascript>alert('订单删除成功！');window.close();window.opener.location.reload();</script>"

end select

%>