<!--#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;
}
.STYLE31 {color: #666666; font-size: 12px;}
-->
</style>
</head>
<body>
 <script language="javascript" src="js/area1.js"></script>
 <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="sousuo2.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">
       <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 ui_sex,ui_age1,ui_age2,ui_sheng,ui_shi,ui_photo,ui_mudi,ui_name
ui_sex1=request("sex")
ui_age1=request("age1")
ui_age2=request("age2")
ui_sheng=request("sheng")
ui_shi=request("shi")
ui_photo=request("photo")
ui_mudi=request("mudi")
ui_name=trim(replace(request("sname"),"'",""""))

if ui_sex1=1 then 
 ui_sex="男"
elseif ui_sex1=2 then
 ui_sex="女"
end if 

if ui_photo<>1 then ui_photo=0

dim memclass

memclass=request.cookies(Forum_sdjy)("Userclass")

set rs=server.CreateObject("adodb.recordset")
sql="select userid,username,photo,marry,sex,birthday,dubai,qq,grade,vocation,height,friendrelation,revenue,logintime,age,prov,city from user_info where addmodel<>2 and sex='"& ui_sex &"' and (age between "& ui_age1 &" and "&ui_age2&")"
if ui_sheng<>0 then
 sql=sql+" and prov="& ui_sheng &""
 if ui_shi<>0 then
  sql=sql+" and city="& ui_shi &""
 end if
end if
if ui_name<>"" then
  sql=sql+" and username like '%%"&ui_name&"%%'"
end if

if ui_photo=1 then
  sql=sql+" and (photo<>'' and photo is not null) "
end if
sql=sql+" order by pm desc"

'response.Write(sql)
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 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			   
%>
           <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="45%">&nbsp;</TD>
                         <TD align=right width="27%"><%
						 
						 set fuw1=conn.execute("select * from fw where uid="&userid&" and fwid=1")
						if not fuw1.eof then
						 
						 if chkonline(rs("userid"))=false then
			     response.Write "最后登陆："&rs("logintime") 			  
			  else
			  %>
                             <STRONG><FONT 
                  color=red>现正在线上！</FONT> </STRONG>
                             <% 
							 end if
							 
							  end if%>
                         </TD>
                       </TR>
                     </TBODY>
                 </TABLE></td>
               </tr>
               <tr>
                 <td bgcolor="#9DCCF6"><TABLE cellSpacing=0 cellPadding=4 width="100%" bgColor=#EDF8FE 
            border=0>
                     <TBODY>
                       <TR>
                         <TD width="16%" align=center vAlign=center 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=#4193DD><%=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"><%'on error resume next
		if memclass="" then%>
		<img src="images/aniu13.gif" width="77" height="20" border="0" alt="VIP会员才能使用此功能！">	
		<%else				 
				if memclass="VIP" then
				  response.Write "<script language='javascript'>alert('对不起！你无权访问该页，请升级到VIP会员。');window.location='userupdate.asp';</script>"
				else								 
												 if rs("qq")<>"" and not isnull(rs("qq")) and isnumeric(rs("qq")) then%>
												  <a target=blank href=tencent://message/?uin=<%=rs("qq")%>&Site=shiping.hosao.com&Menu=yes><img src="images/aniu13.gif" width="77" height="20" border="0" alt="点击这里给我发消息"></a>
<%else%>
<img src="images/aniu13.gif" width="77" height="20" border="0" alt="对方没有留下QQ号码！">		  
<%end if
end if
end if
%><BR>
                           </DIV><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="& ui_sex1 &"&age1="& ui_age1 &"&age2="& ui_age2 &"&sheng="& ui_sheng &"&shi="& ui_shi &"&photo="& ui_photo &"&mudi="&ui_mudi&"&sname="&ui_name&""
response.Write "<TABLE align='center' class='STYLE4'>"
response.Write "<form name='form1' method='post' action='sim_search.asp'>"
response.Write "<input type='hidden' name='sex' value='"& ui_sex1 &"'>"
response.Write "<input type='hidden' name='age1' value='"& ui_age1 &"'>"
response.Write "<input type='hidden' name='age2' value='"& ui_age2 &"'>"
response.Write "<input type='hidden' name='sheng' value='"& ui_sheng &"'>"
response.Write "<input type='hidden' name='shi' value='"& ui_shi &"'>"
response.Write "<input type='hidden' name='photo' value='"& ui_photo &"'>"
response.Write "<input type='hidden' name='mudi' value='"& ui_mudi &"'>"
response.Write "<input type='hidden' name='sname' value='"& ui_name &"'>"
response.Write "<TBODY><TR><TD>"
if page>1 then
    response.Write "<a href='sim_search.asp?page=1"& strurl &"' class='b2'>首页</a>&nbsp;"
	response.Write "<a href='sim_search.asp?page="& page-1 & strurl &"' class='b2'>上一页</a>&nbsp;"
else
    response.Write "首页&nbsp;上一页&nbsp;"
end if			 
if page<pcount then
    response.Write "<a href='sim_search.asp?page="& page+1 & strurl &"' class='b2'>下一页</a>&nbsp;"
	response.Write "<a href='sim_search.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 "<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>"
			%>
                 </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>
