<!--#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="style.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
-->
</style>
 <script language="javascript" src="js/area1.js"></script>
</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="200" height="328" valign="top"><table width="190" border="0" cellspacing="0" cellpadding="00">
      <tr>
        <td height="27" background="images/index_46.gif" bgcolor="AFDDFF">&nbsp;&nbsp;&nbsp;<span class="title2" style="font-weight: bold; color:#ffffff" >排行榜</span></td>
      </tr>
      <tr>
        <td height="117" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid"><table width="176" border="0" align="center" cellpadding="00" cellspacing="0">
            <tr>
              <td width="169" height="23"><img src="images/arow5.gif" width="40" height="7" border="0" align="absmiddle"><a href="liangzhao.asp" class="a5"><font color="#60A7E5">人气排行榜</font></a> <img src="images/arow6.gif" width="40" height="7" border="0" align="absmiddle"></td>
            </tr>
            <tr>
              <td height="23"><img src="images/arow5.gif" width="40" height="7" border="0" align="absmiddle"><a href="tpph.asp" class="a5"><font color="#60A7E5">投票排行榜</font></a> <img src="images/arow6.gif" width="40" height="7" border="0" align="absmiddle"></td>
            </tr>
            <tr>
              <td height="23"><img src="images/arow5.gif" width="40" height="7" border="0" align="absmiddle"><a href="zqzph.asp" class="a5">追求者排行榜</a><img src="images/arow6.gif" width="40" height="7" border="0" align="absmiddle"></td>
            </tr>
            <tr>
              <td height="23"><img src="images/arow5.gif" width="40" height="7" border="0" align="absmiddle"><a href="zxph.asp" class="a5"><font color="#60A7E5">最新排行榜</font></a> <img src="images/arow6.gif" width="40" height="7" border="0" align="absmiddle"></td>
            </tr>
			<tr>
              <td height="23"><img src="images/arow5.gif" width="40" height="7" border="0" align="absmiddle"><a href="onlinemem.asp" class="a5"><font color="#60A7E5">在线会员</font></a> <img src="images/arow6.gif" width="40" height="7" border="0" align="absmiddle"></td>
            </tr>
        </table></td>
      </tr>
    </table>
      <!--#include file="sousuo2.asp"-->
