subreport.asp

自做的购物网站

<%
if session("admin_name")="" then response.end
%>
<!--#include file="conn.asp"-->
<!--#include file="css.asp"-->
<TABLE cellSpacing=1 cellPadding=0 width="540" 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="156">
          <TBODY>
                    <%sql="select * from ts"
        set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        if rs.eof then%>
			<TR bgcolor="#FFFFFF"> 
              <TD height="30" colspan="4" noWrap id=titlemedium><font color="#000000">暂没有投诉订单</font></TD>
            </TR>
			        <%else
        %>
            <TR> 
              <TD width="25%" height="30" noWrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">订单号</font></div></TD>
              <TD width="25%" height="30" noWrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">订购人</font></div></TD>
              <TD width="25%" height="30" noWrap 
          background=images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">投诉时间</font></div></TD>
              <TD width="25%" height="30" align=middle noWrap 
          background=images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF">查看详细信息</font></div></TD>
            </TR>
			<%do while not rs.eof%>
            <TR> 
              <TD width="25%" height="30" bgColor=#ffffff><div align="center"><%=rs("sub_number")%></div></TD>
              <TD width=25% height="30" align=middle bgColor=#ffffff><div align="center"><font color=#333333><%=rs("user_name")%> 
                  </font></div></TD>
              <TD width=25% height="30" align=middle bgColor=#ffffff><div align="center"><%=rs("ts_date")%></div></TD>
              <TD width=25% height="30" align=middle bgColor=#ffffff><div align="center"><a href="report.asp?sub_number=<%=rs("sub_number")%>"><img src="images/pics/more.gif" width="70" height="20" border="0"></a></div>
                <div align="center"> </div></TD>
            </TR>
			<%rs.movenext
        loop
        end if
        rs.close
        set rs=nothing
        conn.close
        set conn=nothing
        %>
            <TR> 
              <TD height="30" colspan="4" bgColor=#ffffff><div align="center"><img src="../IMAGES/pics/seperator.gif" width="359" height="1"></div></TD>
            </TR>
            <TR> 
              <TD id=mainfoot 
colSpan=4 height="30"> <div align="center"></div></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>