<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>订单查询</title>
<link href="Images/shop.css" rel="stylesheet" type="text/css">
</head>

<body>
<%If Trim(Request("Action")) <> "Search" Then%>
<form name='myform' action='OrderForm.asp' method='post'>
<table width="400" border="0" align="center" cellpadding="5" cellspacing="1" class="border">
  <tr>
    <td colspan="2" align="center" class="title">订单查询</td>
  </tr>
  <tr class="tdbg">
    <td align="right">订单编号：</td>
    <td><input name="OrderFormNum" type="text" id="OrderFormNum" size="20" maxlength="20"></td>
  </tr>
  <tr class="tdbg">
    <td align="right">收货人姓名：</td>
    <td><input name="ContacterName" type="text" id="ContacterName" size="20" maxlength="20"></td>
  </tr>
  <tr class="tdbg">
    <td colspan="2">说明：<br>
    &nbsp;&nbsp;&nbsp;&nbsp;这里只能查询非会员的订单。订单编号和收货人姓名必须完全正确才能找得到。<br>
&nbsp;&nbsp;&nbsp;    如果您是会员，请登录后进入会员控制面板查询自己的订单。</td>
  </tr>
  <tr align="center" class="tdbg">
    <td colspan="2"><input name="Action" type="hidden" id="Action" value="Search">
    <input type="submit" name="Submit" value=" 提交 "></td>
  </tr>
</table>
</form>
<%
Else
    On Error Resume Next
    Dim PE_Order
    Set PE_Order = Server.CreateObject("PE_EShop6.Orders")
    If Err Then
        Err.Clear
        Response.Write "对不起，你的服务器没有安装动易组件（PE_EShop6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
        Response.End
    End If
    PE_Order.iConnStr = ConnStr
    Call PE_Order.ShowOrderInfo
    If Err Then
        Response.Write "错 误 号：" & Err.Number & "<BR>"
        Response.Write "错误描述：" & Err.Description & "<BR>"
        Response.Write "错误来源：" & Err.Source & "<BR>"
        Err.Clear
    End If
    Set PE_Order = Nothing
End If

Call CloseConn
%>
</body>
</html>