<!--#include file="../Include/connect.asp"-->
<!--#include file="Inc/char.asp"-->
<!--#include file="top.asp"-->
<link href="CSS/right.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--

function ask(msg) {
	
	if( msg=='' ) {
		msg='真的要这样做吗？';
	}

	if (confirm(msg)) {
		return true;
	} else {
		return false;
	}
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tablecolor">
  <tr> 
    <td height="25" align="left" class="banner" style="PADDING-LEFT:15px">当前位置 &gt; 会员管理</td>
  </tr>
</table>
<table  border="0" align="center" cellpadding="3" cellspacing="1" class="tablecolor">
  <form name="form2" method="post" action="?">
    <tr class="tablebody">
      <td height="25" align="center">会员搜索:&nbsp; 关键字:&nbsp;
          <input name="key" type="text" id="key" maxlength="20">
&nbsp;
<input type="submit" name="Submit2" value="提交"></td>
    </tr>
  </form>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1"  class="tablecolor">
  <tr > 
    <td height="25" align="center" class="tablebody">用户名</td>
    <td align="center" class="tablebody">姓别</td>
    <td align="center" class="tablebody">昵称</td>
    <td align="center" class="tablebody">姓名</td>
    <td align="center" class="tablebody">地区</td>
    <td align="center" class="tablebody">注册时间</td>
    <td align="center" class="tablebody">推荐视频用户</td>
	<td align="center" class="tablebody">推荐博客用户</td>
	<td align="center" class="tablebody">博客之星</td>
	<td align="center" class="tablebody">编辑|删除</td>
  </tr><form name="form2" method="post" action="?action=edit" onSubmit="return checkf(form2)">
<%
strFileName="userlist.asp"
pageno=15
set rs = server.CreateObject("adodb.recordset")
if request.Form("key")<>"" then
sql="select * from Show5_ALLUser where username like '%"&trim(request.Form("key"))&"%' Order By UserID DESC"
else
sql="select * from Show5_ALLUser Order By UserID DESC"
end if
rs.CursorLocation=3
rs.Open sql,cn,1,1
rscount=rs.recordcount
if rs.eof or rs.bof then
response.write "暂无用户！"
else
call showsql(pageno)
rs.move(rsno)
for p_i=1 to loopno
%>
  <tr > 
    <td height="25" align="center" class="tablebody"><a href="../Hompy/hompy.asp?username=<%=rs("Username")%>" target="_blank"><%=rs("Username")%></a></td>
    <td align="center" class="tablebody"><%if rs("Sex")=0 then response.write "男" else response.write "女" end if%></td>
    <td align="center" class="tablebody"><%=rs("Nickname")%></td>
    <td align="center" class="tablebody"><%=rs("Truename")%></td>
    <td align="center" class="tablebody"><%=rs("Province")%>/<%=rs("City")%></td>
    <td align="center" class="tablebody"><%=rs("Regtime")%></td>
    <td align="center" class="tablebody"><%
if rs("Recommend_v")=1 then
response.write "<a href='disrecommend_vuser.asp?username="&rs("Username")&"&page="&currentPage&"'><font color='#ff6600'>取消推荐</font></a>"
else
response.write "<a href='recommend_vuser.asp?username="&rs("Username")&"&page="&currentPage&"'>推荐</a>"
end if
%></td>
    <td align="center" class="tablebody"><%
if rs("Recommend_a")=1 then
response.write "<a href='disrecommend_auser.asp?username="&rs("Username")&"&page="&currentPage&"'><font color='#ff6600'>取消推荐</font></a>"
else
response.write "<a href='recommend_auser.asp?username="&rs("Username")&"&page="&currentPage&"'>推荐</a>"
end if
%></td>
    <td align="center" class="tablebody"><%
if rs("Blogstar")=1 then
response.write "<a href='disset_blogstar.asp?username="&rs("Username")&"&page="&currentPage&"'><font color='#ff6600'>取消博客之星</font></a>"
else
response.write "<a href='set_blogstar.asp?username="&rs("Username")&"&page="&currentPage&"'>设为博客之星</a>"
end if
%></td>
	<td align="center" class="tablebody"><a href="edituinfo.asp?username=<%=rs("Username")%>&page=<%=request.querystring("page")%>"><font color="#ff6600">编辑</font>|</a><a href="javascript:if(ask('真的要删除吗？')) location.href='deluser.asp?username=<%=rs("Username")%>';"><font color="#ff6600">删除</font></a></td>
    </tr>
<%
rs.movenext
next
end if
rs.close
set rs=nothing
%>
<tr>
    <td height="25" colspan="10" align="center" class="tablebody">
<%call showpage(strFileName,rscount,pageno,true,true,"位会员")%>
	</td>
  </tr></form>
  <tr> 
      <td colspan="10" align="right"  class="tablebody">&nbsp;</td>
  </tr>
</table>
<!--#include file="end.asp"-->