📄 save_order.asp

📁 商城源码程序(上海数字商城整站) 功能列表：商品管理

💻 ASP

字号:

<!--#include file="conn.asp"-->

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
ordernum=trim(request("ordernum"))
sql="select * from [order] where ordernum='"&ordernum&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2
do while not rs.eof
rs("zhuangtai")=trim(Request("zhuangtai"))
rs.update
rs.movenext
loop
rs.close:set rs=nothing
'添加资金到用户帐户
if request.form("zhuangtai")=3 then
sqlv="select sum(zonge) as totalmoney from [order] where ordernum='"&ordernum&"'"
set rsv=server.createobject("adodb.recordset")
rsv.open sqlv,conn,1,1
totalmoney=rsv("totalmoney")
rsv.close:set rsv=nothing
sqlm="select a.ordernum,a.user_name,b.totalmoney,b.user_name from [order] a,shop_user b where a.ordernum='"&ordernum&"' and a.user_name=b.user_name"
set rsm=server.createobject("adodb.recordset")
rsm.open sqlm,conn,1,3
if not rsm.eof then   '如果是会员才执行代码
rsm("totalmoney")=rsm("totalmoney")+totalmoney
rsm.update
end if
rsm.close:set rsm=nothing
end if
'当服务商已经发货了就减库存
if request.form("zhuangtai")=4 then
sql="select ordernum,pid,shuliang from [order] where ordernum='"&ordernum&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<script language=javascript>alert('此订单已被管理员删除!');window.close();</script>"
response.end
end if
do while not rs.eof

sqls="select pid,kucun,pro_name from product where pid="&rs("pid")
set rss=server.createobject("adodb.recordset")
rss.open sqls,conn,1,3
if rs("shuliang")>rss("kucun") then
response.Write "<script language=javascript>alert('商品："&rss("pro_name")&"　库存不足，请先导入库存再修改订单状态!');window.close();</script>"
rss.close:set rss=nothing
response.end
end if
rss("kucun")=rss("kucun")-rs("shuliang")
rss.update
rss.close:set rss=nothing

rs.movenext
loop
rs.close:set rs=nothing
end if

response.Redirect("view_order.asp?ordernum="&ordernum)
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -