<html>
<head>
<!--#include file="const.asp" -->
<title><%=rs("title")%>---<%=rs("lovetitle")%></title>
<link rel="stylesheet" href="../images/css.css" type="text/css">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<SCRIPT LANGUAGE=javascript>
//<!--
	function sss(URL)
	{
		newwin=window.open('','_blank','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0');
		if(document.all){
		newwin.moveTo(200,40 )
		newwin.resizeTo(400,400 );
		}
		newwin.location=URL
		newwin.focus();
	}

	
//-->
</SCRIPT><object runat=server id=conn1 progid="adodb.connection"></object><%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%><%if Session("Current_user")<>"__anonymous" then  %><%end if%>
<table align="center" cellpadding="0" cellspacing="0" width="770">
    <tr>
        <td width="769">                        <p align="center"><!--#include file="top.asp" --></td>
    </tr>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="167" valign="top" bgcolor="#FFFFFF"> 
      <!--#include file="left.asp"-->
    </td>
    <td width="611" valign="top"> 
      <table id="Table_01" width="601" height="396" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td colspan="2"> <img src="../image/love_image/images/right_lovetool_01.gif" width="601" height="5" alt=""></td>
        </tr>
        <tr> 
          <td> <img src="../image/love_image/images/right_lovetool_02.gif" width="83" height="28" alt=""></td>
          <td background="../image/love_image/images/right_lovetool_03.gif" width="518" height="28"> 
            <table width="98%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="3%"> 
                  <% 
set rs=server.CreateObject ("ADODB.recordset")

sql="select * from user where sex='"&Request("sex")&"'"
sql=sql&"  order by charisma desc"
rs.Open sql,conn1,3
 rs.PageSize=15
if session("currentpage")="" then
	session("currentpage")=1
end if

if Request("move")=1 then
	session("currentpage")=1
end if
if Request("move")=2 then
	session("currentpage")=session("currentpage")-1
end if
if Request("move")=3 then
	session("currentpage")=session("currentpage")+1
end if
if Request("move")=4 then
	session("currentpage")=rs.PageCount
end if
if session("currentpage")<1 then
session("currentpage")=1
end if
if session("currentpage")>rs.PageCount then
session("currentpage")=rs.PageCount
end if
%>
                  <b><font color="#666666"> 
                  <%if rs("sex")="男" then 
response.write "<img src=../image/boy.gif width=14 height=10 border=0></a></div>"
else%>
                  <img src=../image/girl.gif width=14 height=10 border=0> 
                  <%end if%>
                  </font></b> </td>
                <td width="97%"> <b><font color="#666666"> </font><font size="4" color="#FF9933"><b> 
                  </b></font> 
                  <% 
set rs=server.CreateObject ("ADODB.recordset")
sql="select * from user where weight="&Request("flag")
sql=sql&" and sex='"&Request("sex")&"'"
sql=sql&" order by reg_date desc"
rs.Open sql,conn1,3
 rs.PageSize=15
if session("currentpage")="" then
	session("currentpage")=1
end if

if Request("move")=1 then
	session("currentpage")=1
end if
if Request("move")=2 then
	session("currentpage")=session("currentpage")-1
end if
if Request("move")=3 then
	session("currentpage")=session("currentpage")+1
end if
if Request("move")=4 then
	session("currentpage")=rs.PageCount
end if
if session("currentpage")<1 then
session("currentpage")=1
end if
if session("currentpage")>rs.PageCount then
session("currentpage")=rs.PageCount
end if
'//////////////////////////
temp_str=""
	if Request("sex")="男" then
	temp_str="男"
 else
	temp_str="女"
 end if	
 if Request("flag")=1 then
	temp_str=temp_str&"注册"
 else
	temp_str=temp_str&"白金"
 end if
     
     		
			%>
                  <font color="#333333"><b><%=temp_str%>会员列表 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></font><b><font color="white">共有<%=temp_str%>会员<%=rs.RecordCount%>人</font></b></b></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td colspan="2"> <img src="../image/love_image/images/right_lovetool_04.gif" width="601" height="18" alt=""></td>
        </tr>
        <tr background="../image/love_image/images/right_lovetool_05.gif"> 
          <td background="../image/love_image/images/right_lovetool_05.gif" colspan="2" height="517" valign="top" align="center" > 
            <div align="center"> 
              <table  bordercolorlight="#cccccc" bordercolordark="#FFFFFF"  width="568" cellpadding=1 cellspacing=1 class=color_1 align="center" border="1">
                <tr bgcolor="#EEEEEE"> 
                  <td  align=center class=sp height="30"><b>编号</b></td>
                  <td  align=center class=sp height="30"><b>用户名</b></td>
                  <td  align=center class=sp height="30"><b>昵称</b></td>
                  <td  align=center class=sp height="30"><b>性别</b></td>
                  <td  align=center class=sp height="30"><b>年龄</b></td>
                  <td  align=center class=sp height="30"><b>来自</b></td>
                  <td  align=center class=sp height="30"><b>照片</b></td>
                </tr>
                <%	rows=1
