📄 my_order_detail.asp
字号:
<!--#include file="Comm/conn.asp" -->
<%
OrderNum=request("OrderNum")
%>
<HTML>
<HEAD>
<TITLE>订单详细资料-<%=sitename%>-<%=siteurl%></TITLE>
<link rel="stylesheet" href="shop.css" type="text/css">
</HEAD>
<body bgcolor="#011D32" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/fig_background.gif">
<!--#include file="menu/topbar.asp"-->
<%
if session("loginpass")<>"ok" then
call re_login()
else
call ok_login()
end if
sub re_login()
errstr="<TABLE width=760 border=0 cellpadding=1 cellspacing=2 bgcolor=#ffffff align=center height=300><TR><TD align=center>您没有登陆，或者登陆超时，请重新登陆一次！<br><br>"
response.write errstr
%>
<!--#include file="loginbox.asp"-->
<%
response.write "</TD></TR></TABLE>"
end sub
sub ok_login()
%>
<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" align="center">
<tr>
<td height="1" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td bgcolor="A5B2C6" height="18" class="new">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!--#include file="menu/searchbar.asp"-->
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="#FFFFFF">
<tr>
<td width="160" height="315" bgcolor="FFFBF7" align="center" valign="top">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height=8></td>
</tr>
</table>
<!--#include file="my_accounts_menu.asp"-->
</td>
<td bgcolor="#CCCCCC" width="1"></td>
<td height="100" valign="top" align="center" bgcolor="#FfFfFf">
<TABLE border=0 width=100% cellspacing="2" cellpadding="2" align=center>
<tr><td height=30>目前位置：个人空间 </td></tr>
<tr><td width="569" align="center" height="1" background="images/bg_xg_01.gif"></td></tr></table>
<br>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height=8></td>
</tr>
</table>
<%
sqlinfo = "select A.OrderNum,A.ProdId,A.BuyPrice,A.ProdUnit,B.Recname,B.RecPhone,B.Recmail,B.RecAddress,B.Zipcode,B.Paytype,B.Discount,B.Notes,C.ProdName "&_
" from OrderDetail A,OrderList B,ProdMain C"&_
" where A.UserId='"&session("estore_userid")&"' and A.OrderNum='"&OrderNum&"' and A.OrderNum = B.OrderNum and A.ProdId=C.Prodid"
set rsorder=Server.Createobject("ADODB.RecordSet")
rsorder.Open sqlinfo,conn,1,1
%>
<%
if rsorder.eof and rsorder.bof then
call error_order()
exit sub
else
%>
<table width="95%" border="1" cellpadding="1" cellspacing="1" bordercolor="#FFCC99">
<tr><td colspan="4">订单号为<strong><font color=red> <%=rsorder("OrderNum")%> </font></strong><br><br>详细资料:<br>
收货人姓名:<%=rsorder("Recname")%><br>
收货人电话：<%=rsorder("RecPhone")%><br>
收货人邮箱：<%=rsorder("Recmail")%><br>
收货地址：<%=rsorder("RecAddress")%><br>
邮政编码：<%=rsorder("Zipcode")%><br>
支付类型：<%=rsorder("Paytype")%><br>
使用点券：<%=rsorder("Discount")%><br>
备注说明：<%=rsorder("Notes")%><br>
<br>产品列表:<br></td></tr>
<tr><td width="25%">产品名称</td><td width="25%">购买数量</td><td width="25%">购买单价</td><td width="25%">
<div align="center"><font color="B0266D">合 计</font></div>
</td></tr>
<%
Total = 0
do while not rsorder.eof
Sum = cint(rsorder("BuyPrice"))* rsorder("ProdUnit")
Sum = FormatNumber(Sum,2)
Total = Sum + Total '计算总金额
Discount = rsorder("Discount") '因为只有订单列表库中有折扣，而且订单只有一条记录，所以必须先取出来暂存
%>
<tr>
<td width="25%"><a href="prodshow.asp?ProdId=<%=rsorder("Prodid")%>" target="blank_"><%=rsorder("ProdName")%></a></td>
<td width="25%"><%=rsorder("ProdUnit")%></td>
<td width="25%"><%=FormatNumber(rsorder("BuyPrice"),2)%></td>
<td width="25%"><%=Sum%></td>
</tr>
<%
rsorder.movenext
loop
end if
%>
<TR>
<TD colspan="3" align=right>总金额：</TD><td><%=FormatNumber(Total,2)%></td>
</TR>
<%
if Discount > "0"then
%>
<TR>
<TD colspan="3" align=right>折扣额：</TD><td><%=FormatNumber(Discount,2)%></td>
</TR>
<%
else
end if
set rsorder=nothing
%>
</TABLE><br>
</TD>
</TR>
</TABLE>
<%
end sub
sub error_order()
response.write "<br><br><table><tr><td>对不起！您查询的订单<b> ["&OrderNum&"] </b><br><br><B>不属于您的登陆账号，或者已经被管理员删除</B>！<br>请您仔细检查！<br><br>如果还有问题，请联系网站管理员</td></tr></table></td></tr>"
end sub
%>
<!--#include file="menu/bottom.asp"-->
</BODY>
</HTML>
<%
conn.close
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -