<!--#include file="conn.asp"-->
<!--#include file="session2.asp"-->
<%
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 from sh_action where dingdan='"&dingdan&"'",conn,1,3
	do while not rs.EOF
	old_zhuangtai=rs("zhuangtai")
		rs("zhuangtai")=request("zhuangtai")
		rs.Update
		rs.MoveNext
	loop
	rs.Close
	set rs=nothing
'conn.execute "update sh_action set zhuangtai="&request("zhuangtai")&" where dingdan='"&dingdan&"' "
end if
if request("zhuangtai")=4 then
fhsj=now()
conn.execute "update sh_action set fhsj=date() where dingdan='"&dingdan&"' "
end if

if cint(request("zhuangtai"))=5 and old_zhuangtai<>5 then
	point=0
	ifhuyuanka=0
		set rs2=server.CreateObject("adodb.recordset")
		rs2.Open "select vipid from sh_sys",conn,1,1
		vipid=rs2("vipid")
		rs2.close
		set rs2=nothing
	set rs=server.CreateObject("adodb.recordset")
	rs.Open "select bookcount,bookid from sh_action where dingdan='"&dingdan&"'",conn,1,1
	while not rs.eof
		set rs2=server.CreateObject("adodb.recordset")
		rs2.Open "select bookid,yeshu from sh_chanpin where bookid="&rs("bookid"),conn,1,1
		point=point+rs("bookcount")*rs2("yeshu")
		rs2.close
		set rs2=nothing
		
		if rs("bookid")=cint(vipid) then 
			ifhuyuanka=1
		end if
		
		rs.MoveNext
	wend
	rs.Close
	'response.write ifhuyuanka&"'"&vipid
	'response.end
	set rs=server.CreateObject("adodb.recordset")
	rs.Open "select point,reglx,vipdate from [sh_user] where username='"&username&"'",conn,1,3
	rs("point")=rs("point")+point
	if ifhuyuanka=1 then 
		rs("reglx")=2
		if rs("vipdate")<>"" then 
		if rs("vipdate")<date then
		rs("vipdate")=date+365
		else
		rs("vipdate")=rs("vipdate")+365
		end if
		else
		rs("vipdate")=date+365
		end if
	end if
	rs.Update
	rs.Close
	set rs=nothing
	
	if ifhuyuanka=1 then 
		response.Write "<script language=javascript>alert('訂單狀態修改成功！您本次購物獲得積分:"&point&"，你本次購買了會員卡，恭喜你現在已經成為本站的VIP用戶！！');history.go(-1);</script>"
	else
		response.Write "<script language=javascript>alert('訂單狀態修改成功！您本次購物獲得積分:"&point&"');history.go(-1);</script>"
	end if
else
	response.Write "<script language=javascript>alert('訂單狀態修改成功！');history.go(-1);</script>"
end if


case "del"
'刪除時要判斷狀態，未收到貨時要返還積分和庫存的
set rs=server.createobject("adodb.recordset")
rs.open "select zhuangtai from sh_action where dingdan='"&dingdan&"' ",conn,1,1
if rs("zhuangtai")>7 then
rs.close


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

z_point=0
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sh_action_jp where  dingdan='"&dingdan&"'",conn,1,1
while not rs.eof
z_point=z_point+rs("point")
rs.movenext
wend
rs.close
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [sh_user] where username='"&request.Cookies("shopzhiwang")("username")&"'",conn,1,3
rs("point")=rs("point")+z_point
rs.update
rs.close
set rs=nothing

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

end select

%>