<!--#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();
}
-->
</style>
</head>
<body>
<%
dim sheng
sheng=trim(replacebadchar(request("prov")))
ChkNumber(sheng)  
%>
<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="sousuo.asp"--></td>
    <td align="center" valign="top" bgcolor="#FFFFFF"><TABLE width="747" height="612" 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="92%" height="20" align=center background="image/tiao_4.gif"><div align="left"><span class="pgd">同城交友 － <%response.Write GetProv(sheng)%></span>&nbsp;&nbsp;&nbsp;&nbsp;<span style="color: #FF5AA5">(在线人数/会员总数)</span></div></TD>
            <TD width="4%" 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="581" align=center valign="top" style="border-bottom:#C7C8CC 1px solid"><br>
                <table width="678" border="0" align="center" cellpadding="2" cellspacing="0" bordercolorlight="#FFFFFF"  class="style30" style="border-left:#9ECCF6 1px solid;border-top:#9ECCF6 1px solid;border-right:#9ECCF6 1px solid;border-bottom:#9ECCF6 1px solid ">
                    <tr>
					<%
					set rs=server.CreateObject("adodb.recordset")
					sql="select * from shi where shengid="& sheng
					rs.open sql,conn,1
					h=0
					a=1
					do while not rs.eof					
					select case h
					  case 0:
					   bgcolor1="#FFFFFF"
					  case 1:
					   bgcolor1="#EEEFF1" 
					end select
					%>                    
                      <td bgcolor="<%=bgcolor1%>" width="132" height="25"><a href="search.asp?city=<%=rs("id")%>" class="alan"><%=rs("shi")%></a> <%response.Write "("&GetOlCityNum(rs("id"))&"/<b>"&GetCityNum(rs("id"))&"</b>)"%></td>                      
					<%rs.movenext					
					a=a+1
					if a>4 then
					  response.Write "<tr>"
					  a=1
					  h=h+1
					end if
					if h>1 then h=0
					loop
					if a>1 then
					for b=a to 4
					   response.Write "<td bgcolor="& bgcolor1 &" width=132>&nbsp;</td>"
					next
					 response.Write "</tr>"
					end if
					rs.close
					set rs=nothing
					%>                    
              </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 height="26" bgcolor="ECF7FE" class="pgd"><span class="style30">&nbsp;</span>人气会员</td>
                  <td width="62" bgcolor="ECF7FE" class="lan"></td>
                </tr>
                <tr>
                  <td height="212" colspan="2" >
                      <%set res=server.createobject("adodb.recordset")
	rsql="select top 5 userid,photo,birthday,school,city  from user_info where addmodel<>2 and photo <>'' and photo is not null and prov="&sheng&" order by renqi desc"
	res.open rsql,conn,1
	if not (res.eof or res.bof) then
	%>
  <table width="138" border="0" cellpadding="0" cellspacing="6">
        <tr>
          <%
	  h=1
	  do while not res.eof
	  %>
          <td width="138" height="164" align="center" valign="middle" style="color: #EDF8FE"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="125" height="133"><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="29"><span class="lan"><%
				response.Write datediff("yyyy",res("birthday"),now())&"&nbsp;"&GetCity(res("city"))
				if chkonline(res("userid")) then response.Write "&nbsp;在线"
				response.Write "<br>诚信&nbsp;"
				ShowHonor(res("userid"))
				%></span></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=138>&nbsp;</td>"
	 next
	 response.Write "</tr>"
	 end if
	 %>        
      </table>
                      <%end if
	res.close
	set res=nothing
	%>
                 </td>
                </tr>
              </table></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>
<%
conn.close
set conn=nothing
%>
