<%@ LANGUAGE="VBScript" %>
<!--#include file="Inc/Conn.asp" -->
<!--#include file="Lock.asp"-->
<!--#include file="Inc/Util.asp" -->
<LINK href="Style2.css" type=text/css rel=stylesheet>
<%
shop = Trim(Request.Form("shop"))
Set rs = Server.CreateObject("ADODB.recordset")
sql="Select * From [ShopOrder] Where [Form_Id]="&shop
rs.open sql,conn,1,1
If rs.Eof Then
Response.write "<br><center><font size=3>没有你想查询订单的资料!</font><br><br>"
Response.Write "<input type='button' value=' 返 回 ' name='B4' onclick='javascript:history.go(-1)'></center>"
Else
%>
<HTML><HEAD>
<TITLE>购物订单查询</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<br>
<DIV align=center> 
  <TABLE width=65% align="center" cellPadding=4 cellSpacing=1 bgColor=#CCCCCC>
    <TBODY>
      <TR vAlign=top bgColor=#eeeeee> 
        <TD height="25"  colSpan=2> <p align="center">购物订单详细资料</p></TD>
      </TR>
      <TR> 
        <TD  width=331 bgColor=#FFFFFF height=3 align="right"> <p align="center">订货单号：</p></TD>
        <TD  width=637 height=3 bgcolor="#FFFFFF"> <p> <%=rs("Form_Id")%> </p></TD>
      </TR>
      <TR> 
        <TD bgColor=#FFFFFF height=3 align="right"> <div align="center">公司名称：</div></TD>
        <TD  width=637 height=3 bgcolor="#FFFFFF"><%=rs("Compname")%> </TD>
      </TR>
      <tr> 
        <TD  width=331 bgColor=#FFFFFF height=7 align="right"> <p align="center">收货人：</p></TD>
        <TD  width=637 height=7 bgcolor="#FFFFFF"> <p><%=rs("Somane")%> </p></TD>
      </tr>
      <tr> 
        <TD  width=331 bgColor=#FFFFFF height=7 align="right"> <p align="center">收货地址：</p></TD>
        <TD  width=637 height=7 bgcolor="#FFFFFF"> <p><%=rs("Address")%> </p></TD>
      </tr>
      <tr> 
        <TD  width=331 bgColor=#FFFFFF height=7 align="right"> <p align="center">邮政编码：</p></TD>
        <TD  width=637 height=7 bgcolor="#FFFFFF"> <p><%=rs("Zip")%> </p></TD>
      </tr>
      <tr> 
        <TD  width=331 bgColor=#FFFFFF height=3 align="right"> <p align="center">联系电话：</p></TD>
        <TD  width=637 height=3 bgcolor="#FFFFFF"> <p><%=rs("Phone")%> </p></TD>
      </tr>
      <tr> 
        <TD align="right" bgColor=#FFFFFF> <div align="center">联系传真：</div></TD>
        <TD  width=637 bgcolor="#FFFFFF"><%=rs("Fox")%> </TD>
      </tr>
      <tr> 
        <TD align="right" bgColor=#FFFFFF> <div align="center">联系E-mail：</div></TD>
        <TD  width=637 bgcolor="#FFFFFF"><%=rs("Email")%> </TD>
      </tr>
      <tr> 
        <TD align="right" bgColor=#FFFFFF><div align="center">所选汇款账号：</div></TD>
        <TD  width=637 bgcolor="#FFFFFF"><%=rs("Bank")%></TD>
      </tr>
      <tr> 
        <TD align="right" bgColor=#FFFFFF><div align="center">备注：</div></TD>
        <TD  width=637 bgcolor="#FFFFFF"><%=rs("Remark")%></TD>
      </tr>
      <tr> 
        <TD align="right" bgColor=#FFFFFF><div align="center">订货日期：</div></TD>
        <TD  width=637 bgcolor="#FFFFFF"><%=rs("RegTime")%></TD>
      </tr>
      <tr> 
        <TD align="right" bgColor=#FFFFFF><div align="center">订单是否已经处理：</div></TD>
        <TD  width=637 bgcolor="#FFFFFF"><%=rs("Flag")%></TD>
      </tr>
      <tr> 
        <TD height="80" colspan="2" align="right" bgColor=#FFFFFF> 
<%Set pro=Conn.Execute("Select * From [ShopList] Where ShopForm_Id="&shop)
%>
          <table width="80%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
            <tr> 
              <td width="17%" bgcolor="#eeeeee"><div align="center">产品编号</div></td>
              <td width="23%" bgcolor="#eeeeee"><div align="center">产品名称</div></td>
              <td width="46%" bgcolor="#eeeeee"><div align="center">产品类别</div></td>
              <td width="14%" bgcolor="#eeeeee"><div align="center">产品数量</div></td>
            </tr>
<%If pro.Eof Then
Response.Write "没有产品清单"
Else
Do While Not pro.Eof %>
            <tr> 
              <td bgcolor="#FFFFFF"><div align="center"><%=pro("Product_Id")%></div></td>
              <td bgcolor="#FFFFFF"><div align="center"><%=pro("Product_Name")%></div></td>
              <td bgcolor="#FFFFFF">
			  <div align="center"><%=pro("BigClassName")%> >> <%=pro("SmallClassName")%></div></td>
              <td bgcolor="#FFFFFF"><div align="center"><%=pro("Number")%></div></td>
            </tr>
<%pro.MoveNext
Loop
End if%>
          </table>
<%pro.Close%>
        </TD>
      </tr>
      <TR bgColor=#eeeeee> 
        <TD height="25"  colSpan=2> <DIV align=center> 
            <p align="center"> 
              <input type="button" value=" 返 回 " name="B4" onclick="javascript:history.go(-1)">
          </DIV></TD>
      </TR>
    </TBODY>
  </TABLE>
</DIV>
</BODY></HTML>
<%
End if
rs.close
conn.close
%>