<%@ Language=VBScript %>
<!--#include file="const.asp" -->
<!--#include file="articleconn.asp"--> 
<title><%=rs("title")%>---<%=rs("lovetitle")%></title>
<link rel="stylesheet" href="images/css.css" type="text/css">
<body leftmargin="0" topmargin="0">
<object runat="server" id="connpic" progid="adodb.connection"></object>
<object runat="server" id="conn1" progid="adodb.connection"></object>
<%application.Lock 
	Application("p_jyzx")="driver={Microsoft Access Driver (*.mdb)};dbq=" &server.MapPath("db/sjxffriend.asa")
	Application("p_pic")="driver={Microsoft Access Driver (*.mdb)};dbq=" &server.MapPath("db/pic.mdb")
	connpic.Open Application("p_pic")
	conn1.Open Application("p_jyzx")
	Application.UnLock
%>
<%	dim temp_note
	temp_note="会员广播==> "
	sql="select top 20 mynote.*,user.nickname from user,mynote where user.user_name=mynote.user_name order by time desc"
	Set rs1 = Server.CreateObject("ADODB.Recordset")
	'Response.Write sql
	'Response.End 
	rs1.Open sql,conn1,3
	while not rs1.EOF 
		temp_note=temp_note&"<a href=love/show_user.asp?user_name="&rs1("user_name")&" target=_blank>"
		temp_note=temp_note&rs1("nickname")&"</a>"
		temp_note=temp_note&"说："
		temp_note=temp_note&rs1("mynote")
		temp_note=temp_note&" —"&FormatDateTime(rs1("time"),2)&" ☆ "	
	rs1.MoveNext
	wend 
	application.Lock
	Application("quick_note")=temp_note
	Application.UnLock

if Application("sys_today")="" or  Application("sys_today")<>date  then
'//////////////随即选择照片
	
'////////////////选择男VIP会员照片
	
	Set rs11 = Server.CreateObject("ADODB.Recordset")
	sql="select * from user where weight=2 and photo>0 and sex='男'"
	rs11.open sql,conn1,3
	Randomize
	if rs11.RecordCount<>0 then
		myrnd=rs11.RecordCount * Rnd
		while not rs11.EOF and myrnd>0
		user_name=rs11("user_name")
		'pic_id=rs11("id")
		nickname=rs11("nickname")
		age=year(date)-rs11("byear")
		work_province=rs11("work_province")
		
		myrnd=myrnd-1
		rs11.MoveNext
		wend
		Set rs11 = Server.CreateObject("ADODB.Recordset")
		sql="select id from pic where selected=1 and user_name='"&user_name&"'"
		
		rs11.open sql,connpic,3
		pic_id=rs11("id")
		
		
		if pic_id<>"" then
			update_sql="update today_star set user_name='"&user_name&"',nickname='"&nickname&"',age="&age&",work_province='"&work_province&"',pic_id="&pic_id&",my_date="&date()
			update_sql=update_sql&" where id=1"
			conn1.Execute(update_sql)
		'	application("man_brief_info")=rs1("selfintro")
		'	application("man_nickname")=rs1("nickname")
		
		end if
	end if
	'/////////////选择女VIP会员照片
	Set rs11 = Server.CreateObject("ADODB.Recordset")
	sql="select * from user where weight=2 and photo>0 and sex='女'"
	rs11.open sql,conn1,3
	Randomize
	if rs11.RecordCount<>0 then
		myrnd=rs11.RecordCount * Rnd
		while not rs11.EOF and myrnd>0
		user_name=rs11("user_name")
		'pic_id=rs11("id")
		nickname=rs11("nickname")
		age=year(date)-rs11("byear")
		work_province=rs11("work_province")
		
		myrnd=myrnd-1
		rs11.MoveNext
		wend
		Set rs11 = Server.CreateObject("ADODB.Recordset")
		sql="select id from pic where selected=1 and user_name='"&user_name&"'"
		
		rs11.open sql,connpic,3
		pic_id=rs11("id")
		
		
		if pic_id<>"" then
			update_sql="update today_star set user_name='"&user_name&"',nickname='"&nickname&"',age="&age&",work_province='"&work_province&"',pic_id="&pic_id&",my_date="&date()
			update_sql=update_sql&" where id=2"
			conn1.Execute(update_sql)
		'	application("man_brief_info")=rs1("selfintro")
		'	application("man_nickname")=rs1("nickname")
		
		end if
	end if
	'///////////////////////选择男注册会员照片
			Set rs11 = Server.CreateObject("ADODB.Recordset")
	sql="select * from user where weight=1 and photo>0 and sex='男'"
	rs11.open sql,conn1,3
	Randomize
	if rs11.RecordCount<>0 then
		myrnd=rs11.RecordCount * Rnd
		while not rs11.EOF and myrnd>0
		user_name=rs11("user_name")
		'pic_id=rs11("id")
		nickname=rs11("nickname")
		age=year(date)-rs11("byear")
		work_province=rs11("work_province")
		
		myrnd=myrnd-1
		rs11.MoveNext
		wend
		Set rs11 = Server.CreateObject("ADODB.Recordset")
		sql="select id from pic where selected=1 and user_name='"&user_name&"'"
		
		rs11.open sql,connpic,3
		pic_id=rs11("id")
		
		
		if pic_id<>"" then
			update_sql="update today_star set user_name='"&user_name&"',nickname='"&nickname&"',age="&age&",work_province='"&work_province&"',pic_id="&pic_id&",my_date="&date()
			update_sql=update_sql&" where id=3"
			conn1.Execute(update_sql)
		'	application("man_brief_info")=rs1("selfintro")
		'	application("man_nickname")=rs1("nickname")
		
		end if
	end if
	'//////////////////////选择女注册会员照片
			Set rs11 = Server.CreateObject("ADODB.Recordset")
	sql="select * from user where weight=1 and photo>0 and sex='女'"
	rs11.open sql,conn1,3
	Randomize
	if rs11.RecordCount<>0 then
		myrnd=rs11.RecordCount * Rnd
		while not rs11.EOF and myrnd>0
		user_name=rs11("user_name")
		'pic_id=rs11("id")
		nickname=rs11("nickname")
		age=year(date)-rs11("byear")
		work_province=rs11("work_province")
		
		myrnd=myrnd-1
		rs11.MoveNext
		wend
		Set rs11 = Server.CreateObject("ADODB.Recordset")
		sql="select id from pic where selected=1 and user_name='"&user_name&"'"
		
		rs11.open sql,connpic,3
		pic_id=rs11("id")
		
		
		if pic_id<>"" then
			update_sql="update today_star set user_name='"&user_name&"',nickname='"&nickname&"',age="&age&",work_province='"&work_province&"',pic_id="&pic_id&",my_date="&date()
			update_sql=update_sql&" where id=4"
			conn1.Execute(update_sql)
		'	application("man_brief_info")=rs1("selfintro")
		'	application("man_nickname")=rs1("nickname")
		
		end if
	end if
	
