📄 orderform.asp
字号:
<%@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>
这里只能查询非会员的订单。订单编号和收货人姓名必须完全正确才能找得到。<br>
如果您是会员，请登录后进入会员控制面板查询自己的订单。</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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -