📄 report.asp

📁 网络购物
💻 ASP
字号:
<%'=========================================''         凡人网络购物系统V4.0免费版'    FreeDown.Net info@freedown.net '            www.freedown.net'     版权所有·免费版仅供研究测试只用'            商业使用请购买正版''=========================================%>
<%
if session("admin_name")="" then
    response.redirect "login.asp"
end if
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<link href=../css.css rel=STYLESHEET type=text/css>
</head>
<%

sub_number=request("sub_number")
sql="select * from sub where sub_number='"&sub_number&"'"
rs.open sql,conn,3,3
if rs.eof then
%>

<p align="center">没有此订单的信息</p>
<%
else
%>
<table border="0" width="100%" cellspacing="1">
  <tr>
    <td width="100%">
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td width="100%" bgcolor="#DBC2B0"> 
            <p align="center">订单投诉信息查询</p>
          </td>
        </tr>
        <tr>
          <td width="100%" bgcolor="#DBC2B0">
            <table width="100%" cellspacing="1">
              <tr> 
                <td bgcolor="#ffffff" colspan="2" width="327">订购日期:<%=rs("sub_date")%></td>
                <td bgcolor="#ffffff" colspan="2" width="409">订货人:<%=rs("user_name")%></td>
              </tr>
              <tr> 
                <td bgcolor="#ffffff" colspan="2" width="327">收货人:<%=rs("sub_to")%></td>
                <td bgcolor="#ffffff" colspan="2" width="409">收货地址:<%=rs("sub_adds")%></td>
              </tr>
              <tr> 
                <td bgcolor="#ffffff" colspan="2" width="327">电话:<%=rs("sub_tel")%></td>
                <td bgcolor="#ffffff" colspan="2" width="409">E-mail:<%=rs("sub_mail")%></td>
              </tr>
              <tr> 
                <td bgcolor="#ffffff" colspan="4" height="25">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="16%">备注信息：</td>
                      <td width="84%"><b><%=rs("other")%></b></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <%rs.close
                    %>
              <tr> 
                <td width="742" bgcolor="#FFFFFF" colspan="4"> 
                  <p align="center"><font color="#FF0000">订购货物列表</font></p>
                </td>
              </tr>
              <tr> 
                <td width="142" bgcolor="#FFFFFF">货物名称</td>
                <td width="179" bgcolor="#FFFFFF">单价</td>
                <td width="262" bgcolor="#FFFFFF">数量</td>
                <td width="141" bgcolor="#FFFFFF">合计</td>
              </tr>
              <%sql="select * from basket where sub_number='"&sub_number&"'"
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "没有此订单信息"
                  response.end
              else
                  do while not rs.eof%>
              <tr> 
                <td width="142" bgcolor="#FFFFFF"><%=rs("hw_name")%></td>
                <td width="179" bgcolor="#FFFFFF"><%=rs("hw_cash")%>元</td>
                <td width="262" bgcolor="#FFFFFF"><%=rs("basket_count")%></td>
                <td width="141" bgcolor="#FFFFFF"><font color=red><%=rs("hw_cash")*rs("basket_count")%></font>元</td>
                <%totalcash=totalcash+rs("hw_cash")*rs("basket_count")%>
              </tr>
              <%rs.movenext
              loop
              rs.close
              %>

              <tr> 
                <td width="595" bgcolor="#FFFFFF" colspan="3">总计</td>
                <td width="141" bgcolor="#FFFFFF"><font color=red><%=totalcash%></font>元</td>
              </tr>
              <%end if%>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%end if
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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