application.Lock 
	Application("sys_today")=date
Application.UnLock	
end if

	
%>
<%
if session("flag")=0 then
	Application("online_num")=Application("online_num")+1
   
	
	set rs1=server.CreateObject ("ADODB.recordset")
     rs1.Supports ( adUpdate )
	 sql="select * from my_system where system_id=1"
	rs1.Open sql,conn1,2,3
    if rs1.RecordCount<>0 then
		'rs1("online_num")=rs1("online_num")+1
		rs1("total")=rs1("total")+1
		rs1.Update
	end if
	rs1.Close
	
	session("flag")=1
end if
%>
 <!--#include file="top.asp" -->
<table id="Table_01" width="779" height="902" border="0" cellpadding="0" cellspacing="0" align="center">
  <tr> 
    <td background="image/images/index_01.gif" width="176" height="191" valign="top"> 
      <table width="89%" border="0" align="center" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="63">　</td>
        </tr>
        <tr> 
          <td> 
            <table cellspacing=0 cellpadding=0 border=0 style="border-collapse: collapse" bordercolor="#111111">
              <form name=TheForm onSubmit="return CheckInputs();" 
              action=love/after_login.asp method=post>
                <tr> 
                  <td width=4 >　</td>
                  <td align=middle width=176> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" height="100">
                      <tbody > 
                      <tr> 
                        <td align="middle"  height="20" colspan="2"> 用户名: 
                          <input name="user_name" size="9" maxlength="16" class=myinput3 style="border: 1px solid #FFB6CE">
                        </td>
                      </tr>
                      <tr> 
                        <td align="middle"  height="19" colspan="2">密&nbsp; 码: 
                          <input name="password" size="9" type="password" maxlength="16" class=myinput3 style="border: 1px solid #FFB6CE">
                        </td>
                      </tr>
                      <tr> 
                        <td align="middle"  height="2" width="64"> 
                          <p style="line-height: 200%" align="left"> 
                            <input align="middle" id="image1" name="image1" src="images/button-enter2.gif" type="image">
                            <a target="_blank" href="love/forget.asp"> <img border="0" src="images/button-password1.gif"></a><br>
                        </td>
                        <td align="middle"  height="2" width="62"> 
                          <p align="left"> <a href="love/register1.asp"> <img border="0" src="images/reg.gif" width="60" height="40"></a> 
                        </td>
                      </tr>
                      <tr> 
                        <td align="middle"  height="14" colspan="2"> <font  color=#FFFFFF> 
                          <%set rs1=server.CreateObject ("ADODB.recordset")
						sql="select * from online order by time desc"
						rs1.Open sql,conn1,3
			%>
                          </font><font  color=#D84895>当前在线会员：<%=rs1.recordcount%>人</font><font  color=#FFFFFF>&nbsp; 
                          </font></td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </form>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td rowspan="3" background="image/images/index_02.gif" width="415" height="281" valign="top"> 
      <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center" height="272">
        <tr> 
          <td height="26">　</td>
        </tr>
        <tr> 
          <td> 
            <table cellspacing=1 cellpadding=0 width=100% border=0 height="217">
              <tbody> 
              <tr> 
                <td valign=center align=middle width="405" height=148 colspan="4"> 
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" width="100%" id="AutoNumber1" height="173" align="center">
                    <tr> 
                      <td align=middle  width="118" style="border-style: none; border-width: medium" height="171"> 
                        <table cellspacing="1" width="103" border="0" style="border-collapse: collapse"  height="1">
                          <tr> 
                            <td width="99" height="1"> 
                              <p align="center"> 
                                <% set rs_star=server.CreateObject ("ADODB.recordset")
		sql="select today_star.*,user.education,user.vocation from today_star,user where user.user_name=today_star.user_name and id=1"
		rs_star.Open sql,conn1,3
		%>
                                <a href="love/show_user.asp?user_name=<%=rs_star("user_name")%>" target="_blank"><img border="1" style="border-color:#c0c0c0;" height="95" src="love/displaypic.asp?id=<%=rs_star("pic_id")%>" vspace="4" width="88" alt="今日之星"></a> 
                              </p>
                            </td>
                          </tr>
                          <tr> 
                            <td width="99" bgcolor="#F2F2F2" height="1"> 
                              <p align="center"><font color="#999999"><b><%=Left(rs_star("nickname"),12)%></b></font> 
                            </td>
                          </tr>
                          <tr> 
                            <td width="99" height="1"> <font color="#666666">年 
                              龄：<%=rs_star("age")%><br>
                              学 历：<%=rs_star("education")%><br>
                              在 地：<%=rs_star("work_province")%><br>
                              职 业：<%=rs_star("vocation")%></font></td>
                          </tr>
                        </table>
                      </td>
                      <td align=middle width="118" style="border-style: none; border-width: medium" height="171"> 
                        <table cellspacing="1" width="93" border="0" style="border-collapse: collapse" height="6">
                          <tr> 
                            <td width="104" height="1"> 
                              <p align="center"> 
                                <%set rs_star=server.CreateObject ("ADODB.recordset")
		sql="select today_star.*,user.education,user.vocation from today_star,user where user.user_name=today_star.user_name and id=2"
		
		rs_star.Open sql,conn1,3%>
                                <a href="love/show_user.asp?user_name=<%=rs_star("user_name")%>" target="_blank"><img border="1" style="border-color:#c0c0c0;" height="95" src="love/displaypic.asp?id=<%=rs_star("pic_id")%>" vspace="4" width="90" alt="VIP会员"></a> 
                              </p>
                            </td>
                          </tr>
                          <tr> 
                            <td width="102" bgcolor="#F2F2F2" height="1"> 
                              <p align="center"><font color="#999999"><b><%=Left(rs_star("nickname"),12)%></b></font> 
                            </td>
                          </tr>
                          <tr> 
                            <td width="102" height="6"> <font color="#666666">年 
                              龄：<%=rs_star("age")%><br>
                              学 历：<%=rs_star("education")%><br>
                              在 地：<%=rs_star("work_province")%><br>
                              职 业：</font><%=rs_star("vocation")%></td>
                          </tr>
                        </table>
                      </td>
                      <td align=middle width="118" style="border-style: none; border-width: medium" height="171" valign="top"> 
                        <table cellspacing="1" width="93" border="0" style="border-collapse: collapse" height="6">
                          <tr> 
                            <td width="104" height="1"> 
                              <p align="center"> 
                                <%set rs_star=server.CreateObject ("ADODB.recordset")
		sql="select today_star.*,user.education,user.vocation from today_star,user where user.user_name=today_star.user_name and id=3"
		
		rs_star.Open sql,conn1,3%>
                                <a href="love/show_user.asp?user_name=<%=rs_star("user_name")%>" target="_blank"><img border="1" style="border-color:#c0c0c0;" height="95" src="love/displaypic.asp?id=<%=rs_star("pic_id")%>" vspace="4" width="90" alt="VIP会员"></a> 
                              </p>
                            </td>
                          </tr>
                          <tr> 
                            <td width="102" bgcolor="#F2F2F2" height="1"> 
                              <p align="center"><font color="#999999"><b><%=Left(rs_star("nickname"),12)%></b></font> 
                            </td>
                          </tr>
                          <tr> 
                            <td width="102" height="6"> <font color="#666666">年 
                              龄：<%=rs_star("age")%><br>
                              学 历：<%=rs_star("education")%><br>
                              在 地：<%=rs_star("work_province")%><br>
                              职 业：<%=rs_star("vocation")%></font></td>
                          </tr>
                        </table>
                      </td>
                      <td align=middle width="118" style="border-style: none; border-width: medium" height="171"> 
                        <table cellspacing="1" width="93" border="0" style="border-collapse: collapse" bordercolor="#111111" height="1" align="right">
                          <tr> 
                            <td width="93" height="1"> 
                              <p align="center"> 
                                <%set rs_star=server.CreateObject ("ADODB.recordset")
		sql="select today_star.*,user.education,user.vocation from today_star,user where user.user_name=today_star.user_name and id=4"
		
		rs_star.Open sql,conn1,3%>
                                <a href="love/show_user.asp?user_name=<%=rs_star("user_name")%>" target="_blank"><img border="1" style="border-color:#c0c0c0;" height="95" src="love/displaypic.asp?id=<%=rs_star("pic_id")%>" vspace="4" width="90" alt="普通会员"></a> 
                              </p>
                            </td>
                          </tr>
                          <tr> 
                            <td width="93" bgcolor="#F2F2F2" height="1"> 
                              <p align="center"><font color="#999999"><b><%=Left(rs_star("nickname"),12)%></b></font> 
                            </td>
                          </tr>
                          <tr> 
                            <td width="93" height="6"> <font color="#666666">年 
                              龄：<%=rs_star("age")%><br>
                              学 历：<%=rs_star("education")%><br>
                              在 地：<%=rs_star("work_province")%><br>
                              职 业：<%=rs_star("vocation")%></font></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td background="image/images/index_03.gif" width="187" height="191" valign="top"> 
      <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="34">　</td>
        </tr>
        <tr> 
          <td> 
            <table class="new_man" cellspacing="0" cellpadding="2" width="98%" style="border-collapse: collapse" bordercolor="#111111" bordercolorlight="#FDDAE3" bordercolordark="#FDDAE3" border="0" align="center">
              <tr> 
                <td width="86" style="padding-left:8px;"> <b> <font color="#00CC99">昵称</font></b></td>
                <td width="35"><b><font color="#A163A1"> <font color="#00CC99">年龄</font></font></b></td>
                <td width="46"> 
                  <div align="left"><b><font color="#00CC99"> <span lang="zh-cn">所在</span>地</font></b></div>
                </td>
              </tr>
              <% set rs1=server.CreateObject ("ADODB.recordset")
		sql="select top 10 * from user where sex='女' order by reg_date desc"
		rs1.Open sql,conn1,3
		rows=0
		while not(rs1.eof) and rows<6
	%>
              <tr onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';"> 
                <td style="padding-left:8px;" width="86"><img src="image/girl.gif" width="14" height="10"><a href="love/show_user.asp?user_name=<%=rs1("user_name")%>" target="_blank"><font color="#666666"><%=rs1("nickname")%></font></a></td>
                <td  align=left width="35"><font face="Arial, Helvetica, sans-serif"><%=year(date)-rs1("byear")%></font></td>
                <td width="46"><font color="#666666"><%=rs1("province")%></font></td>
              </tr>
              <%rows=rows+1
     rs1.movenext
     wend
     %>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td> <img src="image/images/spacer.gif" width="1" height="191" alt=""></td>
  </tr>
  <tr> 
    <td> <img src="image/images/index_04.gif" width="176" height="34" alt=""></td>
    <td> <img src="image/images/index_05.gif" width="187" height="34" alt=""></td>
    <td> <img src="image/images/spacer.gif" width="1" height="34" alt=""></td>
  </tr>
  <tr> 
    <td rowspan="2"> <img src="image/images/index_06.gif" width="176" height="169" alt=""></td>
    <td rowspan="2" background="image/images/index_07.gif" width="187" height="169" valign="top"> 
      <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td> 
            <table class="new_man" cellspacing="0" cellpadding="2" width="98%" style="border-collapse: collapse" bordercolor="#111111" bordercolorlight="#FDDAE3" bordercolordark="#FDDAE3" border="0" align="center">
              <tr> 
                <td width="85" style="padding-left:8px;"> <font color="#3399CC"><b> 
                  昵称</b></font></td>
                <td width="31"><b><font color="#3399CC"> 年龄</font></b></td>
                <td width="51"> 
                  <div align="left"><font color="#3399CC"><b> <span lang="zh-cn">所在</span>地</b></font></div>
                </td>
              </tr>
              <% set rs1=server.CreateObject ("ADODB.recordset")
		sql="select top 7 * from user where sex='男' order by reg_date desc"
		rs1.Open sql,conn1,3
		rows=0
		while not(rs1.eof) and rows<6
	%>
              <tr onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';"> 
                <td style="padding-left:8px;" width="85"><img src="image/boy.gif" width="14" height="10"><a href="love/show_user.asp?user_name=<%=rs1("user_name")%>" target="_blank"><font color="#666666"><%=rs1("nickname")%></font></a></td>
                <td  align=left width="31"><font face="Arial, Helvetica, sans-serif"><%=year(date)-rs1("byear")%></font></td>
                <td width="51"><font color="#666666"><%=rs1("province")%></font></td>
              </tr>
              <%rows=rows+1
     rs1.movenext
     wend
     %>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td> <img src="image/images/spacer.gif" width="1" height="56" alt=""></td>
  </tr>
  <tr> 
    <td> <img src="image/images/index_08.gif" width="415" height="113" alt=""></td>
    <td> <img src="image/images/spacer.gif" width="1" height="113" alt=""></td>
  </tr>
  <tr> 
    <td rowspan="2" background="image/images/index_09.gif" width="176" height="196" valign="top"> 
      <table width="96%" border="0" cellspacing="0" cellpadding="0" height="191" align="center">
        <tr>
          <td height="36">　</td>
        </tr>
        <tr>
          <td valign="top"> 
            <table bordercolorlight="#cccccc" bordercolordark="#FFFFFF" cellspacing=2 cellpadding=0 width=92% border=1 align="center" height="152">
              <tbody> 
              <tr> 
                <td onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';" height=21 bgcolor="#F7F7F7"> 
                  <div align="left"><font size="1"> </font><img src="image/dot.gif" width="12" height="12"><a 
                  href="love/user_list.asp?flag=2&sex=男&move=1"> </a><a 
                  href="love/user_list.asp?flag=2&sex=男&move=1">VIP会员列表男</a> </div>
                </td>
              </tr>
              <tr> 
                <td onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';"  height=21 bgcolor="#F7F7F7"> 
                  <p align="left"><img src="image/dot.gif" width="12" height="12"><a href="love/user_list.asp?flag=2&sex=女&move=1"> 
                    VIP会员列表女</a> 
                </td>
              </tr>
              <tr> 
                <td onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';" height=21 bgcolor="#F7F7F7"> 
                  <p align="left"><img src="image/dot.gif" width="12" height="12"><a href="love/user_list.asp?flag=1&sex=男&move=1"> 
                    所 有 男 会员</a> 
                </td>
              </tr>
              <tr> 
                <td  onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';" height=21 bgcolor="#F7F7F7"> 
                  <p align="left"><img src="image/dot.gif" width="12" height="12"><a href="love/user_list.asp?flag=1&sex=女&move=1"> 
                    所 有 女 会员</a> 
                </td>
              </tr>
              <tr> 
                <td onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';" height=21 bgcolor="#F7F7F7"> 
                  <p align="left"><img src="image/dot.gif" width="12" height="12"><a href="love/charisma_list.asp?sex=男&move=1"> 
                    最有魅力男会员</a> 
                </td>
              </tr>
              <tr> 
                <td onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';" height=21 bgcolor="#F7F7F7"> 
                  <p align="left"> <img src="image/dot.gif" width="12" height="12"><a href="love/charisma_list.asp?sex=女&move=1"> 
                    最有魅力女会员</a> 
                </td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td background="image/images/index_10.gif" width="415" height="130" valign="top"> 
      <table width="97%" border="0" cellspacing="0" cellpadding="0" height="124" align="center">
        <tr>
          <td height="9">&nbsp;</td>
        </tr>
        <tr>
          <td>
		  
                        
            <TABLE bordercolorlight="#cccccc" bordercolordark="#FFFFFF" cellSpacing=0 cellPadding=0 width=397 border=1 height="98" align="center">
              <TBODY> 
              <form action="love/simple_search.asp" method="POST" id="form1" name="form1">
                <TR bgcolor="#F6F6F6"> 
                  <TD width=62 
                        height=28>&nbsp;性&nbsp;&nbsp;别:</TD>
                  <TD width=142 height=25>&nbsp;&nbsp; 
                    <SELECT 
                        id=drpSex 
                        style="FONT-SIZE: 12px; WIDTH: 56px; HEIGHT: 12px" 
                        name="sex">
                      <OPTION value="0" selected>都行</OPTION>
                      <OPTION value=男>男</OPTION>
                      <OPTION 
                        value=女>女</OPTION>
                    </SELECT>
                    <font color="#336633"> </font></TD>
                  <TD width=1 height=25></TD>
                  <TD width=51 
                        height=25> 
                    <p align="center">所在地: 
                  </TD>
                  <TD width=141 height=25>&nbsp;&nbsp; 
                    <SELECT name=work_province size=1>
                      <OPTION selected 
                                value="0">请选择</OPTION>
                               <OPTION 
                                value=广州市>广州市</OPTION><OPTION 
                                value=深圳市>深圳市</OPTION><OPTION 
                                value=珠海市>珠海市</OPTION><OPTION
                                value=汕头市>汕头市</OPTION><OPTION 
                                value=韶关市>韶关市</OPTION><OPTION 
                                value=河源市>河源市</OPTION><OPTION 
                                value=梅州市>梅州市</OPTION><OPTION 
                                value=惠州市>惠州市</OPTION><OPTION 
                                value=汕尾市>汕尾市</OPTION><OPTION 
                                value=东莞市>东莞市</OPTION><OPTION 
                                value=中山市>中山市</OPTION><OPTION 
                                value=江门市>江门市</OPTION><OPTION 
                                value=佛山市>佛山市</OPTION><OPTION 
                                value=南海市>南海市</OPTION><OPTION 
                                value=顺德市>顺德市</OPTION><OPTION 
                                value=阳江市>阳江市</OPTION><OPTION 
                                value=湛江市>湛江市</OPTION><OPTION 
                                value=茂名市>茂名市</OPTION><OPTION 
                                value=肇庆市>肇庆市</OPTION><OPTION 
                                value=清远市>清远市</OPTION><OPTION 
                                value=揭阳市>揭阳市</OPTION><OPTION 
                                value=云浮市>云浮市</OPTION><OPTION
                                value=其他省>———</OPTION><OPTION 
                                value=潮阳市>潮阳市</OPTION><OPTION              
                                value=河北省>河北省</OPTION><OPTION 
                                value=山西省>山西省</OPTION><OPTION 
                                value=辽宁省>辽宁省</OPTION><OPTION    
                                value=吉林省>吉林省</OPTION><OPTION 
                                value=黑龙江省>黑龙江省</OPTION><OPTION    
                                value=江苏省>江苏省</OPTION><OPTION    
                                value=浙江省>浙江省</OPTION><OPTION 
                                value=安徽省>安徽省</OPTION><OPTION             
                                value=福建省>福建省</OPTION><OPTION        
                                value=江西省>江西省</OPTION><OPTION             
                                value=山东省>山东省</OPTION><OPTION                 
                                value=河南省>河南省</OPTION><OPTION 
                                value=湖北省>湖北省</OPTION><OPTION               
                                value=湖南省>湖南省</OPTION><OPTION             
                                value=广西省>广西省</OPTION><OPTION              
                                value=海南省>海南省</OPTION><OPTION               
                                value=四川省>四川省</OPTION><OPTION               
                                value=贵州省>贵州省</OPTION><OPTION                  
                                value=云南省>云南省</OPTION><OPTION         
                                value=陕西省>陕西省</OPTION><OPTION
                                value=甘肃省>甘肃省</OPTION><OPTION
                                value=青海省>青海省</OPTION><OPTION
                                value=香港>香港特别行政区</OPTION><OPTION
                                value=澳门>澳门特别行政区</OPTION><OPTION
                                value=台湾>台湾</OPTION> 
                    </SELECT>
                  </TD>
                </TR>
                <TR bgcolor="#F6F6F6"> 
                  <TD colSpan=5 height=1></TD>
                </TR>
                <TR bgcolor="#F6F6F6"> 
                  <TD width=62 
                        height=28>&nbsp;年&nbsp;&nbsp;龄:</TD>
                  <TD width=142>&nbsp; 
                    <SELECT 
                        id=drpMinAge style="WIDTH: 41px" name="age_s">
                      <OPTION value=0>0</OPTION>
                      <OPTION value=5>5</OPTION>
                      <OPTION value=10>10</OPTION>
                      <OPTION 
                          value=15>15</OPTION>
                      <OPTION value=20 
                          selected>20</OPTION>
                      <OPTION value=25>25</OPTION>
                      <OPTION value=30>30</OPTION>
                      <OPTION 
                          value=35>35</OPTION>
                      <OPTION value=40>40</OPTION>
                      <OPTION value=45>45</OPTION>
                      <OPTION 
                          value=50>50</OPTION>
                      <OPTION value=55>55</OPTION>
                      <OPTION value=60>60</OPTION>
                      <OPTION 
                          value=65>65</OPTION>
                      <OPTION 
                        value=70>70</OPTION>
                    </SELECT>
                    到 
                    <SELECT id=drpMaxAge 
                        style="WIDTH: 43px" name="age_e">
                      <OPTION 
                          value=70>70</OPTION>
                      <OPTION value=65>65</OPTION>
                      <OPTION value=60>60</OPTION>
                      <OPTION 
                          value=55>55</OPTION>
                      <OPTION value=50>50</OPTION>
                      <OPTION value=45>45</OPTION>
                      <OPTION 
                          value=40>40</OPTION>
                      <OPTION value=35>35</OPTION>
                      <OPTION value=30 selected>30</OPTION>
                      <OPTION 
                          value=25>25</OPTION>
                      <OPTION value=20>20</OPTION>
                      <OPTION value=15>15</OPTION>
                      <OPTION 
                          value=10>10</OPTION>
                      <OPTION value=5>5</OPTION>
                      <OPTION value=0>0</OPTION>
                    </SELECT>
                  </TD>
                  <TD width=1></TD>
                  <TD width=51> 
                    <p align="center">身&nbsp;&nbsp;高: 
                  </TD>
                  <TD width=141>&nbsp; 
                    <SELECT 
                        id=drpMinHeight style="WIDTH: 40px" name=drpMinHeight>
                      <OPTION value=100>100</OPTION>
                      <OPTION 
                          value=105>105</OPTION>
                      <OPTION value=110>110</OPTION>
                      <OPTION value=120>120</OPTION>
                      <OPTION 
                          value=125>125</OPTION>
                      <OPTION value=130>130</OPTION>
                      <OPTION value=135>135</OPTION>
                      <OPTION 
                          value=140>140</OPTION>
                      <OPTION value=145>145</OPTION>
                      <OPTION value=150 selected>150</OPTION>
                      <OPTION 
                          value=155>155</OPTION>
                      <OPTION value=160>160</OPTION>
                      <OPTION value=165>165</OPTION>
                      <OPTION 
                          value=170>170</OPTION>
                      <OPTION value=175>175</OPTION>
                      <OPTION value=180>180</OPTION>
                      <OPTION 
                          value=185>185</OPTION>
                      <OPTION value=190>190</OPTION>
                      <OPTION value=195>195</OPTION>
                      <OPTION 
                          value=200>200</OPTION>
                    </SELECT>
                    到 
                    <SELECT id=drpMaxHeight 
                        style="WIDTH: 40px" name=drpMaxHeight>
                      <OPTION 
                          value=200>200</OPTION>
                      <OPTION value=195>195</OPTION>
                      <OPTION value=190>190</OPTION>
                      <OPTION 
                          value=185>185</OPTION>
                      <OPTION value=180 
                          selected>180</OPTION>
                      <OPTION value=175>175</OPTION>
                      <OPTION value=170>170</OPTION>
                      <OPTION 
                          value=165>165</OPTION>
                      <OPTION value=160>160</OPTION>
                      <OPTION value=155>155</OPTION>
                      <OPTION 
                          value=150>150</OPTION>
                      <OPTION value=145>145</OPTION>
                      <OPTION value=140>140</OPTION>
                      <OPTION 
                          value=135>135</OPTION>
                      <OPTION value=130>130</OPTION>
                      <OPTION value=125>125</OPTION>
                      <OPTION 
                          value=120>120</OPTION>
                      <OPTION value=115>115</OPTION>
                      <OPTION value=110>110</OPTION>
                      <OPTION 
                          value=105>105</OPTION>
                      <OPTION 
                        value=100>100</OPTION>
                    </SELECT>
                    CM</TD>
                </TR>
                <TR bgcolor="#F6F6F6"> 
                  <TD colSpan=5 height=1></TD>
                </TR>
                <TR bgcolor="#F6F6F6"> 
                  <TD width=62 height=28>&nbsp;交友类型:</TD>
                  <TD width=142>&nbsp; 
                    <SELECT name=relation size=1>
                      <OPTION selected 
                                value="0">请选择</OPTION>
                      <OPTION 
                                value=爱情婚姻>爱情婚姻</OPTION>
                      <OPTION 
                                value=网友笔友>网友笔友</OPTION>
                      <OPTION 
                                value=娱乐玩伴>娱乐玩伴</OPTION>
                      <OPTION value=爱好交流>爱好交流</OPTION>
                      <OPTION  value=电话交友>电话交友</OPTION>
                      <OPTION  value=事业合作>事业合作</OPTION>
                      <OPTION  value=短暂朋友>短暂朋友</OPTION>
                    </SELECT>
                  </TD>
                  <TD width=1></TD>
                  <TD colSpan=2>&nbsp;&nbsp; 
                    <INPUT 
                        id=submit2 type=image 
                        src="images/button_search.gif" border=0 
                        name="submit2">
                    &nbsp;<A 
                        href="love/search.asp"><FONT 
                        color=#ea0505>高级搜索</FONT></A></TD>
                </TR>
                <TR> 
                  <TD colSpan=5 height=1></TD>
                </TR>
              </form>
            </TABLE>
		  </td>
        </tr>
      </table>
    </td>
    <td rowspan="2" background="image/images/index_11.gif" width="187" height="196" valign="top"> 
      <table width="98%" border="0" cellspacing="0" cellpadding="0" height="195">
        <tr>
          <td height="35">　</td>
        </tr>
        <tr> 
          <td valign="top"> 
            <table cellspacing="0" cellpadding="0" width="97%" align="center">
              <%set rs=server.CreateObject ("ADODB.recordset")