if rs.RecordCount<>0 then
rs.AbsolutePage=session("currentpage")
end if	
	while not rs.EOF and rows<=rs.PageSize 
	if rs("photo")>0 then
		photo="有"
	else
		photo="无"
	end if
%>
                <%if rows mod 2 then 
%>
                <%my_year=trim(rs("byear"))
age=clng(year(date))-clng(my_year)%>
                <tr bgcolor="#FCFCFC"> 
                  <td  align=center class=sp bgcolor="#FCFCFC" height="25"><font face="Arial, Helvetica, sans-serif"><%=rows%></font></td>
                  <td  align=center class=sp height="25"><a href="show_user.asp?user_name=<%=rs("user_name")%>" target=_blank><font face="Arial, Helvetica, sans-serif"><%=rs("user_name")%></font></a></td>
                  <td  align=center class=sp height="25"><%=rs("nickname")%></td>
                  <td  align=center class=sp height="25"><%=rs("sex")%></td>
                  <td  align=center class=sp height="25"><font face="Arial, Helvetica, sans-serif"><%=age%></font></td>
                  <td  align=center class=sp height="25"><%=rs("province")%></td>
                  <td  align=center class=sp height="25"><%=photo%></td>
                </tr>
                <%else%>
                <%my_year=trim(rs("byear"))
age=clng(year(date))-clng(my_year)%>
                <tr bgcolor="#EEEEEE"> 
                  <td  align=center class=sp height="25"><font face="Arial, Helvetica, sans-serif"><%=rows%></font></td>
                  <td  align=center class=sp height="25"><a href="show_user.asp?user_name=<%=rs("user_name")%>" target=_blank><font face="Arial, Helvetica, sans-serif"><%=rs("user_name")%></font></a></td>
                  <td  align=center class=sp height="25"><%=rs("nickname")%></td>
                  <td  align=center class=sp height="25"><%=rs("sex")%></td>
                  <td  align=center class=sp height="25"><font face="Arial, Helvetica, sans-serif"><%=age%></font></td>
                  <td  align=center class=sp height="25"><%=rs("province")%></td>
                  <td  align=center class=sp height="25"><%=photo%></td>
                </tr>
                <%end if%>
                <%rs.MoveNext
  rows=rows+1
  wend
%>
                <tr bgcolor="#FCFCFC"> 
                  <td colspan=7  align=center height="25"> 
                    <% 'if session("currentpage")>1then %>
                    <a href="user_list.asp?move=1&flag=<%=Request("flag")%>&sex=<%=Request("sex")%>" >首页</a>　 
                    <a href="user_list.asp?move=2&flag=<%=Request("flag")%>&sex=<%=Request("sex")%>">上一页</a> 
                    <% 'end if%>
                    <% 'if session("currentpage")<rs.PageCount  then %>
                    <a href="user_list.asp?move=3&flag=<%=Request("flag")%>&sex=<%=Request("sex")%>">下一页</a>　 
                    <a href="user_list.asp?move=4&flag=<%=Request("flag")%>&sex=<%=Request("sex")%>">末页</a> 
                    <% 'end if %>
                  </td>
                </tr>
                <tr bgcolor="#FCFCFC"> 
                  <td colspan=7  align=center height="25"> 第<%=session("currentpage")%>页/共<%=rs.PageCount%>页 
                  </td>
                </tr>
              </table>
            </div>
          </td>
        </tr>
        <tr> 
          <td colspan="2"> <img src="../image/love_image/images/right_lovetool_06.gif" width="601" height="11" alt=""></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<tr> 

</tr>

                           <p align="center"><!--#include file="../copyright.asp" -->
 
</table>

</BODY>
</HTML>
