<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"> 
    <!--#include file="top.asp" -->
    <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"> <%=Request("sex")%><font color="#666666">会员魅力排行版</font></font></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 class="border_yellow1" cellpadding="0" cellspacing="0" width="97%" align="center">
                    <tr valign="top"> 
                      <td width="590" height="150" align="center"> 
                        <table  bordercolorlight="#cccccc" bordercolordark="#FFFFFF"  width="100%" cellpadding=0 cellspacing=0 class=color_1 align="center" border="1" height="113" bgcolor="#000000" bordercolor="#000000">
                          <tr bgcolor="#EEEEEE"> 
                            <td  align=center class=sp height="30"><b>编号</b></td>
                            <td  align=center class=sp height="30" bgcolor="#EEEEEE"><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
	charisma=rs("charisma")
	 if charisma<101 then
	rank="自由天使"
 elseif charisma>100 and charisma<301 then
	rank="梦幻天使"
 elseif charisma>300 and charisma<1001 then
	rank="星梦天使"
 elseif charisma>1000 and charisma<10001 then
	rank="寻梦天使"
 elseif charisma>100 and charisma<50001 then
	rank="追梦天使"
 elseif charisma>100 and charisma<150001 then
	rank="缘梦天使"
 elseif charisma>100 and charisma<500001 then
	rank="浪漫天使"
 elseif charisma>500000  then
	rank="守护天使"
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=en height="25" bgcolor="#FCFCFC"><%=rows%></td>
                            <td  align=center class=en height="25" bgcolor="#FCFCFC"><%=rs("charisma")%>分</td>
                            <td  align=center class=sp height="25"><a href="show_user.asp?user_name=<%=rs("user_name")%>" target=_blank><%=rs("nickname")%></a></td>
                            <td  align=center class=sp height="25"><%=rank%></td>
                            <td  align=center class=en height="25"><%=age%></td>
                            <td  align=center class=sp height="25"><%=rs("province")%></td>
                            <td  align=center class=sp height="25"> 
                              <%if rs("photo")>0  then 
response.write "<img src=../image/love_image/pic.gif width=14 height=10 border=0></a></div>"
else%>
                              <div align="center"><font   face="Arial, Helvetica, sans-serif"><%=photo%> 
                                </font> 
                                <%end if%>
                              </div>
                            </td>
                          </tr>
                          <%else%>
                          <%my_year=trim(rs("byear"))
age=clng(year(date))-clng(my_year)%>
                          <tr bgcolor="#EFEFEF"> 
                            <td  align=center class=en height="25"><%=rows%></td>
                            <td  align=center class=en height="25"><%=rs("charisma")%>分</td>
                            <td  align=center class=sp height="25"><a href="show_user.asp?user_name=<%=rs("user_name")%>" target=_blank><%=rs("nickname")%></a></td>
                            <td  align=center class=sp height="25"><%=rank%></td>
                            <td  align=center class=en height="25"><%=age%></td>
                            <td  align=center class=sp height="25"><%=rs("province")%></td>
                            <td  align=center class=sp height="25"> 
                              <%if rs("photo")>0  then 
response.write "<img src=../image/love_image/pic.gif width=14 height=10 border=0></a></div>"
else%>
                              <div align="center"><font   face="Arial, Helvetica, sans-serif"><%=photo%> 
                                </font> 
                                <%end if%>
                              </div>
                            </td>
                          </tr>
                          <%end if%>
                          <%rs.MoveNext
  rows=rows+1
  wend
%>
                          <tr bgcolor="#EFEFEF"> 
                            <td colspan=7  align=center height="35"> 
                              <% 'if session("currentpage")>1then %>
                              <a href="charisma_list.asp?move=1&sex=<%=Request("sex")%>">首页</a>　 
                              <a href="charisma_list.asp?move=2&sex=<%=Request("sex")%>">上一页</a> 
                              <% 'end if%>
                              <% 'if session("currentpage")<rs.PageCount  then %>
                              <a href="charisma_list.asp?move=3&sex=<%=Request("sex")%>">下一页</a>　 
                              <a href="charisma_list.asp?move=4&sex=<%=Request("sex")%>">末页</a> 
                              <% 'end if %>
                            </td>
                          </tr>
                          <tr bgcolor="#FFFFFF"> 
                            <td colspan=7  align=center height="35"> 第<%=session("currentpage")%>页/共<%=rs.PageCount%>页 
                            </td>
                          </tr>
                        </table>
                        <div align="center"></div>
                      </td>
                    </tr>
                    <tr> 
                      <td height="2" bgcolor="#FF9E8C"> 
                        <p></p>
                      </td>
                    </tr>
                    <tr> 
                      <td width="568" height="14" bgcolor="#FF9E8C"><a href="join_vip.asp"><img height=42 src="images/pic_shop.gif" 
          width=367 border="0" alt="升级成为VIP会员"></a></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>
  </td>
</tr>
<tr> 

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

