<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="css.css" rel="stylesheet" type="text/css">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
.STYLE81 {	color: #60A7E5;
	font-size: 12px;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<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="202" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="sousuo2.asp"--></td>
    <td align="center" valign="top" bgcolor="#FFFFFF"><TABLE width="747" height="783" border=0 align="left" 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
      <TBODY>
        <TR>
          <TD width="4%" align=left background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
          <TD width="91%" height="20" align=center background="image/tiao_4.gif"><div align="left"><span class="pgd">同城交友</span></div></TD>
          <TD width="5%" align="right" background="image/tiao_4.gif"><img src="image/tiao_2.gif" width="10" height="31"></TD>
        </TR>
        <TR>
          <TD align=left style="border-left:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid">&nbsp;</TD>
          <TD height="752" align=center valign="top" style="border-bottom:#C7C8CC 1px solid"><br>
              <table width="678" border="0" align="center" cellpadding="00" cellspacing="0" style="border-left:#9ECCF6 1px solid;border-top:#9ECCF6 1px solid;border-right:#9ECCF6 1px solid;border-bottom:#9ECCF6 1px solid ">
                  <tr>
                    <td height="28" colspan="3" bgcolor="#ECF7FE" class="style30">&nbsp;<strong class="style30">地区分布</strong></td>
                  </tr>
                  <tr>
                    <td width="30" height="120" class="style30"></td>
                    <td width="461" class="style30">
					 <table width="639" border="0" cellspacing="0" cellpadding="0">
                      <tr>
					<%
set res=server.CreateObject("adodb.recordset")
sql1="select * from sheng"
res.open sql1,conn,1
j=0
do while not res.eof
  response.Write "<td width=""51"" align=""center""><a href=""city.asp?prov="& res("id") &""" class=""b2"">"&res("sheng")&"</a></td>"
res.movenext
j=j+1
if j mod 9 = 0 then response.Write "</tr>"
loop
res.close
set res=nothing
%>                   
                    </table></td>
                    <td width="37" class="style30">&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="13" colspan="3">&nbsp;</td>
                  </tr>
            </table>
              <br>
              <table width="678" border="0" align="center" cellpadding="00" cellspacing="0" style="border-left:#9ECCF6 1px solid;border-top:#9ECCF6 1px solid;border-right:#9ECCF6 1px solid;border-bottom:#9ECCF6 1px solid ">
                <tr>
                  <td width="608" height="26" bgcolor="ECF7FE" class="pgd"><span class="style30">&nbsp;</span>女士榜</td>
                  <td width="69" bgcolor="ECF7FE" class="lan"><a href="liangzhao.asp" class="b2" style="font-weight: bold">更多&gt;&gt;</a></td>
                </tr>
                <tr>
                  <td height="111" colspan="2">
	<%set res=server.createobject("adodb.recordset")
	rsql="select top 5 userid,photo,birthday,school,prov from user_info where addmodel<>2 and photo <>'' and photo is not null and sex='女' order by renqi desc"
	res.open rsql,conn,1
	if not (res.eof or res.bof) then
	%>			  
				  <table width="646" border="0" align="center" cellpadding="00" cellspacing="0">
                    <tr>
	<%
	  h=1
	  do while not res.eof
	  %>
                      <td width="126" height="202"><table width="126" border="0" cellspacing="6" cellpadding="00">
                          <tr>
                            <td width="114" height="47"><div align="center"><a href="userinfo.asp?user_id=<%=res("userid")%>" target="_blank"><img src="uppic/photo/<%=res("photo")%>" width="100" height="124" border="0"></a></div></td>
                          </tr>
                          <tr>
                            <td height="40"><table width="114" border="0" cellspacing="0" cellpadding="00">
                                <tr>
                                  <td width="106" height="20"><div align="center"><span class="lan">诚信</span> <%ShowHonor(res("userid"))%> </div></td>
                                </tr>
                                <tr>
                                  <td height="20"><div align="center" class="lan"><%response.Write datediff("yyyy",res("birthday"),now())&"&nbsp;"&ShowXl(res("school"))&"&nbsp;"&GetProv(res("prov"))
				if chkonline(res("userid")) then response.Write "&nbsp;在线"%></div></td>
                                </tr>
                            </table></td>
                          </tr>
                      </table></td>
		<%
	 if h = 5 then response.write "</tr>"
	 res.movenext	 
	 h=h+1	 
	 if h>5 then h=1	 
	 loop
	 if h>1 then
	 for i=h to 5 
	  response.write "<td width=126>&nbsp;</td>"
	 next
	 response.Write "</tr>"
	 end if
	 %>           </tr>
                    <tr>
                      <td height="8" colspan="4"></td>
                      </tr>
                  </table>
	<%end if
	res.close	
	%>			  
				  </td>
                </tr>
              </table>
              <br>
              <table width="678" border="0" align="center" cellpadding="00" cellspacing="0" style="border-left:#9ECCF6 1px solid;border-top:#9ECCF6 1px solid;border-right:#9ECCF6 1px solid;border-bottom:#9ECCF6 1px solid ">
                <tr>
                  <td width="607" height="26" bgcolor="ECF7FE" class="pgd"><span class="style30">&nbsp;</span>先生榜</td>
                  <td width="69" bgcolor="ECF7FE" class="lan"><a href="liangzhaoa.asp" class="b2" style="font-weight: bold">更多&gt;&gt;</a></td>
                </tr>
                <tr>
                  <td height="111" colspan="2"><%
	rsql="select top 5 userid,photo,birthday,school,prov from user_info where addmodel<>2 and photo <>'' and photo is not null and sex='男' order by renqi desc"
	res.open rsql,conn,1
	if not (res.eof or res.bof) then
	%>			  
				  <table width="646" border="0" align="center" cellpadding="00" cellspacing="0">
                    <tr>
	<%
	  h=1
	  do while not res.eof
	  %>
                      <td width="126" height="202"><table width="126" border="0" cellspacing="6" cellpadding="00">
                          <tr>
                            <td width="114" height="47"><div align="center"><a href="userinfo.asp?user_id=<%=res("userid")%>" target="_blank"><img src="uppic/photo/<%=res("photo")%>" width="100" height="124" border="0"></a></div></td>
                          </tr>
                          <tr>
                            <td height="40"><table width="114" border="0" cellspacing="0" cellpadding="00">
                                <tr>
                                  <td height="20"><div align="center"><span class="lan">诚信</span> <%ShowHonor(res("userid"))%> </div></td>
                                </tr>
                                <tr>
                                  <td height="20"><div align="center" class="lan"><%response.Write datediff("yyyy",res("birthday"),now())&"&nbsp;"&ShowXl(res("school"))&"&nbsp;"&GetProv(res("prov"))
				if chkonline(res("userid")) then response.Write "&nbsp;在线"%></div></td>
                                </tr>
                            </table></td>
                          </tr>
                      </table>
                        <div ></div></td>
		<%
	 if h = 5 then response.write "</tr>"
	 res.movenext	 
	 h=h+1	 
	 if h>5 then h=1	 
	 loop
	 if h>1 then
	 for i=h to 5 
	  response.write "<td width=126>&nbsp;</td>"
	 next
	 response.Write "</tr>"
	 end if
	 %>           </tr>
                    <tr>
                      <td height="8" colspan="4"></td>
                      </tr>
                  </table>
	<%end if
	res.close	
	%>			  </td>
                </tr>
              </table>
              <br>              </TD>
          <TD align="right" style="border-RIGHT:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid">&nbsp;</TD>
        </TR>
      </TBODY>
    </TABLE></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>
</body>
</html>
<%
set res=nothing
conn.close
set conn=nothing
%>
