<!--#include file=CONN.ASP-->
<!--#include file=cookies.asp-->
<%
dim flag
flag=request.cookies("foxwww")("fox")
if flag<8 then
response.Write "<script LANGUAGE='javascript'>alert('你目前的级别不允许此操作！');history.go(-1);</script>"
response.end
end if
%>
<script>
function loadThreadFollow(t_id,b_id){
	var targetImg =eval("document.all.followImg" + t_id);
	var targetDiv =eval("document.all.follow" + t_id);
	
	if ("object"==typeof(targetImg)){
		if (targetDiv.style.display!='block'){
			targetDiv.style.display="block";
			
		}else{
			targetDiv.style.display="none";
		}
	}
}
</script>
<meta http-equiv="Content-Language" content="zh-cn">
<link href="images/fox.css" rel="stylesheet" type="text/css">
<style type=text/css>
BODY{
	margin:0px;
	FONT-SIZE: 12px;
	FONT-FAMILY: "宋体", "Verdana", "Arial", "Helvetica", "sans-serif";
	background-color: #CCCC99; 
	scrollbar-highlight-color: #CC9933; 
	scrollbar-arrow-color: #FFFFFF; 
	scrollbar-base-color: #CC9933
}
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#111111; text-decoration:none; }
a:hover { color:#384780;text-decoration:underline; }
.sec_menu { border-left:2px solid #CC3300; border-right:2px solid #CC3300; border-bottom:2px solid #CC3300; overflow:hidden; background:#ffffff; }
.menu_title {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title span { position:relative; top:2px; left:8px; color:#FFFF00; font-weight:bold; }
.menu_title2 {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title2 span { position:relative; top:2px; left:8px; color:#FEFEFE; font-weight:bold; }
input,select,Textarea{
font-family:宋体,Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}
</style><div align="center">
  <center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#CC3300" width="100%" cellpadding="0">
  <tr bgcolor="#BDBEDE">
    <td width="100%" height="28" colspan="4" bgcolor="#CC3300"><p class="style3"><b><span class="style1">&nbsp;</span><span class="style2">举报管理</span></b></td>
  </tr>
  <tr>
    <td width="100%" height="23" colspan="4"> <b> <a href="?fox=3">
    <font size="2"><span class="style3"><span class="style1">&nbsp;</span></span></font></a></b><a href="?"><font size="2">列出所有举报</font></a><font size="2"> <a href="?fox=1">列出信息举报</a>
    <a href="?fox=2">列出张贴举报</a> </font></td>
  </tr>
<%
dim rs,sql,k,fox
fox=trim(request("fox"))
dim ThisPage,Pagesize,Allrecord,Allpage
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
set rs=server.createobject("adodb.recordset")
Select Case fox
Case "1"
sql = "select * from FOX_xiaog where biaoti='信息' order by id desc"
Case "2"
sql = "select * from FOX_xiaog where biaoti='广告' order by id desc"

Case Else
sql = "select * from FOX_xiaog order by id desc"
End Select
rs.open sql,conn,1,1
if rs.eof then
response.write "还没有！"
response.end
end if
rs.Pagesize=20
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
k=0
%>
  <tr bgcolor="#eeeeee">
    <td width="5%" height="23"><div align="center">编号</div></td>
    <td width="3%" height="23">对应</td>
    <td width="73%" height="23">举报内容</td>
    <td width="9%" height="23" align="center">
	操作</td>
  </tr>
  <%
  
  'k=1
  do while not rs.eof
  %>
  <tr bgcolor="#FFFFFF">
    <td width="5%" height="23" bgcolor="#FAFAFA">
    <p align="center"><%=k%></td>
    <td width="3%" height="23"><%if rs("biaoti")="广告" then%>
	<a target="_blank" href="../adinfo.asp?fox=<%=rs("xiaoid")%>">
	<img border="0" src="images/linkspic3.gif" width="15" height="16"></a><%elseif rs("biaoti")="信息" then%>
	<a target="_blank" href="../xinxiinfo.asp?fox=<%=rs("xiaoid")%>">
	<img border="0" src="images/linkspic3.gif" width="15" height="16"></a><%end if%></td>
    <td width="73%" height="23"><font color="#999999">[<%=rs("biaoti")%>] <%=rs("memo")%></font></td>
    <td width="9%" height="23" align="center" bgcolor="#FAFAFA">
     <a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="deljb.ASP?id=<%=rs("id")%>">删</a>
</td>
  </tr>
   <%
   k=k+1
    rs.movenext
    if k>=Pagesize then exit do
	loop
	rs.close
   set rs=nothing
   closedb
   %>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr> 
<td width="595" height="25" align="center">
  &nbsp;共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录 共 <font color="#CC5200"><%=Allpage%></font> 页 现在是第 <font color="#CC5200"><%=ThisPage%></font> 页
<%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&fox="&trim(request("fox"))&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&fox="&trim(request("fox"))&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&fox="&trim(request("fox"))&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&fox="&trim(request("fox"))&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
          </table></center>
</div></body></html>