sql="select top 7 * from user where sex='女'"
sql=sql&"  order by charisma desc"
rs.Open sql,conn1,3
	rows=1

	while not rs.EOF and rows<=7
	
	charisma=rs("charisma")
if charisma<101 then
	rank="自由天使"
 elseif charisma>100 and charisma<301 then
	rank="梦幻天使"
 elseif charisma>300 and charisma<1001 then
	rank="星梦天使"
 elseif charisma>1000 and charisma<10001 then
	rank="寻梦天使"
 elseif charisma>100 and charisma<50001 then
	rank="追梦天使"
 elseif charisma>100 and charisma<150001 then
	rank="缘梦天使"
 elseif charisma>100 and charisma<500001 then
	rank="浪漫天使"
 elseif charisma>500000  then
	rank="守护天使"
end if


%>
              <tr onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';" height=17> 
                <td align="center" height="23"> 
                  <p align="left">&nbsp;<img src="image/girl.gif" width="14" height="10"> <a href="love/show_user.asp?user_name=<%=rs("user_name")%>" target="_blank"><font color="#666666"><%=rs("nickname")%></font></a>
                </td>
                <td align="center" width="72" height="23"><font color="#666666">&nbsp;<%=rank%></font></td>
              </tr>
              <%rs.MoveNext
  rows=rows+1
  wend
%>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td> <img src="image/images/spacer.gif" width="1" height="130" alt=""></td>
  </tr>
  <tr> 
    <td background="image/images/index_12.gif" width="415" height="66"> 
      <table width="98%" border="0" height="63" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="96">　</td>
          <td width="311"> 
            <table 
     
      cellspacing=0 cellpadding=0 width=308 border=0 align="center" height="61">
              <tbody> 
              <tr> 
                <td align=middle width=315  height=6></td>
              </tr>
              <tr> 
                <td align=middle  height=56 width="315"> <marquee scrollamount=1 scrolldelay=150 direction=up width=306 
            height=50><%=Application("quick_note")%></marquee></td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td> <img src="image/images/spacer.gif" width="1" height="66" alt=""></td>
  </tr>
  <tr> 
    <td rowspan="2" background="image/images/index_13.gif" width="176" height="199" valign="top"> 
      <table width="81%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="39">　</td>
        </tr>
        <tr> 
          <td> 
            <table cellspacing=0 cellpadding=4 width="159" border=0 style="border-collapse: collapse" bordercolor="#111111" height="145">
              <tr> 
                <td align=middle width="12" height="10"> <img src="images/sign_3.gif"> 
                  <%
	sql="select count(*) as man_num from user where sex='男'"
	set rs_tj=conn1.Execute(sql)
	man_num=rs_tj("man_num")
	sql="select count(*) as woman_num from user where sex='女'"
	set rs_tj=conn1.Execute(sql)
	woman_num=rs_tj("woman_num")
	total_num=man_num+woman_num
	sql="select count(*) as vip_man_num from user where weight in(2,3) and sex='男'"
	set rs_tj=conn1.Execute(sql)
	vip_man_num=rs_tj("vip_man_num")
	sql="select count(*) as vip_woman_num from user where  weight in(2,3) and sex='女'"
	set rs_tj=conn1.Execute(sql)
	vip_woman_num=rs_tj("vip_woman_num")
	vip_total_num=vip_man_num+vip_woman_num
	
	