</td>
    <td width="11" valign="top">&nbsp;</td>
    <td width="748" valign="top"><table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border-left:#C7C8CC 1px solid;border-right:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid">
      <tr>
        <td align="center"><table width="92%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="7%" height="35"><img src="ima/hdans_01.jpg" width="27" height="35"></td>
              <td width="57%" valign="bottom"><table width="316" height="26" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="158" align="center" background="image/qtphb_01_03.jpg"><a href="zqzph.asp" class="a5" style="font-size: 14px"><font color="#FFffff">女士追求者排行</font></a></td>
                    <td width="158" align="center" background="image/qtphb_01_02.jpg"><STRONG><a href="zqzpha.asp" class="a5"><font color="#666666">男士追求者排行</font></a></STRONG></td>
                  </tr>
              </table></td>
              <td width="36%" valign="bottom">在线人数 <span class="pgd"><font color="#FF0000"><%=GetOnlineMember%></font></span> &nbsp;&nbsp;会员总数 <span class="pgd"><font color="#FF0000"><%=GetTotalMember%></font></span></td>
            </tr>
            <tr>
              <td height="35" colspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="STYLE4">
                  <form name="form2" method="post" action="sim_search.asp">
                    <tr>
                      <td width="91%" align="center"><span class="white1">找
                            <SELECT class=STYLE1 id=sex name=sex>
                              <OPTION value=1>男性</OPTION>
                              <OPTION value=2 selected>女性</OPTION>
                            </SELECT>
                    年龄
                    <SELECT class=STYLE1 id=age1 name=age1>
                      <%for j=18 to 70
    response.Write "<option value="""& j &""""
	if j=18 then response.Write " selected"
	response.Write ">"& j &"</option>"
	next
  %>
                    </SELECT>
                    －
                    <select name="age2" id="age2" class="STYLE1">
                      <%for j=18 to 70
    response.Write "<option value="""& j &""""
	if j=40 then response.Write " selected"
	response.Write ">"& j &"</option>"
	next
  %>
                    </select>
                    所在地
                    <select name="sheng" class="STYLE1" onChange="setField(sheng,shi);">
                      <option value="0" selected>不限</option>
                      <%
					set rs=server.CreateObject("adodb.recordset")
					sql="select id,sheng from sheng order by id"					
					rs.open sql,conn,1
					do while not rs.eof
					  response.Write "<option value="""& rs("id") &""">"& rs("sheng")&"</option>"
					  rs.movenext
					loop
					rs.close
					set rs=nothing
					%>
                    </select>
                    <select class="STYLE1" name="shi">
                      <option value="0" selected>不限</option>
                    </select>

&nbsp;
                    <INPUT id=photo type=checkbox value=1 name=photo>
                    照片</span></td>
                      <td width="9%"><input type="image" name="imageField2" src="image/so.gif"></td>
                    </tr>
                  </form>
              </table></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td align="center"><TABLE width="96%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white  >
          <TBODY>
            <TR>
              <TD width="2%" align=center background="image/tiao_4.gif">&nbsp;</TD>
              <TD width="12%" align=center background="image/tiao_4.gif"><table width="69" height="25" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td align="center" class="pgd"></td>
                  </tr>
              </table></TD>
              <TD width="53%" height="20" align="center" background="image/tiao_4.gif">&nbsp;</TD>
              <TD width="32%" align="center" background="image/tiao_4.gif">&nbsp;</TD>
              <TD width="1%" align="center" background="image/tiao_4.gif">&nbsp;</TD>
            </TR>
          </TBODY>
        </TABLE></td>
      </tr>
      <%
dim rowcount,page,pcount
set rs=server.CreateObject("adodb.recordset")
sql="select top 40 userid,username,birthday,prov,sex,school,photo from user_info where sex='女' and addmodel<>2 and photo<>'' and photo is not null order by innum desc"
rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<tr><td align='center'><p class='style4'><br>暂无女会员信息！<br><br></p></td></tr>"
else
               rs.pagesize=20
			   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/5
			   pcount=clng(rs.pagecount)	
			   precordcount=rs.recordcount
			   dim j			  
do while not rs.eof and rowcount>0			   
%>
      <tr>
        <td align="center"><table width="703" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td height="165" align="center" valign="top"><table width="687" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <%for j=1 to 5		  
		   response.Write "<td width=""131"">"
		   if not rs.eof then
		    Call ShowUserPhoto()
		    rs.movenext
		  else
		    response.Write "&nbsp;"
		  end if		
		   response.Write "</td>" 	  
		   if j<>5 then response.Write "<td width=""8""></td>"
		  next
		  %>
                  </tr>
              </table></td>
            </tr>
        </table></td>
      </tr>
      <%
rowcount=rowcount-1
if rowcount<>0 and not rs.eof then
%>
      <tr>
        <td height="25" align="center"><table width="703" height="15" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td>&nbsp;</td>
            </tr>
        </table></td>
      </tr>
      <%end if
loop
end if
response.Write "<tr><td height=""10"" align=""center"" bgcolor=""#FBDDEA""></td></tr>"
if pcount>1 then
%>
      <tr>
        <td height="30" align="center"><%
  response.Write "<TABLE align='center' class='STYLE4'>"
response.Write "<form name='form1' method='post' action='zqzph.asp'>"
response.Write "<TBODY><TR><TD>"
if page>1 then
    response.Write "<a href='zqzph.asp?page=1' class='b2'>首页</a>&nbsp;"
	response.Write "<a href='zqzph.asp?page="& page-1 &"' class='b2'>上一页</a>&nbsp;"
else
    response.Write "首页&nbsp;上一页&nbsp;"
end if			 
if page<pcount then
    response.Write "<a href='zqzph.asp?page="& page+1 &"' class='b2'>下一页</a>&nbsp;"
	response.Write "<a href='zqzph.asp?page="& pcount &"' class='b2'>尾页</a>&nbsp;"
else
    response.Write "下一页&nbsp;尾页&nbsp;"
end if	

response.Write "页次:<STRONG><font color='#FF0000'>"&page&"</font>/"&pcount&"</STRONG>页&nbsp; <strong>"&rs.pagesize&"</strong>条/页&nbsp;共<strong>"& precordcount &"</strong>条&nbsp;转到:"
response.Write "<input name='page' type='text' id='page' size='2' style='height:18px;' maxlength='5' value='"&page&"'>"
response.Write "<input name='submit' type='submit' style='height:20px;' id='submit' value='GO'>"
response.Write "</TD></TR></TBODY></form></TABLE>"
			%></td>
      </tr>
      <%end if%>
    </table></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>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
