📄 basketsave.asp
字号:
<!--#include File="../conndb.asp"-->
<!--#include file="../user/isUser.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RECORDSET")
%>
<%
Function makeOrderNumber()
Dim fname
fname = now()
fname = Trim(fname)
fname = Replace(fname,"-","")
fname = Replace(fname,"/","")
fname = Replace(fname," ","")
fname = Replace(fname,":","")
fname = Replace(fname,"PM","")
fname = Replace(fname,"AM","")
fname = Replace(fname,"上午","")
fname = Replace(fname,"下午","")
makeOrderNumber = fname
End Function
%>
<html>
<head>
<title>订购商品操作</title>
</head>
<body>
<%
'根据提交信息来源判断订单状态：
'表Basket中UserChecked字段：0-用户订购；1-用户送至收银台；2-用户提交订购商品
'AdminChecked字段：0 - 用户提交；1-管理员已经处理；2-已经发货；3-已经结账
Dim iflag
iflag = Request.QueryString("flag")
userid = Session("user_id")
If iflag="1" Then
'用户放入购物车:商品编号和订购数量、时间、用户名
GoodsId = Request("id")
OrderCount = Request("count")
SalePrice = Request("saleprice")
sql = "Insert into Basket(GoodsId,UserId,OrderTime,OrderCount,SalePrice) Values("&GoodsId&",'"&userid&"','"&now()&"',"&OrderCount&","&SalePrice&")"
Conn.Execute(sql)
Response.Write "订购商品保存成功，请在主页登录后进入购物车确认订购！"
ElseIf iflag="2" Then
'删除购物车或者收银台中的商品
id = Request.QueryString("id")
sql = "Delete from Basket where id="&id
Conn.Execute(sql)
Response.Write "已经删除订购商品信息！"
ElseIf iflag="3" Then
'将订购商品送至收银台
id = Request.QueryString("id")
sql = "Update Basket set UserChecked=1 where id="&id
Conn.Execute(sql)
Response.Write "订购商品已经送到收银台，请进入收银台确认订单！"
ElseIf iflag="4" Then
'用户在收银台中提交订购商品，确认购买
'创建订单号
OrderNumber = makeOrderNumber()
id = Request.QueryString("id")
sql = "Update Basket Set AdminChecked=1, UserChecked=2,OrderNumber="&OrderNumber&",PostTime='"&now()&"' Where id="&id
Conn.Execute(sql)
'取得订购数量
sql = "Select * From Basket where id="&id
Set rs = Conn.Execute(sql)
If not rs.Eof then
OrderCount = rs("OrderCount")
GoodsId = rs("GoodsId")
'更改商品销售数量
sql = "Update Goods Set BuyCount=BuyCount+"&OrderCount&" Where id="&GoodsId
Conn.Execute(sql)
End If
Response.Write "订购信息已经送至管理员，请进入我的订单中查看详细信息！<br>"
Response.Write "请记住您的订单号："&OrderNumber&"，可以随时查看订单处理过程！"
End If
Response.Write "<p align=center><a href='javascript:window.close()'>[ 关闭 ]</a></p>"
%>
</body>
<script language="javascript">
// 刷新父级窗口
opener.location.reload();
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -