<!--#include file=CONN.ASP-->
<!--#include file=cookies.asp-->
<!--#include file=../config.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
%>
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="../fox.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>
<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";
		}
	}
}
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall' )
       e.checked = form.chkall.checked;
    }
  }
//-->
</script>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" height="60">
  <tr>
    
    <td width="37%" height="39">
    <FORM name=sou1 action="?fox=1" method=POST>
    <p align="center">按帐号：
      <input type="text" name="T1" size="10">
    <input type="submit" value="查找" name="B1">
    </form>
    </td>
    <td width="35%" height="39">
    <FORM name=sou2 action="?fox=2" method=POST>
    <p align="center">按姓名：
      <input type="text" name="T2" size="10">
    <input type="submit" value="查找" name="B1">
    </form>
    </td>
  </tr>
  <tr><td colspan="2">
	<p align="center">　<a href="?fox=">所有会员</a>&nbsp;&nbsp;&nbsp; 
	<a href="?fox=5">VIP会员</a>&nbsp;&nbsp;&nbsp; 
	<a href="?fox=6">一般会员</a></td></tr>
</table>
<hr color="#008080" size="1">
<div align="center">
  <center>
<table border="1" cellpadding="0" cellspacing="0" style="border-width:1px; border-collapse: collapse" bordercolor="#CC0000" width="100%" height="30">
<FORM name=thisForm action="user_del.asp" method=POST>
<%
dim rs,sql,k,fox,rs1,rspse,rspsh
dim ThisPage,Pagesize,Allrecord,Allpage
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
fox=request("fox")
set rs = Server.CreateObject("ADODB.RecordSet")
set rs1 = Server.CreateObject("ADODB.RecordSet")
Select Case fox
Case "1"
sql = "select * from [FOX_user] where username like '%"&trim(request("T1"))&"%'"
Case "2"
sql = "select * from [FOX_user] where lxrname like '%"&trim(request("T2"))&"%'"
Case "5"
sql = "select * from [FOX_user] where dengji=1"
Case "6"
sql = "select * from [FOX_user] where dengji=0"
Case Else
sql="select * from [FOX_user]"
End Select
rs.open sql,conn,1,1
if rs.eof then
response.write "<li>还没有用户数据！"
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="#BDBEDE">
    <td width="4%" height="28" bgcolor="#CC0000">
    <p align="center" class="style1"><font color="#FFFFFF">编号</font></td>
    <td width="14%" height="28" bgcolor="#CC0000">
    <p align="center" class="style1"><font color="#FFFFFF">登陆帐号</font></td>
    <td width="9%" height="28" bgcolor="#CC0000">
    <p align="center"><font color="#FFFFFF">积分</font></td>
    <td width="9%" height="28" bgcolor="#CC0000">
    <p align="center" class="style1"><font color="#FFFFFF">等级</font></td>
    <td width="5%" height="28" align="center" bgcolor="#CC0000">
	<font color="#FFFFFF"><span class="style1">
    操作</span></font></td>
    <td width="5%" height="28" align="center" bgcolor="#CC0000">
	<font color="#FFFFFF"><span class="style1">
    选择</span></font></td>
  </tr>
  <%
  dim id,username
  do while not rs.eof
  id=rs("id")
  username=rs("username")
  %>
  <tr bgcolor="#FFFFFF">
    <td width="4%" height="25" bgcolor="#FaFaFa">
    <p align="center"><%=k+1%></td>
    <td width="14%" height="25" bgcolor="#FaFaFa">
    <p align="center"><%=rs("username")%></td>
    <td width="9%" height="25" bgcolor="#FaFaFa">
    　<%=rs("zhidaojf")%></td>
    <td width="9%" height="25">
    <p align="center"><%=rs("dengji")%></td>
    <td width="5%" height="25" align="center" bgcolor="#FaFaFa">
    <font color="#FF0000">
    <span id="followImg<%=k%>" style="CURSOR: hand" onclick="loadThreadFollow(<%=k%>,5)">
    面版</span></font></td>
    <td width="5%" height="25" align="center" bgcolor="#FFFFFF">
          <input type="checkbox" name="selectedid" value="<%=trim(rs("username"))%>"></td>
  </tr>
  <tr style="display:none" id="follow<%=k%>">
    <td width="95%" height="25" colspan="6">    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
      <tr bgcolor="#CCCCFF">
        <td bgcolor="#FF9900"><div align="right"><font color="#666666">
</a>&nbsp;<a href="user_editjf.asp?id=<%=id%>">修改积分等级</a>&nbsp;	<font color="#0000FF"> 
			<a onclick='{if(confirm("您确定删除吗？强烈建议您在此删除前，删除其在本站所有发布！")){return true;}return false;}' href="user_del.asp?selectedid=<%=trim(rs("username"))%>">直接删除用户</a></font><font color="#666666">
            <%
dim m,c,x
set rs1=conn.execute("select count(id) from [FOX_xinxi] where username='"&rs("username")&"'")
x=rs1(0)
set rs1=conn.execute("select count(id) from [FOX_hf] where username='"&rs("username")&"'")
c=rs1(0)
rs1.close
%><a href="../../user_gl.asp?id=<%=username%>">用户区</a>[知道<%=x%>条|回复<%=c%>条]</font></div></td>
      </tr>
    </table></td>
  </tr>
    <%
    k=k+1
    rs.movenext
    if k>=Pagesize then exit do
	loop
	rs.close
    set rs=nothing
    set rs1=nothing
    closedb
	%>
  <tr bgcolor="#eeeeee">
    <td width="100%" height="35" colspan="6">
          <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr> 
<td width="595" height="25" align="center">
  <input onClick=CheckAll(this.form) type=checkbox value=on name=chkall>
  全选记录
  <input onClick=javascript:showoperatealert(1) type="submit" value="删除用户" name="B1">
  共有&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&t1="&trim(request("t1"))&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&t1="&trim(request("t1"))&">上一页</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)&"&t1="&trim(request("t1"))&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&t1="&trim(request("t1"))&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
          </table>
    </td>
  </tr>
  </form>
</table>
  </center>
</div>