%>
                </td>
                <td width="97" height="10"> 总会员：<font  color=red><%=total_num%></font>人</td>
              </tr>
              <tr> 
                <td align=middle width="12" height="1"> <img src="images/sign_3.gif"></td>
                <td width="97" height="1">男会员：<font  color=red><%=man_num%></font>人</td>
              </tr>
              <tr> 
                <td align=middle width="12" height="1"> <img src="images/sign_3.gif"></td>
                <td width="97" height="1">女会员：<font  color=red><%=woman_num%></font>人</td>
              </tr>
              <tr> 
                <td align=middle width="12" height="1"> <img src="images/sign_3.gif"></td>
                <td width="97" height="1">VIP会员：<font  color=red><%=vip_total_num%></font>人</td>
              </tr>
              <tr> 
                <td align=middle width="12" height="1"> <img src="images/sign_3.gif"></td>
                <td width="97" height="1">VIP男会员：<font  color=red><%=vip_man_num%></font>人</td>
              </tr>
              <tr> 
                <td align=middle width="12" height="1"> <img src="images/sign_3.gif"></td>
                <td width="97" height="1">VIP女会员：<font  color=red><%=vip_woman_num%></font>人</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td background="image/images/index_14.gif" width="415" height="110" valign="top"> 
      <table width="98%" border="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table width="98%" border="0">
        <tr> 
          <td width="85">　</td>
          <td width="312"> 
            <table class=line cellspacing=0 cellpadding=0 width=275 border=0 height="19" align="right">
              <tbody> 
              <tr> 
                <td> 
                  <%set rs=server.CreateObject ("ADODB.recordset")
    
   sql="select * from public_note where object=2 order by time desc"
   rs.Open sql,conn1,3
  if rs.RecordCount<>0 then
	
	public_note=rs("public_note")
	
	
  end if
 %>
                  <%=public_note%></td>
              </tr>
              <tr> 
                <td></td>
              </tr>
              <tr> 
                <td height=2></td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td rowspan="2" background="image/images/index_15.gif" width="187" height="199"> 
      <table width="98%" border="0" cellspacing="0" cellpadding="0" height="195">
        <tr> 
          <td height="35">　</td>
        </tr>
        <tr> 
          <td valign="top"> 
            <table cellspacing="0" cellpadding="0" width="97%" align="center">
              <%set rs=server.CreateObject ("ADODB.recordset")

