?? manage_eshop_detail.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<%
id=request("id")
page=request("page")
set rs=server.createobject("adodb.recordset")
sqltext="select * from OrderList where OrderNum='"&id&"'"
rs.open sqltext,conn,1,1
%>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"> <strong><br>
</strong> <table width="560" border="0" cellpadding="2" cellspacing="1" class="table_southidc">
<tr>
<td class="back_southidc" height="25">
<div align="center"><strong><%=rs("OrderNum")%>號訂單管理 <br>
</strong></div></td>
</tr>
<tr>
<form method='POST' action="OrderList_Save.asp?OrderNum=<%=rs("OrderNum")%>">
<td> <TABLE cellSpacing=1 cellPadding=4 width=562 bgColor=#006699 height="436">
<TBODY>
<TR>
<TD width="548" height="10" colSpan=2 valign="top" bgcolor="#DBDBDB"></TD>
</TR>
<TR bgColor=#eeeeee>
<TD width="548" height="32" colSpan=2><font color="#000000">客戶訂貨單詳細資料</font></TD>
</TR>
<TR>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">訂貨單號：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("OrderNum")%></TD>
</TR>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right">公司名稱<font color="#000000">：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("CompanyName")%></TD>
</TR>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">收貨人姓名：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Receiver")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">收貨地址：</font></TD>
<TD width=410 height=-2 bgcolor="#eeeeee"> <%=rs("Add")%></TD>
</tr>
<tr>
<TD bgColor=#DBDBDB height=25 align="right"><font color="#000000">郵政編碼：</font></TD>
<TD width=410 height=0 bgcolor="#eeeeee"> <%=rs("Postcode")%></TD>
</tr>
<tr>
<TD bgColor=#DBDBDB height=25 align="right"><font color="#000000">聯(lián)系電話：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Phone")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right">聯(lián)系傳真<font color="#000000">：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Fax")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">電子信箱：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("EMail")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">所選匯款賬號：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("PayType")%></TD>
</tr>
<tr>
<TD width=126 height=25 align="right" bgColor=#DBDBDB><font color="#000000">備注：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%=rs("Notes")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=24 align="right"><font color="#000000">訂貨日期：</font></TD>
<TD width=410 height=24 bgcolor="#eeeeee"> <%=rs("OrderTime")%></TD>
</tr>
<tr>
<TD width=126 bgColor=#DBDBDB height=25 align="right"><font color="#000000">訂單是否已經(jīng)處理：</font></TD>
<TD width=410 height=25 bgcolor="#eeeeee"> <%If rs("Flag")="尚未處理" Then%>
尚未處理
<%else%>
已經(jīng)發(fā)貨
<%End If%> </TD>
</tr>
<TR>
<TD width="548" height="31" colSpan=2 valign="top" bgcolor="#eeeeee">
<p align="center">訂貨商品細目</p></TD>
</TR>
<%
set rs2=server.createobject("adodb.recordset")
sqltext2 = "select A.OrderNum,A.Product_Id,A.BuyPrice,A.ProductUnit,"&_
"C.Title,C.Price "&_
" from OrderDetail A,Product C"&_
" where A.OrderNum='"&id&"' and A.Product_Id=C.Product_Id"
rs2.open sqltext2,conn,1,1
%>
<TR>
<TD width="548" height="15" colSpan=2 valign="top" bgcolor="#eeeeee">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#006699" bordercolordark="#eeeeee" height="67">
<tr>
<td width="49%" bgcolor="#DBDBDB" height="21" align="center"><font color="#000000">產(chǎn)品名稱</font></td>
<td width="14%" bgcolor="#DBDBDB" height="21" align="center"><font color="#000000">購買數(shù)量</font></td>
<td width="18%" bgcolor="#DBDBDB" height="21" align="center">購買單價</td>
<td width="19%" height="21" align="center" bgcolor="#DBDBDB">合
計</td>
</tr>
<% Total = 0
While Not rs2.EOF
Sum=0
Sum = rs2("ProductUnit")* FormatNumber(rs2("Price"),2)
Sum = FormatNumber(Sum,2)
Total = Sum + Total
'計算總金額%>
<tr>
<td width="49%" align="center" height="22"><%=rs2("Title")%></td>
<td width="14%" align="center" height="22"><%=rs2("ProductUnit")%></td>
<td width="18%" align="center" height="22"><%=rs2("Price")%> </td>
<td height="22" align="center"><%=Sum%></td>
</tr>
<%
rs2.MoveNext
Wend
%>
<tr>
<td colspan="2" height="22"> <p align="left"> </p></td>
<td height="22" colspan="2"> 售價總金額:<%=FormatNumber(Total,2)%></td>
</tr>
</table>
</div></TD>
</TR>
<center>
<TR>
<TD width="548" height="25" colSpan=2 bgcolor="#eeeeee">
<p align="center">
<%If rs("Flag")="尚未處理" Then%>
<input type="submit" value="訂單處理" name="B1">
<%
rs.close
rs2.close
conn.close
End If
%>
<input type="button" value="返回" name="B4" onclick="javascript:window.history.go(-1)">
</TD>
</TR>
<TR bgColor=#DBDBDB>
<TD width="548" height="3" colSpan=2></TD>
</TR>
</center>
</TABLE></td>
</form>
</tr>
</table></td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -