addto.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<!--#include file="conn.asp"-->
<%if request.cookies("timesshop")("username")="" then
response.write "<script language=javascript>alert('对不起，请先注册或登录！');window.close();</script>" 
end if
%>
<title>我的购物车</title>
<%
dim id,username,action
action=request.QueryString("action")
username=trim(request.cookies("timesshop")("username"))
id=request.QueryString("id")

select case action
case "del"
conn.execute "delete from orders where actionid="&request.QueryString("actionid")
if request.QueryString("ll")=22 then
response.redirect "profile.asp?action=addtocart"
else
response.redirect "addto.asp?action=show"
end if
response.End

case "add"
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,username from orders where username='"&username&"' and id="&id&" and state=6",conn,1,1
if not rs.eof and not rs.bof then
response.write "<script language=javascript>alert('对不起，此商品已存在于您的购物车中！');history.go(-1);</script>"
response.end
rs.close
set rs=nothing
else
rs.close
rs.open "select id,username,state,paid from orders",conn,1,3
rs.addnew
rs("id")=id
rs("username")=username
rs("state")=6
rs("paid")=0
rs.update
rs.close
response.Redirect "addto.asp?action=show"
set rs=nothing
end if
case "show"
%>
<!--#include file="disuser.asp"-->
<%
addtocart()
end select%>