📄 info_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">
<!--
.style5 {font-size: 30px}
.style7 {color: #0000FF}
.style8 {
color: #FF00FF;
list-style-image: url(img/pagerror.gif);
list-style-position: outside;
}
.style10 {
font-size: 16px;
color: #FF0000;
}
.style13 {color: #FF0000}
.style15 {
font-size: 12px;
color: #0000FF;
}
.style16 {font-size: medium}
-->
</style>
</head>
<body MS_POSITIONING="GridLayout">
<table width="782" height="481" border="1">
<tr>
<th width="772" height="219" scope="col">
<span class="style5">发布信息管理</span> <table width="100%" height="156" border="1">
<tr>
<th height="150" scope="col">
<form name="form1" method="post" action="infopass.asp">
<span class="style10">
<%
dim I,J
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from info where isdiposal=no order by toolc_num desc,date desc"
rs.open sql,conn,1,1
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=4
rs.AbsolutePage=page_no
I=rs.PageSize
%>
未通过发布信息</span>
<table width="100%" height="81" border="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC" >
<tr>
<th width="27" height="24" bgcolor="#FF9900" scope="col"><span class="style7"> </span></th>
<th width="100" bgcolor="#FF9900" scope="col"><span class="style7">方式</span></th>
<th width="321" bgcolor="#FF9900" scope="col"><span class="style7"> 标 题 </span></th>
<th width="71" bgcolor="#FF9900" scope="col"><span class="style7"> 姓名 </span></th>
<th width="70" bgcolor="#FF9900" scope="col"><span class="style7"> 日期 </span></th>
<th width="90" bgcolor="#FF9900" scope="col"> </th>
</tr><%
do while Not rs.EOF and I>0
I=I-1
%>
<tr>
<th height="49" scope="col"><input type="checkbox" name="checkinfo" value="<%=rs(0)%>"></th>
<th height="49" scope="col"><%if rs(5)=0 then
%>
<span class="style4 style7">求购</span>
<%else%>
<span class="style8">出售</span>
<%end if%></th>
<th scope="col"><a href="showinfo.asp?info_id=<%=rs(0)%>" class="style7 style16"><%=rs(4)%></a></th>
<th scope="col"><%=rs(1)%></th>
<th scope="col"><span class="style15"><%=rs("date")%></span></th>
<th scope="col"><a href="infoback.asp?username=<%=rs(1)%>" class="style13">回复</a>
<a href="delinfo.asp?info_id=<%=rs(0)%>" class="style13" >删除</a></th>
</tr>
<%
rs.MoveNext
loop
%>
</table>
<table width="100%" border="1" bordercolor="#66FF66" bgcolor="#CCCCCC">
<tr>
<th width="580" scope="col">请选择页面：
<%
for I=1 to rs.PageCount
if I=page_no then
Response.Write I & " "
else
Response.Write ("<a href='info_manage.asp?page_no2=" & J &"&page_no=" & I & "'>" & I & "</a>")
end if
next
%>
</th>
</tr>
</table>
<input name="buttn2" type="submit" value="通过">
</form></th>
</tr>
</table>
<%
else
response.Write("<span class='style10'>没有未通过发布信息</span> ")
end if
rs.close
%></th>
</tr>
<tr>
<th height="171" scope="col">
<table width="757" height="167" border="1">
<tr>
<th height="161" scope="col">
<form name="form2" method="post" action="">
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from info where isdiposal=yes order by toolc_num desc,date desc"
rs.open sql,conn,1,1
if Not rs.EOF and Not rs.BOF then
if Request.QueryString("page_no2")="" then
page_no2=1
else
page_no2=cint(Request.QueryString("page_no2"))
end if
rs.PageSize=5
rs.AbsolutePage=page_no2
J=rs.PageSize
%>
<div align="center"><span class="style10">已通过发布信息</span>
</div>
<table width="100%" height="90" border="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC" >
<tr>
<th width="81" height="24" bgcolor="#FF9900" scope="col"><span class="style7">方式 </span></th>
<th width="418" bgcolor="#FF9900" scope="col"><span class="style7">标 题 </span></th>
<th width="69" bgcolor="#FF9900" scope="col"><span class="style7">姓名 </span></th>
<th width="68" bgcolor="#FF9900" scope="col"><span class="style7">日期 </span></th>
<th width="77" bgcolor="#FF9900" scope="col"><span class="style7"> </span></th>
</tr>
<%
do while Not rs.EOF and J>0
J=J-1%>
<tr>
<th height="58" scope="col"><%if rs(5)=0 then
%>
<span class="style4 style7">求购</span>
<%else%>
<span class="style8">出售</span>
<%end if%></th>
<th scope="col"><a href="showinfo.asp?info_id=<%=rs(0)%>" class="style7 style16"><%=rs(4)%></a></th>
<th scope="col"><%=rs(1)%></th>
<th scope="col"><span class="style15"><%=rs("date")%></span></th>
<th scope="col"><a href="infoback.asp?username=<%=rs(1)%>" class="style13">回复</a> <a href="delinfo.asp?info_id=<%=rs(0)%>" class="style13" >删除</a></th>
</tr>
<%
rs.MoveNext
loop
%>
</table>
<table width="100%" border="1" bordercolor="#66FF66" bgcolor="#CCCCCC">
<tr>
<th width="580" scope="col">请选择页面：
<%
for J=1 to rs.PageCount
if J=page_no then
Response.Write J & " "
else
Response.Write ("<a href='info_manage.asp?page_no=" & I &"&page_no2=" & J & "'>" & J & "</a>")
end if
next
%>
</th>
</tr>
</table>
</form></th>
<%
else
response.Write("<span class='style10'>没有通过发布信息</span> ")
end if
rs.close
set rs=nothing
%>
</tr>
</table> </th>
</tr>
</table>
</body>
</html>
<%
closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -