save.asp

来自「一个电子商务网站完整代码,在.net平台下开发」· ASP 代码 · 共 44 行

<!--#include file="conn.asp"-->
<%dim goods,action,rsscore,strscore
action=request.QueryString("action")
goods=request.QueryString("dan")
strscore=request.QueryString("score")
select case action
case "save"
if request.form("state")<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select state 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.username,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
if request.Cookies("timesshop")("username")<>trim(rs("username")) then
response.Write "您无权删除此订单!"
response.End
rs.Close
set rs=nothing
end if
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('订单删除成功！');windows.close();</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
end select

%>