sql="select top 7 * from user where sex='男'"
sql=sql&"  order by charisma desc"
rs.Open sql,conn1,3
	rows=1

	while not rs.EOF and rows<=8
	
	charisma=rs("charisma")
if charisma<101 then
	rank="自由天使"
 elseif charisma>100 and charisma<301 then
	rank="梦幻天使"
 elseif charisma>300 and charisma<1001 then
	rank="星梦天使"
 elseif charisma>1000 and charisma<10001 then
	rank="寻梦天使"
 elseif charisma>100 and charisma<50001 then
	rank="追梦天使"
 elseif charisma>100 and charisma<150001 then
	rank="缘梦天使"
 elseif charisma>100 and charisma<500001 then
	rank="浪漫天使"
 elseif charisma>500000  then
	rank="守护天使"
end if


%>
              <tr onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';" height=17> 
                <td align="center" height="23"> 
                  <p align="left">&nbsp; <img src="image/boy.gif" width="14" height="10"><a href="love/show_user.asp?user_name=<%=rs("user_name")%>" target="_blank"><font color="#666666"><%=rs("nickname")%></font> </a>
                </td>
                <td align="center" width="72" height="23"><font color="#666666">&nbsp;<%=rank%></font></td>
              </tr>
              <%rs.MoveNext
  rows=rows+1
  wend
%>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td> <img src="image/images/spacer.gif" width="1" height="110" alt=""></td>
  </tr>
  <tr> 
    <td rowspan="2" background="image/images/index_16.gif" width="415" height="202" valign="top"> 
      <table width="98%" border="0" align="center" height="191">
        <tr> 
          <td height="32">　</td>
        </tr>
        <tr> 
          <td valign="top"> 
            <table   cellspacing=1  cellpadding=1  width="396"  border=0  style="padding-right:0px; border-collapse:collapse" height="1" >
              <tbody > 
              <%
		sql="select top 5 * from party  where  weight=0 and is_history=0 "
	   
	sql=sql&" order by date desc "
	rows=1
	set rs_zone=server.CreateObject ("ADODB.recordset")
	'sql="select * from party where is_history=0 and province='"&Request("province")&"'"
	 rs_zone.Open sql,conn1,3,2
	%>
              <tr  height=23 bgcolor="#F7F7F7"  > 
                <td align=middle width=108 height="17" bgcolor="#F7F7F7"><b><font color="#333333"><span 
            class=content>聚会主题</span></font></b></td>
                <td align=middle width=68 height="17"><b><font color="#333333"><span 
            class=content>聚会时间</span></font></b></td>
                <td align=center width=112 height="17"><b><font color="#333333"><span 
            class=content>聚会地点</span></font></b></td>
                <!--<TD align=center width=70 ><SPAN 
            class=content>发起时间</SPAN></TD>-->
                <td align=center width=58 height="17"><b><font color="#333333"><span 
            class=content>详细信息</span></font></b></td>
              </tr>
              <%
			while not rs_zone.EOF
				set rs_join=server.CreateObject ("ADODB.recordset")
				sql="select join_id from join_party where id="&rs_zone("id")
				rs_join.Open sql,conn1,3,2
				join_counter=rs_join.RecordCount
				
				set rs_dis=server.CreateObject ("ADODB.recordset")
				sql="select discuss_id from party_discuss where id="&rs_zone("id")
				rs_dis.Open sql,conn1,3,2
				dis_counter=rs_dis.RecordCount
			 if rows mod 2  then                                                                                                                                     
			%>
              <tr height=18> 
                <td width="108" height="1" align="center" bgcolor="#FFFFFF" background="images/background.gif"><span 
            class=content> <%=Left(rs_zone("party_name"),18)%></span></td>
                <td width="68" height="1" bgcolor="#FFFFFF" background="images/background.gif"><span 
            class=content><%=Left(rs_zone("party_time"),16)%></span></td>
                <td width="112" height="1" bgcolor="#FFFFFF" background="images/background.gif"><span 
            class=content><%=Left(rs_zone("address"),18)%></span></td>
                <td align=center width="58" height="1" bgcolor="#FFFFFF" background="images/background.gif"><span class=content><a href="love/party/party_2.asp?id=<%=rs_zone("id")%>" target="_blank"> 
                  详细信息</a></span> </td>
              </tr>
              <%else%>
              <tr height=18> 
                <td width="108" height="1" align="center" bgcolor="#F7F7F7" background="images/background.gif"><span 
            class=content><%=Left(rs_zone("party_name"),18)%></span></td>
                <td width="68" height="1" bgcolor="#FFFFFF" background="images/background.gif"><span 
            class=content><%=Left(rs_zone("party_time"),16)%></span></td>
                <td width="112" height="1" bgcolor="#FFFFFF" background="images/background.gif"><span 
            class=content><%=Left(rs_zone("address"),18)%></span></td>
                <td align=center width="58" height="1" bgcolor="#FFFFFF" background="images/background.gif"><span class=content><a href="love/party/party_2.asp?id=<%=rs_zone("id")%>" target="_blank"> 
                  详细信息</a></span> </td>
              </tr>
              <%end if%>
              <%
			rows=rows+1
			rs_zone.MoveNext
			wend
			%>
              <%while rows<=5
		 if rows mod 2  then  %>
              <tr height=18> 
                <td width="108" height="1" align="center" bgcolor="#FFFFFF"><font color="#F17494"><span 
            class=content>&nbsp;</span></font></td>
                <td width="68" height="1" bgcolor="#FFFFFF"><span 
            class=content>&nbsp;</span></td>
                <td width="112" height="1" bgcolor="#FFFFFF"><span 
            class=content>&nbsp;</span></td>
                <td width="58" height="1" bgcolor="#FFFFFF"><span 
            class=content>&nbsp;</span> </td>
              </tr>
              <%else%>
              <tr  height=18> 
                <td width="108" height="1" align="center" bgcolor="#FFFFFF"><font color="#F17494"><span 
            class=content>&nbsp;</span></font></td>
                <td width="68" height="1" bgcolor="#FFFFFF"><span 
            class=content>&nbsp;</span></td>
                <td width="112" height="1" bgcolor="#FFFFFF"><span 
            class=content>&nbsp;</span></td>
                <td width="58" height="1" bgcolor="#FFFFFF"><span 
            class=content>&nbsp;</span> </td>
              </tr>
              <%end if%>
              <%rows=rows+1
		wend%>
              </tbody> 
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td> <img src="image/images/spacer.gif" width="1" height="89" alt=""></td>
  </tr>
  <tr> 
    <td background="image/images/index_17.gif" width="176" height="113" valign="top">
    <a target="_blank" href="http://www.hyfhit.com/txl"><img src="image/images/index_17.gif" width="176" height="113" border="0"></a> 
    </td>
    <td background="image/images/index_18.gif" width="187" height="113" valign="top"> 
      <table width="80%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="3"></td>
        </tr>
      </table>
      <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td> 
            <div align="center"> 
              <a target="_blank" href="http://www.hyfhit.com"><img src="image/love_image/LOGO.gif" width="88" height="31" border="0"></a><br>
              <br>
              <a target="_blank" href="http://www.hyfhit.com"><img src="image/love_image/LOGO.gif" width="88" height="31" border="0"></a> 
            </div>
          </td>
        </tr>
      </table>
      <script src="count/mystat.asp?style=p1"></script>
    </td>
    <td> <img src="image/images/spacer.gif" width="1" height="113" alt=""></td>
  </tr>
</table>
<!--#include file="foot.asp" --><TR>
 
    </BODY></HTML>