save.asp

来自「上海购物网设计的购物系统是基于WEB开发的大型购物系统。 它以构建电子商务网」· ASP 代码 · 共 58 行

<!--#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 orders.username='"&username&"' and goods='"&goods&"'",conn,1,3
do while not rs.EOF
if trim(request.form("state"))=3 then
strscore=rs("score")
rs("state")=request.form("state")
set rsscore=server.CreateObject("adodb.recordset")
rsscore.open "select score from [user] where username='"&username&"' ",conn,1,3
rsscore("score") = rs("score") + rsscore("score")
rsscore.update
rsscore.close
set rsscore = nothing
else
rs("state")=request.form("state")
end if
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

%>