<!--#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">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
-->
</style>
</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"><!--#include file="sousuo.asp"-->
    </td>
    <td width="11" valign="top">&nbsp;</td>
    <td width="739" valign="top"><table width="750" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
      <script language="javascript" src="js/area1.js"></script>
      <tr>
        <td height="40" align="center" class="STYLE8"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="8"><img src="image/5.jpg" width="16" height="68"></td>
              <td width="718" background="image/6.jpg"><table width="100%" height="68" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="92%" height="28" align="left" valign="top"><img src="image/tc.jpg" width="390" height="28"></td>
                    <td width="8%" valign="middle" class="STYLE3"><a href="advance_search.asp" class="white">高级搜索</a></td>
                  </tr>
                  <script language="javascript" src="js/area1.js"></script>
                  <tr>
                    <td height="40" colspan="2" align="center" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="STYLE3">
                        <form name="form2" method="post" action="sim_search.asp">
                          <tr>
                            <td height="2"></td>
                          </tr>
                          <tr>
                            <td width="92%" align="center"><span class="white1">我要找
                                  <SELECT class=STYLE1 id=sex name=sex>
                                    <OPTION value=1>男性</OPTION>
                                    <OPTION value=2 selected>女性</OPTION>
                                  </SELECT>
        &nbsp;年龄
                                  <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>
        &nbsp;所在地
                                  <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="8%"><input type="image" name="imageField2" src="image/so.gif"></td>
                          </tr>
                        </form>
                    </table></td>
                  </tr>
              </table></td>
              <td width="7"><img src="image/7.jpg" width="16" height="68"></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="500" align="center" valign="top"><%
dim sex,age1,age2,sheng

sex1=request("sex")
age1=request("age1")
age2=request("age2")
sheng=request("sheng")
mudi=request("mudi")

if sex1=1 then 
 sex="男"
elseif sex1=2 then
 sex="女"
end if 

set rs=server.CreateObject("adodb.recordset")
sql="select userid,username,photo,marry,sex,birthday,dubai,grade,vocation,height,friendrelation,revenue,logintime,age,prov,city from user_info where addmodel<>2 and sex='"& sex &"' and (age between "& age1 &" and "&age2&")"

if sheng<>0 then
 sql=sql+" and prov="& sheng &""
end if
if mudi<>"0" then
  sql=sql+" and friendrelation='"& mudi &"'"
end if
sql=sql+" order by userid desc"
rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<p class='style4'><br>没有找到满足您搜索条件的会员信息！<br><br></p>"
else
               rs.pagesize=6
			   msg_per_page=rs.pagesize
			   page=request("page")
			   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
%>
           <table width="708" border="0" cellspacing="0" cellpadding="00">
             <tr>
               <td height="21"><div align="right">在线人数 <span class="pgd"><font color="#FF0000"><%=GetOnlineMember%></font></span> &nbsp;&nbsp;会员总数 <span class="pgd"><font color="#FF0000"><%=GetTotalMember%></font></span></div></td>
             </tr>
           </table>             
           <%do while not rs.eof and rowcount>0%>
            <table width="96%" border="1" cellpadding="0" cellspacing="0" bordercolor="#9DCCF6" bordercolordark="#FFFFFF">
              <tr>
                <td><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" style="BORDER-BOTTOM: #9DCCF6 1px solid">
                    <TBODY>
                      <TR>
                        <TD align=center width="15%"><table width="69" height="25" border="0" cellpadding="0" cellspacing="0" background="ima/0001.gif">
                            <tr>
                              <td align="center" class="style30"><%
					select case rs("grade")
					 case 1
					   response.Write "注册会员"
					 case 2
					   response.Write "普通会员"
					 case 3
					   response.Write "VIP会员"
					end select
					%></td>
                            </tr>
                        </table></TD>
                        <TD width="13%" height="35"><STRONG><FONT color=#4193DD><%=rs("username")%></FONT></STRONG></TD>
                        <TD style="WORD-BREAK: break-all" width="47%"></TD>
                        <TD align=right width="25%"><% if chkonline(rs("userid"))=false then
			     response.Write "最后登陆："&rs("logintime") 				    			  
			  else
			  %>
                            <STRONG><FONT 
                  color=red>现正在线上！</FONT> </STRONG>
                            <%end if%>
                        </TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr>
              <tr>
                <td bgcolor="#fff1f9"><TABLE cellSpacing=0 cellPadding=4 width="100%" bgColor=#EDF8FE 
            border=0>
                    <TBODY>
                      <TR>
                        <TD vAlign=center align=center width="16%" bgColor=#FFFFFF><DIV 
                  style="BORDER-RIGHT: #9DCCF6 1px solid; BORDER-TOP: #9DCCF6 1px solid; BORDER-LEFT: #9DCCF6 1px solid; PADDING-TOP: 2px; BORDER-BOTTOM: #9DCCF6 1px solid">
                            <%
select case rs("sex")
   case "男"
     imgphoto="man.gif"
   case "女"
     imgphoto="woman.gif"
end select
%>
                            <% if rs("photo")="" or isnull(rs("photo")) then%>
                            <a href="userinfo.asp?user_id=<%=rs("userid")%>" target="_blank"><img src="ima/<%=imgphoto%>" width="94" border="0"></a>
                            <%else%>
                            <a href="userinfo.asp?user_id=<%=rs("userid")%>" target="_blank"><img src="uppic/photo/<%=rs("photo")%>" border="0" onload="javascript:this.width=95"></a>
                            <%end if%>
                        </DIV></TD>
                        <TD width="65%"><TABLE width="98%" border=0 cellPadding=0 cellSpacing=0 class="style30">
                            <TBODY>
                              <TR>
                                <TD width=87 height="28"><IMG height=8 
                        src="ima/icon_4.gif" 
                        width=7> <%=rs("age")%>岁 <FONT color=#cc3399><%=rs("sex")%></FONT></TD>
                                <TD width=158 height="28"><IMG height=8 
                        src="ima/icon_4.gif" 
                        width=7> 住在： <FONT color=#4193DD><%=GetProv(rs("prov"))%>&nbsp; <%=GetCity(rs("city"))%> </font></TD>
                                <TD width=203 height="28" align=left><IMG height=8 
                        src="ima/icon_4.gif" 
                        width=7>出生日期：<%=rs("birthday")%> </TD>
                              </TR>
                            </TBODY>
                          </TABLE>
                            <TABLE width="98%" border=0 cellPadding=2 cellSpacing=0 class="style30">
                              <TBODY>
                                <TR>
                                  <TD height="28" colSpan=2 style="WORD-BREAK: break-all"><IMG 
                        height=8 
                        src="ima/icon_4.gif" 
                        width=7> 个人独白：<%=rs("dubai")%></TD>
                                </TR>
                                <TR>
                                  <TD width="54%" height="28"><IMG height=8 
                        src="ima/icon_4.gif" 
                        width=7> 婚姻：<%=Showhyzk(rs("marry"))%></TD>
                                  <TD width="46%" height="28"><img height=8 
                        src="ima/icon_4.gif" 
                        width=7> 身高：<%=rs("height")%>厘米</TD>
                                </TR>
                                <TR>
                                  <TD height="28"><IMG height=8 
                        src="ima/icon_4.gif" 
                        width=7> 月收入：<%=ShowYx(rs("revenue"))%></TD>
                                  <TD height="28"><IMG height=8 
                        src="ima/icon_4.gif" 
                        width=7> 职业：<%=rs("vocation")%></TD>
                                </TR>
                              </TBODY>
                          </TABLE></TD>
                        <TD width="19%" height=84><DIV class="STYLE88" style="HEIGHT: 22px"><IMG height=13 
                  src="ima/emaile.gif" 
                  width=16> <a href="send_mail.asp?person=<%=rs("username")%>" target="_blank"><FONT color=#ff0000>给我留言！</FONT></a><BR>
                           </DIV>
                             <DIV class="STYLE88" style="HEIGHT: 25px"><IMG height=14 
                  src="ima/retail.gif" 
                  width=18> <a href="addfriend.asp?action=save&fid=<%=rs("userid")%>" target="_blank" class="a1">加为好友</a></DIV></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr>
            </table>
            <table width="96%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="10">&nbsp;</td>
              </tr>
            </table>
            <%
rs.movenext
rowcount=rowcount-1
loop
end if
%>
            <%if pcount>1 then%>
            <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><div align="right">
                    <%
strurl="&sex="& sex1 &"&age1="& age1 &"&age2="& age2 &"&sheng="& sheng &"&mudi="&mudi&""
response.Write "<TABLE align='center' class='STYLE4'>"
response.Write "<TBODY><TR><TD>"
if page>1 then
    response.Write "<a href='mdsearch.asp?page=1"& strurl &"' class='b2'>首页</a>&nbsp;"
	response.Write "<a href='mdsearch.asp?page="& page-1 & strurl &"' class='b2'>上一页</a>&nbsp;"
else
    response.Write "首页&nbsp;上一页&nbsp;"
end if			 
if page<pcount then
    response.Write "<a href='mdsearch.asp?page="& page+1 & strurl &"' class='b2'>下一页</a>&nbsp;"
	response.Write "<a href='mdsearch.asp?page="& pcount & strurl &"' 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 "</TD></TR></TBODY></TABLE>"
			%>
                </div></td>
              </tr>
            </table>
            <%end if%>
        </td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
