<!--#include file="conn3.asp"-->
<!--#include file="connfy.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file=chkuser.asp-->
<!-- #include file="inc/char.asp" -->
<!--#include file="inc/theme.asp"-->
<!--#include file=Forum_css.asp-->
<%

	Response.Buffer=True 
  call nav()
        stats="举报中心"
		call headline(1)
session("username")=request.cookies("aspsky")("username")
if session("username")="" then
%>
<script language=vbscript>
MsgBox "您还没有登陆，不能进入"
location.href = "javascript:history.back()"
</script>
<%
end if
%>

<%
If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
%>

<html>
<head>
<title>举报投诉一览</title>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=tablebodyColor%>"  text="<%=tablefontColor%>">
<div align="center"> </div>
<form action=over.asp method=get>
  <%    
set rs=server.createobject("adodb.recordset")    
rs.open "SELECT * FROM bbs  ORDER BY id DESC",Conn1,1,1    
if not rs.eof and not rs.bof then              
RS.PageSize=15              
Dim TotalPages              
TotalPages = RS.PageCount              
              
If CurPage>RS.Pagecount Then               
CurPage=RS.Pagecount              
end if              
              
RS.AbsolutePage=CurPage            
              
rs.CacheSize = RS.PageSize              
              
Dim Totalcount              
Totalcount =INT(RS.recordcount)              
%>
  <table width="<%=tablewidth%>" border=1 cellspacing=0 cellpadding=3 align="center"bordercolorlight="#000000" bordercolordark="#FFFFFF">
    <tr class=coolbg bgcolor=<%=TableTitleColor%>> 
   
            <td><a href="fy.asp"><b>我要举报</b></a></td>
          </tr>
         </table>
  <table width="<%=tablewidth%>" border=1 cellspacing=0 cellpadding=3 align="center"bordercolorlight="#000000" bordercolordark="#FFFFFF">
    <tr bgcolor="<%=aTablebodyColor%>"> 
      <td height="26" align="center" width="10%">处理人员 </td>
      <td height="26" align="center" width="19%">日&nbsp;&nbsp;期</td>
      <td height="26" align="center" width="28%">投诉理由</td>
      <td height="26" align="center" width="10%">举报者</td>
      <td height="26" align="center" width="17%">处理要求</td>
      <td height="26" align="center" width="11%">目前状态</td>
    
  </table>
  <table width="<%=tablewidth%>" border=1 cellspacing=0 cellpadding=3 align="center"bordercolorlight="#000000" bordercolordark="#FFFFFF">
    <%I=0                  
p=RS.PageSize*(Curpage-1)                  
do while (Not RS.Eof) and (I<RS.PageSize)                  
p=p+1%>
    <tr bgcolor="<%=aTablebodyColor%>">
    </tr>
    <tr bgcolor"<%=tablebodyColor%>"> 
      <td height="12" width="10%" align="center" valign="top" bgcolor="<%=aTablebodyColor%>"><a href=dispuser.asp?name=<%=left(rs("被告"),10)%> target=_blank><b><%=left(rs("被告"),10)%></b></a></td>
      <td height="12" width="19%" align="center" colspan="-3"><%=rs("日期")%></td>
      <td height="12" width="28%" bgcolor="<%=aTablebodyColor%>"><a href=# onClick="javascript:window.open('lockdisp.asp?ID=<%=rs("id")%>','','scrollbars=yes,width=400,height=240,top=100,left=400');"><%=rs("标题")%></a></td>
      <td height="12" width="10%" align="center"><a href=dispuser.asp?name=<%=rs("原告")%> target=_blank><b><%=rs("原告")%></b></a></td>
      <td align="center" height="12" width="17%" bgcolor="<%=aTablebodyColor%>"><%=rs("要求")%></td>
      <td align="center" height="12" width="11%"> 
        <%if rs("结果")="N" then%>
        等待审理 
        <% end if %>
        <%if  rs("结果")="0" then %>
        事实不符，暂不受理 
        <% end if %>
        <% if  rs("结果")="1" then %>
        事实确凿，已执行 
        <% end if %>
        <% if  rs("结果")="2" then %>
        经调查，属冤假错案，已平反 
        <% end if %>
        <% if  rs("结果")="3" then %>
        造谣 ，不予受理
        <% end if %>
        <% if  rs("结果")="4" then %>
        无中生有，投诉者被禁闭 
        <% end if %>
        <% if  rs("结果")="5" then %>
        严重诬告，投诉者ID被封
        <% end if %>
      </td>
    </tr>
    <%rs.movenext                  
I=I+1                  
loop%>
  </table>     
  <%StartPageNum=1                 
do while StartPageNum+15<=CurPage                 
StartPageNum=StartPageNum+15                 
Loop                 
                     
EndPageNum=StartPageNum+14                 
                 
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount                 
%>
  <br>
  <table width="<%=tablewidth%>" border=1 cellspacing=0 cellpadding=3 align="center"bordercolorlight="#000000" bordercolordark="#FFFFFF">
    <tr bgcolor=<%=aTablebodyColor%>> 
      <td height="26" align="center" colspan="6"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="51%">目前共有<b><font color="#FF0000"> <%=Totalcount%></font></b> 人被处理，共 
              <b><font color="#FF0000"><%=TotalPages%></font></b> 页，目前为第<b><font color="#FF0000"> <%=CurPage%> </font></b>页</td>
            <td width="2%" align="center">&nbsp;</td>
            <td width="47%" align="right">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=juliu.asp?owner=<%=owner%>>[刷新]</a>&nbsp;<a href=juliu.asp?owner=<%=owner%>&Curpage=1>[首页]</a>&nbsp;<a href=juliu.asp?owner=<%=owner%>&Curpage=<%=TotalPages%>></a><a href=juliu.asp?owner=<%=owner%>&Curpage=<%=Curpage-1%>>[上一页]</a>&nbsp;<a href=juliu.asp?owner=<%=owner%>&Curpage=<%=Curpage+1%>>[下一页]</a>&nbsp;<a href=juliu.asp?owner=<%=owner%>&Curpage=<%=TotalPages%>>[尾页]</a></td>
          </tr>
        </table>
      </td>
  </table>
  <div align="center">
        </td>
      
    </table>
    <%else%>
    <br>
  </div>
  <div align="center"> 
    <p>暂无处理人员，<a href="fy.asp">举报投诉</a>
      <%      
end if%>
      <br>
    </p>
    <p>&nbsp; </p>
  </div>   
</form>
</body>                
</html>       
<%      
rs.close  
set rs=nothing   
call endline()
%>
<!--#include file="footer3.asp"-->