report.asp

自做的购物网站

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"-->
<!--#include file="css.asp"-->
<%
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 cellSpacing=1 cellPadding=0 width="500" align=center bgColor=#999999 
border=0>
  <TBODY> 
  <TR> 
      <TD width="735" background=images/pics/tile_back.gif id=maintitleback><TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD><IMG height=8 src="images/pics/nav_m.gif" width=8 
            border=0></TD>
              
          <TD width="100%" height="30" valign="bottom" id=maintitle>订单管理 -&gt;<b> 
            订单投诉</b></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD id=mainbg> <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0 height="342">
          <TBODY>
            <TR> 
              <TD height="30" noWrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">订购日期</font></div></TD>
              <TD height="30" colspan="2" noWrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"> 
                  <font color="#FFFFFF"><%=rs("sub_date")%></font></div></TD>
              <TD width="122" height="30" align=middle noWrap 
          background=images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF">订货人</font></div></TD>
              <TD height="30" colspan="2" align=middle noWrap 
          background=images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF"><%=rs("user_name")%></font></div></TD>
            </TR>
            <TR> 
              <TD bgColor=#ffffff height="30"><div align="center"><font color="#000000">收货人</font></div></TD>
              <TD width="122" height="30" align=middle bgColor=#ffffff> <div align="center"><font color=#333333><%=rs("sub_to")%></font></div></TD>
              <TD width="122" height="30" align=middle bgColor=#ffffff><div align="center">电话</div></TD>
              <TD align=middle bgColor=#ffffff height="30"><div align="center"><%=rs("sub_tel")%> 
                </div></TD>
              <TD width="122" height="30" bgColor=#ffffff><div align="center">E-mail</div></TD>
              <TD width="122" height="30" align=middle bgColor=#ffffff><div align="center"><%=rs("sub_mail")%> 
                </div></TD>
            </TR>
            <TR> 
              <TD bgColor=#ffffff height="30"><div align="center"><font color="#000000">收货地址</font></div></TD>
              <TD height="30" colspan="5" align=middle bgColor=#ffffff> <div align="center"></div>
                <div align="center"><%=rs("sub_adds")%> </div></TD>
            </TR>
            <TR> 
              <TD bgColor=#ffffff height="30"><div align="center">备注信息</div></TD>
              <TD height="30" colspan="5" align=middle bgColor=#ffffff> <div align="center"><b><%=rs("other")%></b></div></TD>
            </TR>
            <TR> 
              <TD height="30" colspan="6" bgColor=#ffffff><div align="center"><img src="../IMAGES/pics/seperator.gif" width="359" height="1"></div></TD>
            </TR>
            <TR> 
              <TD height="30" colspan="6" bgColor=#ffffff><div align="center"><font color="#FF0000">订购货物列表</font></div></TD>
            </TR>
            <TR> 
              <%rs.close
                    %>
              <TD bgColor=#ffffff height="30"><div align="center">货物名称</div></TD>
              <TD height="30" colspan="2" align=middle bgColor=#ffffff> <div align="center">单价</div></TD>
              <TD height="30" align=middle bgColor=#ffffff><div align="center">数量</div></TD>
              <TD height="30" colspan="2" align=middle bgColor=#ffffff><div align="center">合计</div></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=122 bgColor=#ffffff height="30"><div align="center"><%=rs("hw_name")%></div></TD>
              <TD height="30" colspan="2" align=middle bgColor=#ffffff> <div align="center"><%=rs("hw_cash")%>元</div></TD>
              <TD height="30" align=middle bgColor=#ffffff><div align="center"><%=rs("basket_count")%></div></TD>
              <TD height="30" colspan="2" align=middle bgColor=#ffffff><div align="center"><font color=red><%=rs("hw_cash")*rs("basket_count")%></font>元</div></TD>
              <%totalcash=totalcash+rs("hw_cash")*rs("basket_count")%>
            </TR>
            <%rs.movenext
              loop
              rs.close
              %>
            <TR> 
              <TD bgColor=#ffffff height="30"><div align="center">总计</div></TD>
              <TD height="30" colspan="2" align=middle bgColor=#ffffff><div align="center"></div></TD>
              <TD height="30" align=middle bgColor=#ffffff><div align="center"></div></TD>
              <TD height="30" colspan="2" align=middle bgColor=#ffffff><div align="center"><font color=red><%=totalcash%></font>元</div></TD>
            </TR>
            <%end if%>
            <TR> 
              <TD height="30" colspan="6" bgColor=#ffffff><div align="center"><img src="../IMAGES/pics/seperator.gif" width="359" height="1"></div></TD>
            </TR>
            <TR> 
              <TD id=mainfoot 
colSpan=6 height="20"> <div align="center"> </div></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<%end if
set rs=nothing
conn.close
set conn=nothing
%>