📄 order-list.asp

📁 西亚电子购物系统
💻 ASP
字号:
<!--#include file="../manage/check-3.asp"-->
<html>
<head>
<title>客户订货单详细信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../conn/css.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="../conn/conn.asp"-->
<%
orderid=request("orderid")
page=request("page")
set rs=server.createobject("adodb.recordset")
sql="select * from sia_order where orderid=" & orderid
rs.open sql,conn,1,1
c=rs("ordernumber")
sia_user=rs("sia_user")

set rs1=server.createobject("adodb.recordset")
sql1="select * from sia_user where  sia_user= '"&sia_user&"'"
rs1.open sql1,conn,1,1
%>
<table width="600" align="center">
  <tr bgcolor="#CCCCCC"> 
    <td height="25" colspan="2">&gt;&gt;客户详细资料</td>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD width=150 align="right">订货单号：</TD>
    <TD width=450>&nbsp;<%=rs("ordernumber")%></TD>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD align="right">会员账号：</TD>
    <TD >&nbsp;<%response.write "<a href='user-order.asp?sia_user="&rs1("sia_user")&"'  >"&rs1("sia_user")&"</a>"%></TD>
  </tr>
  <tr bgcolor="#f1f1f1">
    <TD align="right">会员级别：</TD>
    <TD >&nbsp;<%
Select case rs1("grade")
	case "0"
	Response.Write("普通会员")
	case "1"
	Response.Write("星级会员")
	case "2"
	Response.Write("铜牌会员")
	case "3"
	Response.Write("银牌会员")
	case "4"
	Response.Write("金牌会员")
    End Select
%>
    </TD>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD width=150 align="right">会员真实姓名：</TD>
    <TD width=450 >&nbsp;<%=rs1("name")%></TD>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD width=150 align="right">收货人联系地址：</TD>
    <TD width=450 >&nbsp;<%=rs1("address")%></TD>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD width=150 align="right">邮政编码：</TD>
    <TD  width=450>&nbsp;<%=rs1("zipcode")%></TD>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD width=150 align="right">联系电话：</TD>
    <TD  width=450>&nbsp;<%=rs1("tel")%></TD>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD width=150 align="right">电子信箱：</TD>
    <TD width=450>&nbsp;<a href="mailto:<%=rs1("mail")%>?subject=购物确认"><%=rs1("mail")%></a></TD>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD width=150 align="right">付款方式：</TD>
    <TD width=450 >&nbsp;<%=rs("payment")%></TD>
  </tr>
  <tr  bgcolor="#f1f1f1"> 
    <TD width=150 align="right" >备注：</TD>
    <TD width=450>&nbsp;<%=rs("remark")%></TD>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD width=150 align="right">订货日期：</TD>
    <TD width=450 >&nbsp;<%=rs("now")%><font color="#999999">&nbsp;[<%=rs("ip")%>]</font></TD>
  </tr>
  <tr bgcolor="#f1f1f1"> 
    <TD width=150 align="right">订单是否已经处理：</TD>
    <TD width=450 class=main1>&nbsp; <%=rs("orderstate")%></TD>
  </tr>
</table>
  <table width="600" align="center">
<%
set rs2=server.createobject("adodb.recordset")
sql2="select * from sia_list where ordernumber= '"&c&"'"
rs2.open sql2,conn,1,1
%>
    <tr valign="middle" bgcolor="#CCCCCC"> 
      <td height="25" colspan="4">&gt;&gt;订货产品细目</td>
  </tr>
    <tr valign="middle" bordercolorlight="#0097fe" bordercolordark="#ffffff" class="main1"> 
      <td height="25" align="center" bgcolor="#f1f1f1">产品名称</td>
      <td height="25" align="center" bgcolor="#f1f1f1">产品价格</td>
      <td height="25" align="center" bgcolor="#f1f1f1">产品数量</td>
      <td height="25" align="center" bgcolor="#f1f1f1">金额小计</td>
  </tr><%Sum=0
                      While Not rs2.EOF%>
    <tr valign="middle" bordercolorlight="#0097fe" bordercolordark="#ffffff" class="main1"> 
      <td height="25" bgcolor="#f1f1f1"><font color="#666666">[<%=rs2("code")%>]</font><%=rs2("proname")%></td>
      <td height="25" align="center" bgcolor="#f1f1f1"><%=rs2("proprice")%></td>
      <td height="25" align="center" bgcolor="#f1f1f1"><%=rs2("stock")%></td>
      <td height="25" align="center" bgcolor="#f1f1f1"><%=rs2("proprice")*rs2("stock")%>元</td>
    <%Sum=Sum+rs2("proprice")*rs2("stock")%>
  </tr><%
    					  rs2.MoveNext
   						  Wend
					  %>
    <tr valign="middle"> 
      <td height="25" colspan="4" align="right" bgcolor="#f1f1f1">总计金额：<font color="#FF3333">￥<%=Sum%>元</font>&nbsp;&nbsp;&nbsp;&nbsp;</td>
  </tr>
    <tr valign="middle"> 
      <td height="25" colspan="4" align="center" bgcolor="#f1f1f1"> 
        <%If rs("orderstate")="尚未处理" Then%>
      <input name="B12" type="button" class="textbox-1" value="等待货款" onclick="window.location='handle.asp?orderid=<%=rs("orderid")%>&orderstate=等待货款'"> 
      <%
    rs2.close
	End If
%><%If rs("orderstate")="尚未处理" or rs("orderstate")="等待货款" Then%>
      <input name="B12" type="button" class="textbox-1" value="已经发货" onclick="window.location='handle.asp?orderid=<%=rs("orderid")%>&orderstate=已经发货'"> 
      <%
    rs.close
    conn.close
	End If
%>          
<input name="B42" type="button" class="textbox-1" onclick="javascript:window.history.go(-1)" value="返回上页"> 
    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -