<!--#include file="main.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>个人娱乐交友中心_圈网</title>
<link href="css/global.css" rel="stylesheet" type="text/css" />
<link href="css/index.css" rel="stylesheet" type="text/css" /></head>
<body background="images/bj.gif">
<!--#include file="top.asp" -->
<table class="border2" cellspacing="0" cellpadding="0" width="780" align="center" 
bgcolor="white" border="0">
  <tbody>
    <tr align="left" height="40">
      <td width="2%"></td>
      <td width="96%" colspan="3"><table cellspacing="0" cellpadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td height="5"></td>
          </tr>
          <tr>
            <td bgcolor="#a6d688" colspan="3" height="1"></td>
          </tr>
          <tr align="left" height="20">
            <td width="1" bgcolor="#a6d688"></td>
            <td bgcolor="#e6e6e6">&nbsp;导航：&nbsp;<a class="blue3ln" 
            href="index.asp">网站首页</a>&gt;&gt;<a class="blue3ln" 
            href="user/">我的管理中心</a>&gt;&gt;精彩会员 </td>
            <td width="1" bgcolor="#a6d688"></td>
          </tr>
          <tr>
            <td bgcolor="#a6d688" colspan="3" height="1"></td>
          </tr>
          <tr>
            <td height="5"></td>
          </tr>
        </tbody>
      </table></td>
      <td width="2%"></td>
    </tr>
  </tbody>
</table>  
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="white" class="border2">
  <form action="search_member.asp" method="post" name="addform" id="addform">
    <tr height="30">
      <td width="19"></td>
      <td class="con1" colspan="4"><b>&nbsp;更多朋友，从这里开始</b></td>
      <td width="20"></td>
    </tr>
    <tr>
      <td width="19"></td>
      <td bgcolor="#ff6600" colspan="4" height="1"></td>
      <td width="20"></td>
    </tr>
    <tr height="32">
      <td width="19"></td>
      <td width="1" bgcolor="#ff6600"></td>
      <td width="323">&nbsp;<b>省/市 ：</b>
          <%
 set rs=server.createobject("ADODB.Recordset")
 sql = "select *  from ypaddtwo order by date desc"
rs.open sql,conn,1,1%>
          <script language = "JavaScript" type="text/javascript">
var onecount1;
onecount1=0;
subcat1 = new Array();
<%count = 0
do while not rs.eof%>
subcat1[<%=count%>] = new Array("<%= trim(rs("addtwo"))%>","<%= trim(rs("addone_id"))%>","<%= trim(rs("addtwo_id"))%>");
        <%count = count + 1
        rs.movenext
        loop
        rs.close
       %>
onecount1=<%=count%>;

function changelocation1(addone)
    {
    document.addform .addtwo.length = 0; 

    var addone=addone;
    var i;
    document.addform .addtwo.options[0] = new Option('请选择地区(市)','');
    for (i=0;i < onecount1; i++)
        {
            if (subcat1[i][1] == addone)
            { 
                document.addform .addtwo.options[document.addform .addtwo.length] = new Option(subcat1[i][0], subcat1[i][2]);
            }        
        }
        
    }
      </script>
        <select name="addone" onchange="changelocation1(document.addform .addone.options[document.addform .addone.selectedIndex].value)">
            <option value="">请选择省份</option>
            <%
sql="select *  from ypaddone order by date desc"
rs.open sql,conn,1,1
while not rs.eof%>
            <option value="<%=rs("addone_id")%>"><%=rs("addone")%></option>
            <%rs.movenext
wend
rs.Close()
%>
          </select>
          <select name="addtwo">
            <option value="">请选择城市</option>
          </select>
      </td>
      <td width="416">&nbsp;&nbsp;<b>性别</b>
          <select name="sex" id="sex">
            <option value="0" 
        selected="selected">女性</option>
            <option value="1">男性</option>
            <option 
        value="3">无要求</option>
          </select>
          <input onclick="return checkForm();" type="submit" value="搜索" name="submit" /></td>
      <td width="1" bgcolor="#ff6600"></td>
      <td width="20"></td>
    </tr>
    <tr>
      <td width="19"></td>
      <td bgcolor="#d6d6d6" colspan="4" height="1"></td>
      <td width="20"></td>
    </tr>
    <tr>
      <td width="19"></td>
      <td bgcolor="#ff6600" colspan="4" height="1"></td>
      <td width="20"></td>
    </tr>
  </form>
</table>
<table width="780" 
border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="white" class="border2">
  <tbody>
    <tr height="30">
      <td width="2%"></td>
      <td width="78%" colspan="6" align="left" class="con1">&nbsp;<b>最新会员</b></td>
      <td width="2%"></td>
    </tr>
    
    <tr>
      <td width="2%"></td>
      <td width="19%"></td>
    </tr>
  </tbody>
</table><table width="780" align="center">
  <tr><DIV class=col_body><UL>
<%
sql="select * from T_member where F_coname like'%"&request("word")&"%' and F_ypaddone="&request("addone")&" order by F_id desc"
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else  
'分页的实现 
listnum=80
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum%>
<%i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if%>

<%
a=0
do while not rs.eof and i<listnum
co=rs("F_co")
goname=rs("F_username")
goid=rs("F_id")
coname=rs("F_coname")
realname=rs("F_realname")
n=n+1
a=a+1
%><!--#include file="dns/dns.asp"-->
<td align="center"><SPAN class=group><A 
href="<%=usertwourl%>" target=_blank><img src="<%if rs("T_pic")<>"" then %><%=trim(rs("T_pic"))%><%else%>images/nopic1.gif<%end if%>" alt="<%=rs("F_realname")%>" width=75  height=75 border=0 class="buddyIcon" /><BR />
  <%if rs("F_realname")<>"" then %>
                      <%=rs("F_realname")%>
                      <%else%>
                      无名
        <%end if%></A></SPAN></td>
<%
if a mod 8=0 then response.Write("</tr><tr>")
rs.movenext
i=i+1 
j=j-1
loop%></UL></DIV></tr><tr>
<%filename="member_search.asp"%>
<td colspan=5 align=right height=20><span class="STYLE2">共 <%=Rs.pagecount%> 页 
      <% if page=1 then %>
      <%else%>
      <a href=<%=filename%>>|<<</a>&nbsp; 
      <a href=<%=filename%>?page=<%=page-1%>><<</a>&nbsp; 
      <a href=<%=filename%>?page=<%=page-1%>>[<%=page-1%>]</a>&nbsp;
      <%end if%>
      <% if Rs.pagecount=1 then %>
      <%else%>
      [<%=page%>]
      <%end if%>
	  <% if Rs.pagecount-page <> 0 then %>
      <a href=<%=filename%>?page=<%=page+1%>>[<%=page+1%>]</a>&nbsp; 
      <a href=<%=filename%>?page=<%=page+1%>>>></a>&nbsp; 
      <a href=<%=filename%>?page=<%=Rs.pagecount%>>>>|</a>&nbsp; 
	  <%end if%>
    &nbsp;</span>&nbsp;</td>
<%end if%></tr></table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="7">
<DIV class=row>
<DIV class=col>
<P>同城交友: <%set rs=server.createobject("adodb.recordset")
sql="select * from ypaddone"
rs.open sql,conn,1,1
do while not rs.eof%>
<A href="yp.asp?id=<%=rs("addone_id")%>" target=_blank><%=rs("addone")%></A>
<%
rs.movenext
loop
rs.close%></P></DIV></DIV></td>
  </tr>
</table>
<!--#include file="bottom.asp" -->
</body>
</html>
