📄 subreport.asp
字号:
<%
'如果用户没有登陆，则终止响应
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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -