⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 orderlist_detail.asp

📁 一套很早的多用户电子商务程序
💻 ASP
字号:
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"--><!--#include file="Check.asp"-->
<%
id=request("id")
page=request("page")
set rs=server.createobject("adodb.recordset")
sqltext="select * from OrderList where billno='"&id&"'"
rs.open sqltext,conn,1,1
If rs.eof and rs.bof then 
Response.Write ("<script>alert('此条订单不存在!');javascript:history.back(1)</script>")
response.end
End if
%>

<html>
<head>
<STYLE>BODY {
	FONT-SIZE: 9pt
}
TD {
	FONT-SIZE: 9pt; LINE-HEIGHT: 150%
}
A {
	TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: underline
}
</STYLE>
<script language="javascript">
</script>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body background="../pic/user/bg.jpg">
  
<table width=100% border="1" align="center" cellpadding=0 cellspacing=0 bordercolorlight="#0099FF" bordercolordark=#ffffff>
  <tr valign=top> 
      <td class=main1 colspan=6 height="24"> <div align="center"><font color="#0000FF"><strong>客户订单详细资料</strong></font></div></td>
    </tr>
    <tr> 
      
    <td width=14% height=25 align="right" class=main1><span 
                  class=main1>订货单号:</span></td>
      
    <td width=15% height=25 class=main1>&nbsp;<font color="#0000FF"><strong><%=rs("billno")%></strong></font></td>
      
    <td width=14% align="right" class=main1>是否已汇款:</td>
      
    <td width=18% class=main1>&nbsp;<font color="#0000FF"><%=rs("f_pay")%></font></td>
      
    <td width=14% align="right" class=main1>是否已发货:</td>
      
    <td width=25% class=main1>&nbsp;<font color="#0000FF"><%=rs("f_send")%></font></td>
    </tr>
    <tr> 
      <td class=main1 height=25 align="right"><span 
                  class=main1>会员编号:</span></td>
      <td class=main1 height=25>&nbsp;<%=rs("user_id")%></td>
      <td align="right" class=main1><span 
                  class=main1>支付方式:</span></td>
      <td class=main1>&nbsp;<%=rs("pay")%></td>
      <td align="right" class=main1><span 
                  class=main1>配送方式:</span></td>
      <td class=main1>&nbsp;<%=rs("send")%></td>
    </tr>
    <tr> 
      <td class=main1 height=25 align="right"><span 
                  class=main1>收货人姓名:</span></td>
      <td class=main1 height=25>&nbsp;<%=rs("Name")%></td>
      <td align="right" class=main1><span 
                  class=main1>联系电话:</span></td>
      <td class=main1>&nbsp;<%=rs("Phone")%></td>
      <td align="right" class=main1><span 
                  class=main1>电子信箱:</span></td>
      <td class=main1>&nbsp;<%=rs("Email")%></td>
    </tr>
    <tr> 
      <td class=main1 height=25 align="right"><span 
                  class=main1>邮政编码:</span></td>
      <td height=25>&nbsp;<%=rs("Zip")%></td>
      <td align="right"><span 
                  class=main1>收货人地址:</span></td>
      <td colspan="3">&nbsp;<%=rs("Address")%></td>
    </tr>
    <tr> 
      <td class=main1 height=25 align="right"><span 
                  class=main1>备注:</span></td>
      <td height=25 colspan="5" class=main1>&nbsp;<%=rs("Remark")%></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> 
      <td class=main1 colspan=6 height="15"> <br>
        订单商品细目 (日期:<%=rs("RegTime")%>) 
        <table border="1" cellpadding="0" cellspacing="0" width="98%" bordercolorlight="#666666" bordercolordark="#FFFFFF" class=main1 height="68" align="center">
          <tr> 
            <td width="16%" height="18" align="center">商品编号</td>
            <td width="33%" height="18" align="center">商品名称</td>
            <td width="21%" height="18" align="center">商品价格</td>
            <td width="12%" height="18" align="center">商品数量</td>
            <td width="18%" height="18" align="center">金额小计</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"><a href="../<%=request("p_shop")%>/default.asp?sb=product&Product_id=<%=rs2("Product_id")%>" target="_blank"><%=rs2("Product_Name")%></a></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
	rs2.close:set rs2=nothing
	'amount=rs("amount")+Sum
	%>
          <tr> 
            <td width="100%" colspan="5" height="22"> 
              <p align="right"><font color="#FF0000">
			  <%response.write"总价:¥"&Sum&"元+配送费¥"&rs("send_money")&"元=¥"&Sum+rs("send_money")&"元"%>
			  </p></td>
          </tr>
        </table>
        <br> </td>
    </tr>
  </table>
  
<div align="center"><br>
  <%
rs.close:set rs=nothing
conn.close
%>
  <input type="button" value="  返回  " name="B4" onClick="javascript:window.history.go(-1)">
</div>
</body>
</html>

⌨️ 快捷键说明

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