admin_orderdetail.asp

冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统

<!--#include file="../inc/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   border="0" cellpadding="0" cellspacing="1" class="border">
        <tr> 
          <td class="topbg" height="25"> 
            <div align="center"><strong><%=rs("OrderNum")%>号处理管理 <br>
              </strong></div></td>
        </tr>
        <tr> 
          
            <td> <TABLE width=100% border="0" cellPadding=0 cellSpacing=1  >
                <form method='POST' action="Admin_OrderListSave.asp?OrderNum=<%=rs("OrderNum")%>">
                  <TR> 
                    <TD height="20"  colSpan=2 align="center" class="Title">客户询价单详细资料</TD>
                  </TR>
                  <TR> 
                    <TD width="246" height="20"  align="right"  class="tdbg">询价单号：</TD>
                    <TD     class="tdbg">&nbsp; <%=rs("OrderNum")%></TD>
                  </TR>
                  <tr> 
                    <TD height="20"  align="right"  class="tdbg">公司名称：</TD>
                    <TD     class="tdbg">&nbsp; <%=rs("CompanyName")%></TD>
                  </TR>
                  <tr> 
                    <TD height="20"  align="right"  class="tdbg">联系人：</TD>
                    <TD     class="tdbg">&nbsp; <%=rs("Receiver")%></TD>
                  </tr>
                  <tr> 
                    <TD height="20"  align="right"  class="tdbg">收货地址：</TD>
                    <TD   height=-2  class="tdbg">&nbsp; <%=rs("Add")%></TD>
                  </tr>
                  <tr> 
                    <TD height="20"  align="right"  class="tdbg">联系电话：</TD>
                    <TD     class="tdbg">&nbsp; <%=rs("Phone")%></TD>
                  </tr>
                  <tr> 
                    <TD height="20"  align="right"  class="tdbg">联系传真：</TD>
                    <TD     class="tdbg">&nbsp; <%=rs("Fax")%></TD>
                  </tr>
                  <tr> 
                    <TD height="20"  align="right"  class="tdbg">电子信箱：</TD>
                    <TD     class="tdbg">&nbsp; <%=rs("EMail")%></TD>
                  </tr>
                  <tr> 
                    <TD height="20"  align="right"  class="tdbg">标题：</TD>
                    <TD   class="tdbg"> &nbsp; <%=rs("Subject")%></TD>
                  </tr>
                  <tr> 
                    <TD height="20"  align="right"  class="tdbg">备注：</TD>
                    <TD     class="tdbg">&nbsp; <%=rs("Notes")%></TD>
                  </tr>
                  <tr> 
                    <TD height=20 align="right"  class="tdbg">询价日期：</TD>
                    <TD   height=24  class="tdbg">&nbsp; <%=rs("OrderTime")%></TD>
                  </tr>
                  <tr> 
                    <TD height="20"  align="right"  class="tdbg">询价是否已经处理：</TD>
                    <TD     class="tdbg">&nbsp;  <%If rs("Flag")="Yes" Then%>
                      已处理 
                      <%else%>
                    未处理 <%End If%> </TD>
                  </tr>
                  <TR> 
                    <TD align="right"  class="tdbg"> 
                    询价商品细目：</TD>
                    <TD bgcolor="#FFFFFF">                  <%
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
%>
                      <table border="0" cellpadding="0" cellspacing="1" width="100%"  height="67">
                      <tr>
                        <td width="49%" align="center" class="Title">询价产品名称</td>
                      </tr>
                      <% 						 
While Not rs2.EOF
     
	  '计算总金额%>
                      <tr>
                        <td width="49%" align="center" class="tdbg"><%=rs2("Title")%></td>
                      </tr>
                      <%
rs2.MoveNext
Wend
%>
                    </table></TD>
                  </TR>
                  <TR> 
                    <TD height="25"  colSpan=2 align="center"  class="tdbg"> 
<%If rs("Flag")="No" 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></form>
              </TABLE>
            </td>
        </tr>
    </table>
<!-- #include file="Inc/Foot.asp" -->
<%%>