📄 indict_manage.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="Cookies.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投诉管理</title>
<style type="text/css">
<!--
.style3 {
font-size: 40px;
color: #330099;
}
-->
</style></head>
<body>
<p align="center"><span class="style3">投诉管理 </span></p>
<p>
<%
dim rs,us
set rs=server.CreateObject("adodb.recordset")
us="select * From indict"
rs.Open us,conn,1
%>
</p>
<table width="101%" height="91" border="1" bordercolor="#00FF33">
<tr>
<th width="13%" height="37" scope="col">投诉ID号</th>
<th width="12%" scope="col">投诉人姓名</th>
<th width="12%" scope="col">投诉人ID号</th>
<th width="17%" scope="col">发布日期</th>
<th width="8%" scope="col">是否受理</th>
<th width="25%" scope="col">投诉内容</th>
<th width="13%" scope="col">查看</th>
</tr>
<%
if Not rs.EOF and Not rs.BOF then
if Request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(Request.QueryString("page_no"))
end if
rs.PageSize=6
rs.AbsolutePage=page_no
dim I
I=rs.PageSize
do while Not rs.EOF and I>0
I=I-1
%>
<tr>
<th height="45" scope="row"><%=rs("indict_id")%></th>
<th><%=rs("pub_name")%></th>
<th><%=rs("pub_id")%></th>
<th><%=rs("pub_date")%></th>
<th><%=rs("isaccept")%></th>
<th><%=rs("indict")%> </th>
<th><a href="indictinfo.asp?indict_id=<%=rs("indict_id")%>">查看信息</a> </th>
</tr>
<%
rs.MoveNext
loop
%>
</table>
<table width="" border="0">
<tr>
<th width="835" height="32" scope="col">请选择页面：
<%
for I=1 to rs.PageCount
if I=page_no then
Response.Write I & " "
else
Response.Write ("<a href='indict_manage.asp?page_no=" & I & "'>" & I & "</a> ")
end if
next
else
Response.Write "没有用户!"
end if
%></th>
</tr>
</table>
<%
rs.close
set rs=nothing
closedb
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -