subreport.asp

来自「ASP入门与提高实用教程 源文件(上传网站)」· ASP 代码 · 共 49 行

ASP
49
字号
<%
if session("admin_name")="" then response.end
%>
<!--#include file="conn.asp"-->

<head>
<link href=../style.css rel=STYLESHEET type=text/css>
</head>
<table border="0" width="100%" cellspacing="1">
  <tr>
    <td width="100%">
      <table border="0" width="100%" cellspacing="1" bgcolor="#FF9933">
        <tr>
          <td width="100%" colspan="4">投诉订单查询</td>
        </tr>
        <%sql="select * from ts"
        set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        if rs.eof then%>
        <tr>
          <td width="100%" bgcolor="#FFFFFF" colspan="4">
            <p align="center">暂没有投诉订单</td>
        </tr>
        <%else
        %>
        <tr>
          <td width="25%" bgcolor="#FFFFFF">订单号</td>
          <td width="25%" bgcolor="#FFFFFF">订购人</td>
          <td width="25%" bgcolor="#FFFFFF">投诉时间</td>
          <td width="25%" bgcolor="#FFFFFF">查看详细信息</td>
        </tr><%do while not rs.eof%>
        <tr>
          <td width="25%" bgcolor="#FFFFFF"><%=rs("sub_number")%></td>
          <td width="25%" bgcolor="#FFFFFF"><%=rs("user_name")%></td>
          <td width="25%" bgcolor="#FFFFFF"><%=rs("ts_date")%></td>
          <td width="25%" bgcolor="#FFFFFF"><a href="report.asp?sub_number=<%=rs("sub_number")%>">详细信息</a></td>
        </tr><%rs.movenext
        loop
        end if
        rs.close
        set rs=nothing
        conn.close
        set conn=nothing
        %>
      </table>
    </td>
  </tr>
</table>

⌨️ 快捷键说明

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