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

📄 report.asp

📁 一套完整的毕业论文。物资管理信息系统。 请大家指点
💻 ASP
字号:
<%
if session("admin_name")="" then response.end
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=../style.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="1">
        <tr>
          <td width="100%" bgcolor="#FF9966">
            <p align="center">订单投诉信息查询</p>
          </td>
        </tr>
        <tr>
          <td width="100%" bgcolor="#33CCFF">
            <table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
              <tr>
                <td width="100%">
                  <table width="100%">
                    <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><%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>
                  <p> </td>
              </tr>
            </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 + -