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

📄 orderlist_detail.asp

📁 一套很早的多用户电子商务程序
💻 ASP
字号:
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<%
id=request("id")
page=request("page")
set rs=server.createobject("adodb.recordset")
sqltext="select * from OrderList where user_id='"&Session("LoginSuccess")&"' and  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" leftmargin="0">
<div align="center"><font color="#0000FF"><strong>订单详细资料</strong></font> </div>
<table width=590 border="1" align="center" cellpadding=0 cellspacing=0 bordercolorlight="#0099FF" bordercolordark=#ffffff>
  <tr> 
    <td width=84 height=25 align="right" class=main1><span 
                  class=main1>订货单号:</span></td>
    <td width=91 height=25 class=main1>&nbsp;<font color="#0000FF"><strong><%=rs("billno")%></strong></font></td>
    <td width=82 align="right" class=main1>是否已汇款:</td>
    <td width=110 class=main1>&nbsp;<font color="#0000FF"><%=rs("f_pay")%></font></td>
    <td width=84 align="right" class=main1>是否已发货:</td>
    <td width=135 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="../<%=rs("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>
      <div align="center"> <a href="javascript:history.back(1)">返回</a>  <a href="#" onClick="window.close();">关闭窗口</a></div></td>
  </tr>
</table>
  <br>
<%
rs.close:set rs=nothing
conn.close
%>
</body>
</html>

⌨️ 快捷键说明

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