save.asp

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

<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if session("rank")=2 then
response.Write "<div align=center><font size=5 color=red><b>你的权限不够！</b></font></div>"
response.End
end if
end if
dim action,goods,username
action=request.QueryString("action")
goods=request.QueryString("dan")
username=request.QueryString("username")
select case action
case "save"
dim rsscore,strscore
if request.form("state")<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select state,score from orders where goods='"&goods&"'",conn,1,3
do while not rs.EOF
rs("state")=request.form("state")
rs.Update
rs.MoveNext
loop
rs.Close
set rs=nothing
end if
response.Write "<script language=javascript>alert('订单状态修改成功！');history.go(-1);</script>"
case "del"
set rs=server.CreateObject("adodb.recordset")
rs.open "select orders.id,orders.goods,product.id,product.solded,product.stock from orders inner join product on orders.id=product.id where orders.goods='"&goods&"' " ,conn,1,3
do while not rs.eof
rs("solded")=rs("solded")-1
rs("stock")=rs("stock")+1
rs.update
rs.movenext
loop
conn.execute "delete from orders where goods='"&goods&"' "
response.Write "<script language=javascript>alert('订单删除成功！');history.go(-1);</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
end select

%>