<style type="text/css">
<!--
.STYLE7 {
	color: #CC6600;
	font-weight: bold;
	font-size: 12px;
}
.STYLE8 {
	color: #ff3399;
	font-size: 12px;
}
.STYLE9 {
	color: #666666;
	font-size: 12px;
	line-height: 160%;
}
.style1000 {
	color: #FF0000;
	font-size: 12px;
	font-weight: bold;
}
.style10 {color: #4193DD}
.style11 {
	color: #474747;
	font-weight: bold;
	font-size: 13px;
}
-->
</style>
<link href="style.css" rel="stylesheet" type="text/css">
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="787" align="center" valign="top" bgcolor="#FFFFFF"><div align="left">
        <table width="778" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="200" align="center" valign="top"><div align="left">
                <table width="190" border="0" cellpadding="0" cellspacing="0" >
                  <tr>
                    <td height="31" background="image/tiao_1.gif">&nbsp;&nbsp;<strong>最新加入会员</strong></td>
                  </tr>
                  <tr>
                    <td height="161" align="center" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid"><br>
                      <TABLE width=176 
            border=0 align=center cellPadding=0 cellSpacing=0 class="STYLE8">
                      <TBODY>
                        <%
				  set rs=server.CreateObject("adodb.recordset")
				  sql="select top 5 username,userid,age,sex,prov from user_info where addmodel<>2 order by regtime desc"
				  rs.open sql,conn,1
				  do while not rs.eof
				  %>
                        <TR>
                          <TD width=60 height=25><span class="STYLE4"><a href="userinfo.asp?user_id=<%=rs("userid")%>" target="_blank" class="a2"><%=rs("username")%></a></span> </TD>
                          <TD width=32><%=rs("age")%><span class="style10">岁</span></TD>
                          <TD width=34><%=rs("sex")%></TD>
                          <TD width=50><%=GetProv(rs("prov"))%></TD>
                        </TR>
                        <%
					rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                        <TR>
                          <TD height=25>&nbsp;</TD>
                          <TD>&nbsp;</TD>
                          <TD>&nbsp;</TD>
                          <TD align=right><a href="liangzhao.asp" class="a2">更多&gt;&gt;</a></TD>
                        </TR>
                      </TBODY>
                    </TABLE></td>
                  </tr>
                  <tr>
                    <td height="31" background="image/tiao_1.gif">&nbsp;&nbsp;<span style="font-weight: bold">时代人气会员</span></td>
                  </tr>
                  <tr>
                    <td height="389" align="center" valign="top"  style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid"><br>
                      <TABLE width=176 border=0 align=center cellPadding=0 cellSpacing=0 class="STYLE8">
                      <TBODY>
                        <%
				  set rs=server.CreateObject("adodb.recordset")
				  sql="select top 5 username,userid,age,sex,prov from user_info where addmodel<>2 order by renqi desc"
				  rs.open sql,conn,1
				  do while not rs.eof
				  %>
                        <TR>
                          <TD width=67 height=25><span class="STYLE4"><a href="userinfo.asp?user_id=<%=rs("userid")%>" target="_blank" class="a2"><%=rs("username")%></a></span> </TD>
                          <TD width=32><%=rs("age")%><span class="style10">岁</span></TD>
                          <TD width=40><%=rs("sex")%></TD>
                          <TD width=51><%=GetProv(rs("prov"))%></TD>
                        </TR>
                        <%
					rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                        <TR>
                          <TD height=25>&nbsp;</TD>
                          <TD>&nbsp;</TD>
                          <TD>&nbsp;</TD>
                          <TD align=right><a href="liangzhao.asp" class="a2">更多&gt;&gt;</a></TD>
                        </TR>
                      </TBODY>
                    </TABLE></td>
                  </tr>
                </table>
                </div></td>
            <td align="center" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><table width="565" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="577" align="center" valign="top"><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
                      <TBODY>
                        <TR>
                          <TD align=center width="2%"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                          <TD width="45%" align=center background="image/tiao_4.gif"><table width="145" height="25" border="0" align="left" cellpadding="0" cellspacing="0">
                            <tr>
                              <td width="145" align="center" class="pgd"><span class="pgd">女会员排行榜</span></td>
                            </tr>
                          </table></TD>
                          <TD width="10%" height="20" align="center" background="image/tiao_4.gif"><!--
		<script language=javascript src="/js/chkRegister.js"></script>
		//-->
                            <div align="left"><a href="liaozhang.asp"><font color="#474747">更多》</font></a>&nbsp;</div></TD>
                          <TD width="1%" align="center" background="image/tiao_4.gif">&nbsp;</TD>
                          <TD width="31%" align="center" background="image/tiao_4.gif"><table width="117" height="25" border="0" align="left" cellpadding="0" cellspacing="0">
                            <tr>
                              <td width="117" align="center" class="pgd"><strong class="pgd">男会员排行榜</strong></td>
                            </tr>
                          </table></TD>
                          <TD width="9%" align="center" background="image/tiao_4.gif"><div align="left"><a href="liaozhanga.asp"><font color="#474747">更多》</font></a></div></TD>
                          <TD width="2%" align="center"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                        </TR>
                      </TBODY>
                  </TABLE></td>
                </tr>
                <tr>
                  <td height="7"></td>
                </tr>
                <tr>
                  <td height="72"><table width="522" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                    <tr>
                      <td valign="top"><TABLE cellSpacing=0 cellPadding=0 width=522 bgColor=#ffffff 
      border=0>
                          <TBODY>
                            <TR>
                              <TD width=258 vAlign=top><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <%
						 set rs=server.CreateObject("adodb.recordset")
						 sql="select top 2 userid,username,dubai,photo from user_info where addmodel<>2 and sex='女' and (photo<>'' and photo is not null) order by renqi desc"
						 rs.open sql,conn,1
						 for h=1 to 2
						 %>
                                  <tr>
                                    <td height="135"><%if not rs.eof then%>
                                        <table height="128" cellspacing="0" cellpadding="0" width="239" align="center" border="0">
                                          <tbody>
                                            <tr>
                                              <td align="middle" width="116" height="110"><img height="100" 
                  src="Uppic/photo/<%=rs("photo")%>" width="100" 
                border="0" /></td>
                                              <td class="STYLE9" width="123"><%if len(rs("dubai"))>45 then
								    response.Write left(rs("dubai"),45)&"……"
								  else
								    response.Write rs("dubai")
								  end if
								  %></td>
                                            </tr>
                                            <tr>
                                              <td height="16" align="middle" class="STYLE8"><%=rs("username")%></td>
                                              <td class="STYLE8"><a href="userinfo.asp?user_id=<%=rs("userid")%>" target="_blank" class="a2">详细个人介绍</a></td>
                                            </tr>
                                          </tbody>
                                        </table>
                                        <%
							rs.movenext
							else
							 response.Write "&nbsp;"
							end if%>
                                    </td>
                                  </tr>
                                  <%							  
						  next					  
						  rs.close
						  set rs=nothing
						  %>
                              </table></TD>
                              <TD width=6 height=135 vAlign=top 
          background=image/dian.jpg>&nbsp;</TD>
                              <TD width=258 vAlign=top><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <%
						 set rs=server.CreateObject("adodb.recordset")
						 sql="select top 2 userid,username,dubai,photo from user_info where addmodel<>2 and sex='男' and (photo<>'' and photo is not null) order by renqi desc"
						 rs.open sql,conn,1
						 do while not rs.eof
						 %>
                                  <tr>
                                    <td height="135"><table height="128" cellspacing="0" cellpadding="0" width="239" align="center" border="0">
                                        <tbody>
                                          <tr>
                                            <td align="middle" width="116" height="110"><img height="100" 
                  src="Uppic/photo/<%=rs("photo")%>" width="100" 
                border="0" /></td>
                                            <td class="STYLE9" width="123"><%if len(rs("dubai"))>45 then
								    response.Write left(rs("dubai"),45)&"……"
								  else
								    response.Write rs("dubai")
								  end if
								  %></td>
                                          </tr>
                                          <tr>
                                            <td height="16" align="middle" class="STYLE8"><%=rs("username")%></td>
                                            <td class="STYLE8"><a href="userinfo.asp?user_id=<%=rs("userid")%>" target="_blank" class="a2">详细个人介绍</a></td>
                                          </tr>
                                        </tbody>
                                    </table></td>
                                  </tr>
                                  <%
						  rs.movenext
						  loop
						  rs.close
						  set rs=nothing
						  %>
                              </table></TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                          <TABLE height=73 cellSpacing=1 cellPadding=0 width=506 align=center 
            bgColor=9DCCF6 border=0>
                            <TBODY>
                              <TR bgcolor="#EDF8FE">
                                <TD width=247 height=24 align=middle bgColor=#EDF8FE class="style10">佳人榜：</TD>
                                <%
						set rs=server.CreateObject("adodb.recordset")
						sql="select top 6 userid,username from user_info where addmodel<>2 and sex='女' order by artnum desc"
						rs.open sql,conn,1
						for h=1 to 6 						   
						%>
                                <TD width=256 align=middle class="STYLE8"><%if not rs.eof then
						  response.Write "<a href=""userinfo.asp?user_id="& rs("userid") &""" target=""_blank"" class=""a2"">"& rs("username") &"</a>"
						  rs.movenext
						else
						  response.Write "&nbsp;"
						end if
						%></TD>
                                <%
						next
						rs.close
						set rs=nothing
						%>
                              </TR>
                              <TR bgcolor="#EDF8FE">
                                <TD height=24 align=middle bgColor=#EDF8FE class="style10">才子榜：</TD>
                                <%
						set rs=server.CreateObject("adodb.recordset")
						sql="select top 6 userid,username from user_info where addmodel<>2 and sex='男' order by artnum desc"
						rs.open sql,conn,1
						for h=1 to 6 						   
						%>
                                <TD width=256 align=middle class="STYLE8"><%if not rs.eof then
						  response.Write "<a href=""userinfo.asp?user_id="& rs("userid") &""" target=""_blank"" class=""a2"">"& rs("username") &"</a>"
						  rs.movenext
						else
						  response.Write "&nbsp;"
						end if
						%></TD>
                                <%
						next
						rs.close
						set rs=nothing
						%>
                              </TR>
                              <TR>
                                <TD height=24 align=middle bgColor=#ffffff class="STYLE9">今日寿星：</TD>
                                <TD colSpan=7 bgColor=#ffffff class="STYLE9"><marquee onmouseover=stop() onmouseout=start() scrollAmount="5" loop="infinite" height="24" deplay="0">
                                  <%
						set rs=server.CreateObject("adodb.recordset")
						sql="select userid,username from user_info where addmodel<>2 and month(birthday)=month(getdate()) and day(birthday)=day(getdate()) order by userid desc"
						rs.open sql,conn,1
						do while not rs.eof
						  response.Write "<a href=""userinfo.asp?user_id="& rs("userid") &""" target=""_blank"" class=""b2"">"& rs("username") &"</a>　"
						 rs.movenext
						loop
						rs.close
						set rs=nothing
						%>
                                  </marquee>
                                </TD>
                              </TR>
                            </TBODY>
                          </TABLE>
                          <table width="100%" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td height="7"></td>
                            </tr>
                        </table></td>
                    </tr>
                  </table></td>
                </tr>
                <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from sd_yuehui where 1=1"
if prov<>0 then
   sql=sql+" and prov="&prov&""
   if city<>0 then
    sql=sql+" and city="&city&""
   end if
end if
if mudi<>"" then
  sql=sql+" and faim='"&mudi&"'"
end if
sql=sql+" order by id desc"
rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<p class='style4'><br>暂无同城约会信息！<br><br></p>"
else
               rs.pagesize=5
			   msg_per_page=rs.pagesize
			   page=request("page")
			   if page<1 or page="" then page=1
			   if clng(page)>clng(rs.pagecount) then page=clng(rs.pagecount)
			   page=clng(page)
			   rs.absolutepage=page
			   rowcount=rs.pagesize
			   pcount=clng(rs.pagecount)	
			   precordcount=rs.recordcount
%>
                <%	do while not rs.eof and rowcount>0%>
                <tr>
                  <td>&nbsp;</td>
                </tr>
                <%
rs.movenext
rowcount=rowcount-1
loop
end if
%>
              </table>
            </td>
          </tr>
        </table>
    </div></td>
    <td width="163" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="fenlei.asp"--></td>
  </tr>
  <tr>
    <td height="1" valign="top"></td>
    <td valign="top" ></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
<map name="Map32" id="Map32">
<area shape="rect" coords="395,16,461,41" href="liaozhang.asp" />
<area shape="rect" coords="657,15,725,38" href="liaozhanga.asp" />
</map>
