📄 basket.asp
字号:
<!--#include File="../conndb.asp"-->
<!--#include file="../user/isUser.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RECORDSET")
%>
<%
Dim userid
userid = Session("user_id")
Dim pageid,sTitle,colnum
colnum = 6
sTitle = ""
'读取参数pageid
pageid = Request.QueryString("pageid")
'pageid=0：购物车；pageid=1：收银台；pageid=2：订单信息
If isnull(pageid) Then
Response.End
ElseIf pageid=0 Then
sTitle = "购物车"
colnum = 7
ElseIf pageid=1 Then
sTitle = "收银台"
colnum = 7
ElseIf pageid=2 Then
sTitle = "订单"
colnum = 6
End If
%>
<html>
<head><title>我的<%=sTitle%>信息</title>
<link href=../style.css rel=STYLESHEET type=text/css>
</head>
<script language="javascript">
function newswin(url) {
var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
oth = oth+",width=500,height=400";
var newswin=window.open(url,"newswin",oth);
newswin.focus();
return false;
}
function newOrder(url) {
var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
oth = oth+",width=500,height=150";
var newOrder=window.open(url,"newOrder",oth);
newOrder.focus();
return false;
}
//确认订购、删除订购商品
function SendOrder(basketid,flag){
var url;
url = "BasketSave.asp?flag=" + flag + "&id=" + basketid;
newOrder(url);
}
</script>
<body>
<center>
<table border="0" width="760" cellspacing="0" cellpadding="0">
<tr><td colspan="3" height="80"><img src="../images/shop.jpg" border="0"></td></tr>
<tr><td colspan="3" bgcolor="#E1F5FF" height="19" valign="middle" align="right">
<a href="/shop/index.asp">主页</a>
<%If pageid=0 Then%>
我的购物车
<a href="Basket.asp?pageid=1">去收银台</a>
<a href="Basket.asp?pageid=2">我的订单</a>
<%ElseIf pageid=1 Then%>
<a href="Basket.asp?pageid=0">去购物车</a>
去收银台
<a href="Basket.asp?pageid=2">我的订单</a>
<%ElseIf pageid=2 Then%>
<a href="Basket.asp?pageid=0">去购物车</a>
<a href="Basket.asp?pageid=1">去收银台</a>
我的订单
<%End If%>
</td></tr>
<tr>
<td width="25%" valign="top" align="left"><!--#include file="../left.asp"--></td>
<td width="50%" valign="top" align="center">
<table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<tr>
<td width="50%" bgcolor="#63CFFF" height="18">
<%=userid%>的<%=sTitle%>信息
</td>
</tr>
<tr>
<td width="100%" valign="top" align="left" height="1">
<table border="1" width="100%" cellspacing="1" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<tr>
<td align="center" bgcolor="#E1F5FF">商品编号</td><td align="center" bgcolor="#E1F5FF">名称</td>
<td align="center" bgcolor="#E1F5FF">价格</td><td align="center" bgcolor="#E1F5FF">购买数量</td>
<td align="center" bgcolor="#E1F5FF">合计(元)</td>
<%If pageid=0 Then%>
<td align="center" bgcolor="#E1F5FF">取消订购</td><td align="center" bgcolor="#E1F5FF">送收银台</td>
<%ElseIf pageid=1 Then%>
<td align="center" bgcolor="#E1F5FF">取消订购</td><td align="center" bgcolor="#E1F5FF">订购确认</td>
<%ElseIf pageid=2 Then%>
<td align="center" bgcolor="#E1F5FF">目前状态</td>
<%End If%>
</tr>
<%
'根据参数pageid设置SELECT语句，读取指定记录到记录集rs中
sql = "SELECT b.*, g.Name FROM Basket b, Goods g WHERE b.UserId='" & userid & "' And b.UserChecked=" & pageid
sql = sql & " And g.Id = b.GoodsId ORDER BY b.AdminChecked, b.Id DESC"
rs.Open sql, Conn, 3, 3
If rs.EOF Then
%>
<tr><td colspan="<%=colnum%>" align="center">暂且没有订购的商品</td></tr>
<%
End If
Dim total
total = 0
Do While Not rs.EOF
'计算总价格
total = total + Cint(rs("OrderCount")) * Cint(rs("SalePrice"))
%>
<tr>
<% If pageid=2 Then '如果是查看订单，则显示订单号 %>
<td colspan="6"><font color=blue>订单号：<%=rs("OrderNumber")%></font></td></tr>
<% End If %>
<td align="center"><%=rs("GoodsId")%></td>
<td align="center"><%=rs("Name")%></td>
<td align="right"><%=rs("SalePrice")%>元</td>
<td align="right"><%=rs("OrderCount")%></td>
<td align="right"><%=Cint(rs("OrderCount"))*Cint(rs("SalePrice"))%></td>
<% If pageid=0 Then '查看购物车%>
<td align="center">
<input type="button" name="delt" value="删除" onclick="return SendOrder('<%=rs("Id")%>',2)"></td>
<td align="center">
<input type="button" name="sendto" value="送收银台" onclick="return SendOrder('<%=rs("Id")%>',3)"></td>
<% ElseIf pageid=1 Then '查看收银台%>
<td align="center">
<input type="button" name="delt2" value="删除" onclick="return SendOrder('<%=rs("Id")%>',2)"></td>
<td align="center">
<input type="button" name="buy" value="购买" onclick="return SendOrder('<%=rs("Id")%>',4)"></td>
<% ElseIf pageid=2 Then '查看订单信息 %>
<td align="center"><font color="red">
<% If rs("AdminChecked")=1 Then%>等待处理
<% ElseIf rs("AdminChecked")=2 Then%>正在处理
<% ElseIf rs("AdminChecked")=3 Then%>已经发货
<% ElseIf rs("AdminChecked")=4 Then%>已经结帐
<% End If%></font></td>
<% End If %></tr>
<% rs.movenext
Loop
rs.close
%></table></td></tr><tr>
<td align=center><font color="red"><b>总计：<%=total%> 元</b></font></td></tr></table>
</td>
<td width="25%" valign="top" align="left">
<!--#include file="../right.asp"--></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -