<!--#include file="../fy_inc/fy.User.asp"-->
 <!--#include file="../fy_inc/cls_pageview.asp"-->
<% 
	 dim  UserHS
    	Set UserHS = New ACT_User
	IF Cbool(UserHS.UserLoginChecked)=false then
	  echo "<script>top.location.href ='login.asp' ;</script>"
	  Response.end
	End If	
  
  %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>会员中心</title>
<script language="JavaScript" src="main.js"></script>
 <link href="images/css.css" rel="stylesheet" type="text/css" />
 </head>
<body style="background-color:#fff">
<div id="head">
  <div id="logo"><a href="index.asp" alt=""><img src="images/logo_member.gif" alt="fycms"></a></div><div id="banner"></div>
</div>
<div id="membermenu">
<!--#include file="menu.asp"-->

</div>
 
<div id="main">
 <div id="left">
  <div id="treemenu">
    <h5>基本设置</h5>
    <div style="text-align:center;">
    <img src="<%If Trim(UserHS.myface)<>"" Then 
		echo fycms.ActSys&"UpFiles/User/"&UserHS.UModeID&"/"&UserHS.Userid&"."&UserHS.myface
	Else 
		echo "images/nophoto.gif" 
	End If 
	
	%> " alt="fycms" height="150" width="150"/>
	</div>
    <table cellpadding="0" cellspacing="0" class="member_info">
    <tr>
      <th>用户名：</th><td><%=UserHS.username%></td>
    </tr>
    <tr>
      <th>用户组：</th><td><%=UserHS.G_Name%></td>
    </tr>
     </table>
    <ul>
       <li><a href="edit.asp">修改资料</a></li>
      <li><a href="editpwd.asp">修改密码</a></li>
    </ul>
  </div>
  <ol>
    <li class="local"><a href="<%= fycms.Domain%>">返回网站首页</a></li>
    <li class="exit"><a href="Checklogin.asp?Action=LoginOut">退出登录</a></li>
  </ol>
</div>
  <div id="right">

<p id="position"><strong>当前位置：</strong><a href="index.asp">会员中心</a> 好友管理 </p>
<div class="clear"></div>
<div class="clear"></div>

<table cellpadding="0" cellspacing="1" class="table_list">
<form action="?" method="post" name="fycmsform" >
<tr>
  <td bgcolor="#F7FCFF"><strong>查找好友：</strong>
    <input type="text" name="UserName"   value="<%=request("UserName")%>" size="50"   />  
<label for="sex0"><input id="sex0" type="radio" value="1" name="sex"  <%If request("Sex")=1 Then echo " checked=""checked""  "%>  />
男</label>
<label for="sex1"><input id="sex1" type="radio" value="2" name="sex" <%If request("Sex")=2 Then echo " checked=""checked""  "%>   />
女</label>
<label for="sex2"><input id="sex2" type="radio"  value="3" name="sex"  <%If request("Sex")=3 Then echo " checked=""checked""  "%>   />
不限</label>
<input type=submit o  class="button_style"  name=Submit1 value=" 查找 " /></td>
</tr>
</form>
</table>
 <table cellpadding="0" cellspacing="1" class="table_list">
  <caption>管理信息</caption>
<tr>
<th width="45">ID</th>
<th width="200">用户名</th>
<th width="200">性别</th>
<th>最后登陆时间</th>
</tr>
<% 
 

 	Dim strLocalUrl
	strLocalUrl = request.ServerVariables("SCRIPT_NAME")
	
	Dim intPageNow
	intPageNow = request.QueryString("page")
	
	Dim intPageSize, strPageInfo
	intPageSize = 20
	
	Dim arrinfo, i,Sex,UserName
	Dim sql, sqlCount,Sqls,pages
 	
	Sex=ChkNumeric(request("Sex"))
	UserName=Rsql(request("UserName"))
 	  If Trim(UserName)<>"" Then 	UserName="  username Like '%" & UserName & "%'  "  Else UserName=" 1=1 "
	pages = "UserName="&UserName&"&Sex="&Sex&"&page"
	
 
	
	Select Case Sex
		Case "1"
			Sqls = "  sex = 0  and    "
		Case "2"
			Sqls = "  sex = 1  and   "
		Case "3"
			Sqls = "   1 = 1 and   "
		Case Else
			Sqls = "   1 = 1 and   "
	End Select
		
	
	
	sql = "SELECT UserID,UserName,sex,LoginTime,GroupID" & _
		" FROM [user_fy] where" &Sqls&UserName& _
		"   ORDER BY [UserID] DESC"
   	sqlCount = "SELECT Count([UserID])" & _
			" FROM [user_fy] where " &Sqls&UserName
		Dim clsRecordInfo
		Set clsRecordInfo = New Cls_PageView
			clsRecordInfo.intRecordCount = 2816
			clsRecordInfo.strSqlCount = sqlCount
			clsRecordInfo.strSql = sql
			clsRecordInfo.intPageSize = intPageSize
			clsRecordInfo.intPageNow = intPageNow
			clsRecordInfo.strPageUrl = strLocalUrl
			clsRecordInfo.strPageVar = pages
		clsRecordInfo.objConn = Conn		
		arrinfo = clsRecordInfo.arrinfo
		strPageInfo = clsRecordInfo.strPageInfo
		Set clsRecordInfo = nothing
 		 If IsArray(arrinfo) Then
			 For i = 0 to UBound(arrinfo, 2)

  
 
 	%>
   <form action="?" method="post" name="fycmsform" >
 <tr>
    <td align="center"> 
      <input type="checkbox" name="ID" id="checkbox"  /></td>
    <td class="align_left"> 
  <%  =arrinfo(1,i) %> <a href="Friend.asp?A=Add&U=<%  =arrinfo(0,i) %>" target="_blank">加为好友</a> </td>
    <td align="center" >
	 
<% select case sex
			case "0"
				echo "男"
			case "1"
				echo "女"
			case "2"
				echo "保密"
	
	   end select 
	
	
	
	 %></td>
    <td align="center" ><%  =arrinfo(3,i) %>	</td>
</tr>
 <%
	Next
	End If     
 %>






 <tr>
    <td colspan="4" align="center">
	<%= strPageInfo%>
    <label for="chkAll"></label></td>
    </tr>


 </form>
     </table>
<div class="button_box">
        </div>


 <!--  -->
  
  
 

 


  </div>
</div>
 
<!--#include file="foot.asp"-->
 
</body>
</html>