<!--#include file="conn.asp"-->
<%
if request.cookies("shopzhiwang")("username")="" then
response.write "<script language=javascript>alert('對不起，您還沒有登陸！');window.close();</script>"
response.End
end if
dim bookid,username,action
action=request.QueryString("action")
username=trim(request.cookies("shopzhiwang")("username"))
bookid=request.QueryString("id")
if action="del" then
'//刪除收藏
conn.execute "delete from sh_action_jp where actionid="&request.QueryString("actionid")
if request("ll")=22 then
response.redirect "shopcart.asp?action=show"
else
response.redirect "user.asp?action=point"
end if
response.End
end if

if action="add" then
'判斷用戶是否已換這個獎品
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select count(*) as rec_count from sh_action_jp where bookid="&bookid&" and zhuangtai=7 and username='"&request.cookies("shopzhiwang")("username")&"'",conn,1,1

if rs_s("rec_count")>0 then
	rs_s.close
	set rs_s=nothing
	response.write "<script language=javascript>alert('這個獎品您已經選了，請再選其他獎品！');history.go(-1);</script>"
	response.end
end if
rs_s.close
set rs_s=nothing
'判斷用戶的現有積分
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select point from [sh_user] where username='"&request.cookies("shopzhiwang")("username")&"'",conn,1,1
point_xy=rs_s("point")
rs_s.close
set rs_s=nothing
'判斷用戶的已準備換的積分
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select point from sh_action_jp where username='"&request.cookies("shopzhiwang")("username")&"' and zhuangtai=7",conn,1,1
point_yy=0
while not rs_s.eof
point_yy=point_yy+rs_s("point")
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
'判斷獎品需要的積分
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select point from sh_award where bookid="&bookid,conn,1,1
point_y=rs_s("point")
rs_s.close
set rs_s=nothing
'response.write "'"&point_xy&"'"&point_yy&"'"&point_y&"'"
'response.end
if point_xy<(point_yy+point_y) then
	response.write "<script language=javascript>alert('您現有的積分不夠兌換本獎品，請更換其他獎品！');history.go(-1);</script>"
	response.end
end if
'//商品，判斷是否存在
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sh_action_jp",conn,1,3
rs.addnew
rs("bookid")=bookid
rs("username")=username
rs("zhuangtai")=7
rs("point")=point_y
rs("bookcount")=1
rs.update
rs.close
set rs=nothing
response.Redirect "user.asp?action=point"
end if
%>