📄 orderlistfind.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
Form_ID = Request("Form_Id")
IF Session("LoginSuccess")="" Then
response.redirect "FindOrderLogin.asp"
Else
set Rs3 = Server.CreateObject("ADODB.recordset")
sql3="select * from OrderList where Form_Id="&Form_Id&""
rs3.open sql3,conn,1,1
IF rs3.RecordCount >=1 then
IF Session("LoginSuccess")=rs3("User_Id") Then
%>
<html>
<head>
<title>客户订货单详细信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>.main {
FONT-SIZE: 12px
}
.main1 {
FONT-SIZE: 14px
}
.main2 {
FONT-SIZE: 16px
}
.main3 {
FONT-SIZE: 7px
}
.main4 {
FONT-SIZE: 10px
}
A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:active {
COLOR: #ff0000; TEXT-DECORATION: none
}
A:hover {
COLOR: #aa0000; TEXT-DECORATION: underline
}
</STYLE>
</head>
<%
id=Form_Id
set rs=server.createobject("adodb.recordset")
sqltext="select * from OrderList where Form_Id=" & id
rs.open sqltext,conn,1,1
%>
<body text="#000000">
<br> <div align="center">
<center>
<form method='POST' action="OrderList_Save.asp?Form_Id=<%=rs("Form_Id")%>">
<TABLE cellSpacing=1 cellPadding=4 width=562 bgColor=#416327 height="159">
<TBODY>
<TR vAlign=top bgColor=#e6e4c4>
<TD class=main1 colSpan=2 width="548" height="10" bgcolor="#6D8E4D"></TD></TR>
<TR vAlign=top bgColor=#e6e4c4>
<TD class=main1 colSpan=2 width="548" height="32">客户订货单详细资料--</TD></TR>
<TR bgColor=#e6e4c4>
<TD class=main1 width=126 bgColor=#6d8e4d height=25 align="right"><SPAN
class=main1><font color="#FFFFFF">订货单号：</font></SPAN></TD>
<TD class=main1 width=410 height=25><%=rs("Form_Id")%></TD></TR>
<tr>
<TD class=main1 width=126 bgColor=#6d8e4d height=25 align="right"><SPAN
class=main1><font color="#FFFFFF">收货人姓名：</font></SPAN></TD>
<TD class=main1 width=410 height=25 bgcolor="#E6E4C4"><%=rs("Name")%></TD></TR>
<tr>
<TD class=main1 width=126 bgColor=#6d8e4d height=25 align="right"><SPAN
class=main1><font color="#FFFFFF">收货人联系地址：</font></SPAN></TD>
<TD class=main1 width=410 height=25 bgcolor="#E6E4C4"><%=rs("Address")%></TD>
</tr>
<tr>
<TD class=main1 width=126 bgColor=#6d8e4d height=25 align="right"><SPAN
class=main1><font color="#FFFFFF">邮政编码：</font></SPAN></TD>
<TD width=410 height=25 bgcolor="#E6E4C4"><%=rs("Zip")%></TD>
</tr>
<tr>
<TD class=main1 width=126 bgColor=#6d8e4d height=25 align="right"><SPAN
class=main1><font color="#FFFFFF">联系电话：</font></SPAN></TD>
<TD width=410 height=25 bgcolor="#E6E4C4"><%=rs("Phone")%></TD>
</tr>
<tr>
<TD class=main1 width=126 bgColor=#6d8e4d height=25 align="right"><SPAN
class=main1><font color="#FFFFFF">电子信箱：</font></SPAN></TD>
<TD class=main1 width=410 height=25 bgcolor="#E6E4C4"><%=rs("Email")%></TD>
</tr>
<tr>
<TD class=main1 width=126 bgColor=#6d8e4d height=25 align="right"><SPAN
class=main1><font color="#FFFFFF">付款方式：</font></SPAN></TD>
<TD class=main1 width=410 height=25 bgcolor="#E6E4C4"><%=rs("Pays")%></TD>
</tr>
<tr>
<TD class=main1 width=126 bgColor=#6d8e4d height=25 align="right"><SPAN
class=main1><font color="#FFFFFF">备注：</font></SPAN></TD>
<TD class=main1 width=410 height=25 bgcolor="#E6E4C4"><%=rs("Remark")%></TD>
</tr>
<tr>
<TD class=main1 width=126 bgColor=#6d8e4d height=24 align="right"><SPAN
class=main1><font color="#FFFFFF">订货日期：</font></SPAN></TD>
<TD class=main1 width=410 height=24 bgcolor="#E6E4C4"><%=rs("RegTime")%></TD>
</tr>
<tr>
<TD class=main1 width=126 bgColor=#6d8e4d height=25 align="right"><SPAN
class=main1><font color="#FFFFFF">订单是否已经处理：</font></SPAN></TD>
<TD class=main1 width=410 height=25 bgcolor="#E6E4C4"><%If rs("Flag")="尚未处理" Then%><font color="#0000FF">尚未处理</font><%else%><font color="#FF0000">已经发货</font><%End If%>
</TD>
</tr>
<TR vAlign=top bgColor=#e6e4c4>
<TD class=main1 colSpan=2 width="548" height="31">订货商品细目--</TD></TR>
<%
set rs2=server.createobject("adodb.recordset")
sqltext2="select * from ShopList where Form_Id=" & id
rs2.open sqltext2,conn,1,1
%>
<TR vAlign=top bgColor=#e6e4c4>
<TD class=main1 colSpan=2 width="548" height="15">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#6D8E4D" bordercolordark="#E6E4C4" class=main1 height="68">
<tr>
<td width="16%" bgcolor="#6D8E4D" height="18" align="center"><font color="#ffffff">商品编号</font></td>
<td width="33%" bgcolor="#6D8E4D" height="18" align="center"><font color="#ffffff">商品名称</font></td>
<td width="21%" bgcolor="#6D8E4D" height="18" align="center"><font color="#ffffff">商品价格</font></td>
<td width="12%" bgcolor="#6D8E4D" height="18" align="center"><font color="#ffffff">商品数量</font></td>
<td width="18%" bgcolor="#6D8E4D" height="18" align="center"><font color="#FFFFFF">金额小计</font></td>
</tr>
<%Sum=0
While Not rs2.EOF%>
<tr>
<td width="22%" align="center" height="22"><%=rs2("Product_Id")%></td>
<td width="33%" align="center" height="22"><%=rs2("Product_Name")%></td>
<td width="21%" align="center" height="22"><%=rs2("P_NewPrice")%></td>
<td width="12%" align="center" height="22"><%=rs2("Number")%></td>
<td width="18%" align="center" height="22"><%=rs2("P_NewPrice")*rs2("Number")%>元</td>
<%Sum=Sum+rs2("P_NewPrice")*rs2("Number")%>
</tr>
<%
rs2.MoveNext
Wend
%>
</center>
<tr>
<td width="100%" colspan="5" height="22">
<p align="right"><font color="#FF0000">总计金额</font>：<%=Sum%>元</p>
</td>
</tr>
</table>
</div>
</TD></TR>
<center>
<TR bgColor=#e6e4c4>
<TD class=main1 colSpan=2 width="548" height="27">
<p align="center">
<input type="button" value="返回" name="B4" onclick="javascript:window.history.go(-1)">
</TD></TR>
<TR bgColor=#e6e4c4>
<TD class=main1 colSpan=2 width="548" height="4" bgcolor="#6D8E4D"></TD></TR></TBODY></TABLE>
</center>
</div>
</form>
<p>
<%
Else
response.redirect "messagebox.asp?msg=您不能查看不属于您的订单，请重新输入您自己的订单号！"
End If
Else
response.redirect "messagebox.asp?msg=您输入的订单号不存在或格式不正确，请重新输入！"
End IF
End if
rs3.close
conn.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -