<!--#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>
 <script language="javascript" src="js/area1.js"></script>
</head>
<body>
<%
dim shi
shi=trim(replacebadchar(request("city")))
ChkNumber(shi)  
%>
<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="209" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="sousuo2.asp"--></td>
    <td width="741" align="center" valign="top" bgcolor="#FFFFFF"><table width="739" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="738"><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
            <TBODY>
              <TR>
                <TD width="2%" background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                <TD height="20" align=center background="image/tiao_4.gif"><table width="95%" border="0" cellpadding="0" cellspacing="3" class="STYLE4">
                    <tr>
                      <td class="pgd">同城交友 － <%response.Write GetCity(shi)%></td>
                      <td width="80" align="right">&nbsp;</td>
                    </tr>
                </table></TD>
                <TD width="2%" align="right" background="image/tiao_4.gif"><img src="image/tiao_2.gif" width="10" height="31"></TD>
              </TR>
            </TBODY>
        </TABLE></td>
      </tr>
      <tr>
        <td height="776" valign="top" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid"><br>
          <table width="670" border="0" align="center" cellpadding="00" cellspacing="0">
            <tr>
              <td width="379" height="26" bgcolor="ECF7FE" class="lan"><span class="style895">当前 </span><span style="font-weight: bold">在线人数</span><span class="hong"> <%response.Write GetOlCityNum(shi)%></span> <span class="style895">总人数</span> <span class="hong"><%response.Write GetCityNum(shi)%></span> </td>
              <td width="149" bgcolor="ECF7FE" class="lan">&nbsp;</td>
            </tr>
            <tr>
              <td colspan="2">&nbsp;</td>
            </tr>
          </table>
<%
dim rowcount,page,pcount
set rs=server.CreateObject("adodb.recordset")
sql="select userid,username,birthday,school,photo,vocation,sex from user_info where city="&shi&" and addmodel<>2 order by renqi desc"
rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<table><tr><td height=30 align='center'><p class='style4'><br>此城市暂无会员信息！<br><br></p></td></tr></table>"
else
               rs.pagesize=15
			   msg_per_page=rs.pagesize
			   page=request("page")
			    if not isnumeric(page) then page=1
			   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
			   dim j
			   j=1		  		   
%>  
                    <table width="670" border="0" align="center" cellpadding="00" cellspacing="0">
                      <tr>
<%do while not rs.eof and rowcount>0	%>					  
                        <td width="134"><table width="100%" border="0" cellspacing="6" cellpadding="00">
                          <tr>
                            <td width="124" height="105"><div align="center"><a href="userinfo.asp?user_id=<%=rs("userid")%>" title="<%=rs("username")%>" target="_blank">
							<%if rs("photo")<>"" and not isnull(rs("photo")) then%>
							<img src="uppic/photo/<%=rs("photo")%>" onload="javascript:if(this.width>this.height){this.width=105}else{this.height=105}" border="0">
							<%else
							 if rs("sex")="男" then
							%>
							 <img src="ima/default-1.gif" border="0" width="108" height="89">
							<%elseif rs("sex")="女" then%>
							  <img src="ima/default-0.gif" border="0" width="108" height="89">
							<%end if
							end if%>
							</a></div></td>
                          </tr>
                          <tr>
                            <td height="40"><table width="120" border="0" cellspacing="0" cellpadding="00">
                                <tr>
                                  <td height="20"><div align="center"><span class="lan">诚信</span> <%ShowHonor(rs("userid"))%> </div></td>
                                </tr>
                                <tr>
                                  <td height="20"><div align="center" class="lan"><%
				 response.Write datediff("yyyy",rs("birthday"),now())&"&nbsp;"&ShowXl(rs("school"))&"&nbsp;"&rs("vocation")
				if chkonline(rs("userid")) then response.Write "&nbsp;在线"%></div></td>
                                </tr>
                            </table></td>
                          </tr>
                        </table></td>
						<%
	 if j = 5 then response.write "</tr><tr><td colspan=""10"">&nbsp;</td></tr>"
	 rowcount=rowcount-1
	 rs.movenext	 
	 j=j+1	 
	 if j>5 then j=1	 
	 loop
	 if j>1 then
	 for h=j to 5 
	  response.write "<td width=134>&nbsp;</td>"
	 next
	 response.Write "</tr><tr><td colspan=""10"">&nbsp;</td></tr>"
	 end if
	 rs.close
	 set rs=nothing
	 %>                            
            </table>
                    <%
					end if
					if pcount>1 then%><table width="670" border="0" align="center" cellpadding="00" cellspacing="0">
                      <tr>
                        <td width="634" height="26" bgcolor="ECF7FE" class="lan"><div align="right">
                          <%
						if page>1 then
    response.Write "<a href='search.asp?page=1&city="&shi&"' class='b2'>首页</a>&nbsp;"
	response.Write "<a href='search.asp?page="& page-1 &"&city="&shi&"' class='b2'>上一页</a>&nbsp;"
else
    response.Write "首页&nbsp;上一页&nbsp;"
end if			 
if page<pcount then
    response.Write "<a href='search.asp?page="& page+1 &"&city="&shi&"' class='b2'>下一页</a>&nbsp;"
	response.Write "<a href='search.asp?page="& pcount &"&city="&shi&"' class='b2'>尾页</a>&nbsp;"
else
    response.Write "下一页&nbsp;尾页&nbsp;"
end if	

response.Write "页次:<STRONG><font color='#FF0000'>"&page&"</font>/"&pcount&"</STRONG>页&nbsp; <strong>"&msg_per_page&"</strong>条/页&nbsp;共<strong>"& precordcount &"</strong>条&nbsp;&nbsp;"
						%>&nbsp;&nbsp;&nbsp;&nbsp;
                        </div></td>
                        <td width="36" bgcolor="ECF7FE" class="lan">&nbsp;</td>
                      </tr>
                      <tr>
                        <td>&nbsp;</td>
                        <td>&nbsp;</td>
                      </tr>
          </table>
                    <%end if%></td>
      </tr>
    </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
%>
