📄 queryorder.asp
字号:
<!--#include file="../conndb.asp"-->
<!--#include file="../user/isUser.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RECORDSET")
%>
<%
Dim userid
userid = Session("user_id")
ordernumber = Request.QueryString("onum")
%>
<html>
<head><title>查询订单信息</title>
<link href=/shop/style.css rel=STYLESHEET type=text/css>
</head>
<body>
<font color="blue"><b>订单号：<%=ordernumber %></b></font><br><br>
<table align=center 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><td align="center" bgcolor="#E1F5FF">目前状态</td>
</tr>
<%
sql="Select b.Id,b.GoodsId,g.Name,b.SalePrice,b.AdminChecked,b.OrderCount From Basket b,"
sql = sql & "Goods g Where b.UserId='"&userid&"' And b.OrderNumber='"&ordernumber&"'"
Set rs = Conn.Execute(sql)
If rs.Eof Then
%><tr><td colspan="6" align="center">没有此订单的信息</td></tr>
<%Else%>
<tr>
<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>
<td align="center"><font color="red"><%If rs("AdminChecked")=0 Then%>等待处理
<%ElseIf rs("AdminChecked")=1 Then%>正在处理<%ElseIf rs("AdminChecked")=2 Then%>已经发货
<%ElseIf rs("AdminChecked")=3 Then%>已经结帐<%End If%></font></td>
</tr>
<%End If
rs.Close
%>
</table>
<p align=center><a href="javascript:window.close()">[关闭]</a></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -