?? 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 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 + -