
<%@ Language=VBScript %>
<%if Session("weight")=0 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<html>
<head>
<!--#include file="const.asp" -->
<title><%=rs("title")%>---<%=rs("lovetitle")%></title>
<link rel="stylesheet" href="../images/css.css" type="text/css">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<SCRIPT LANGUAGE=javascript>
//<!--
	function sss(URL)
	{
		newwin=window.open('','_blank','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0');
		if(document.all){
		newwin.moveTo(200,40 )
		newwin.resizeTo(400,400 );
		}
		newwin.location=URL
		newwin.focus();
	}

	
//-->
</SCRIPT><object runat=server id=conn1 progid="adodb.connection"></object><%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<table align="center" cellpadding="0" cellspacing="0" width="770">
    <tr>
        <td width="769">
<!--#include file="top.asp" -->        </td>
    </tr>
    <tr>
        <td width="769"><TABLE cellSpacing=0 cellPadding=0 width="770" align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width="189">
      <TABLE cellSpacing=0 cellPadding=0 width=185 border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE>
<!--#include file="left.asp"--></TD>
    <TD width="1">&nbsp;</TD>
    <TD vAlign=top width="777">
                                    <div align="right">
                                    <table class="border_yellow1" cellpadding="0" cellspacing="0" width="568">
                                        <tr>
                                            <td width="568" height="21" bgcolor="#FFB252"><font color="white"><b>&nbsp;<img border="0" src="images/a0.gif" WIDTH="13" HEIGHT="13" align="absmiddle">&nbsp;在线搜索</b></font></td>
                                        </tr>
                                        <tr valign="top">
                                            <td width="568" height="150">		
     <table WIDTH="568" BORDER="0" CELLSPACING="0" CELLPADDING="0">
	<tr>
		<td align="center">
       <SCRIPT language=javascript>
function is_number(str)
{
	exp=/[^0-9]/g;
	if(str.search(exp) != -1)
	{
		return false;
	}
	return true;
}



function check_form(myform)
{	
	if(myform.nickname.value=="")
	{
		alert("昵称不能为空!");
		myform.nickname.focus();
		return false;
	}
	if(! is_number(myform.age_s.value))
	{
		alert("年龄限制只能输入数字!");
		myform.age_s.focus();
		return false;
	}

	if(! is_number(myform.age_e.value))
	{
		alert("年龄限制只能输入数字!");
		myform.age_e.focus();
		return false;
	}

	

	
	return true;

}

</SCRIPT>
<TABLE class=color_1 border=0  
                        cellSpacing=1 width="568">
                          <TBODY>
                     
   <FORM action="search_online1.asp?flag=1" method=POST id=form4 name=form4 onsubmit="return check_form(this)">
                          <TR bgcolor="#FFF3C7">
                            <TD width="12%">昵 称： </TD>
                            <TD   align=left><input type=text name=nickname size=25 maxlength=20 value="">
                          	 <INPUT type="submit" value=" 搜  索 " id=submit2 name=submit2>
                         
                          </TD>
                            </TR>
  
</TBODY></table>
<TABLE class=color_1 border=0 cellPadding=2 
                        cellSpacing=1 width="568">
                          <TBODY>
                                                                                             
                          <TR bgcolor="#FFF3C7">
                            <TD width="12%">性 别： </TD>
                            <TD>
                            <SELECT name=sex size=1> <OPTION selected 
                                value="0">请选择</OPTION>
                              <OPTION 
                                value="男">男</OPTION>
                               <OPTION  
                                value="女">女</OPTION> </SELECT> 
                            </TD></TD></TR>
                            
                   
                    <TR bgcolor="#FFF8E1">
                       <TD width="12%">年 龄： </TD>
                      
                      <TD><INPUT type="text" id=text1 name=age_s size=4>&nbsp;至&nbsp;<INPUT type="text" id=text2 name=age_e size=4>&nbsp;岁
                    </TD></TR> 
                          <TR bgcolor="#FFF3C7">
                            <TD>婚 否： </TD>
                            <TD><SELECT name=martial 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></SELECT> </TD></TR>
                       <TR bgcolor="#FFF8E1">
                            <TD>学 历： </TD>
                            <TD><SELECT name=edu 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=7>其它</OPTION></SELECT> </TD></TR>                   
                         
                          <TR bgcolor="#FFF3C7">
                            <TD vAlign=center>所在省市： </TD>
                            <TD><SELECT name=place 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></SELECT> <INPUT name=city 
                              size=10> 市/县/区 </TD></TR>
                        
              
                          <TR bgcolor="#FFF8E1">
                            <TD>收入水平： </TD>
                            <TD><SELECT name=income size=1> <OPTION selected 
                                value="0">请选择</OPTION> <OPTION 
                                value=1000元以下/月>1000元以下/月</OPTION><OPTION 
                                value=1000-2000元/月>1000-2000元/月</OPTION><OPTION 
                                value=2001-4000元/月>2001-4000元/月</OPTION><OPTION 
                                value=4001-8000元/月>4001-8000元/月</OPTION><OPTION 
                                value=8001-20000元/月>8001-20000元/月</OPTION><OPTION 
                                value=20000元以上/月>20000元以上/月</OPTION></SELECT> </TD></TR>
                          
								  <TR bgcolor="#FFF3C7">
                                <TD align=center  colSpan=2><INPUT type="submit" value=" 搜  索 " id=submit2 name=submit2>
                          </TD></TR>
                  </tbody> </table>
                            <p><% if  session("online_sql")="" or Request("flag1")=1 then
		
		sql="select online.*,user.* from online,user where online.user_name=user.user_name order by time desc"
	else
		sql=session("online_sql")
	end if
set rs=server.CreateObject ("ADODB.recordset")

rs.Open sql,conn1,3
 rs.PageSize=15
if session("currentpage")="" then
	session("currentpage")=1
end if

if Request("move")=1 then
	session("currentpage")=1
end if
if Request("move")=2 then
	session("currentpage")=session("currentpage")-1
end if
if Request("move")=3 then
	session("currentpage")=session("currentpage")+1
end if
if Request("move")=4 then
	session("currentpage")=rs.PageCount
end if
if session("currentpage")<1 then
session("currentpage")=1
end if
if session("currentpage")>rs.PageCount then
session("currentpage")=rs.PageCount
end if

			%>
						
<table width="568" cellpadding=3 cellspacing=1 class=color_1>
<tr bgcolor="#FFF8E1"><td colspan=6  align=center>
 共找到 <%=rs.RecordCount%> 个在线用户，&nbsp;&nbsp;这是第<%=session("currentpage")%>页&nbsp;&nbsp;&nbsp;共<%=rs.PageCount%>页
 </td>
 </tr>	 
<tr bgcolor="#FFE28C">
	<td  align=center class=sp><b>用户名</b></td><td  align=center class=sp><b>昵称</b></td><td  align=center class=sp><b>性别</b></td><td  align=center class=sp><b>年龄</b></td><td  align=center class=sp><b>来自</b></td><td  align=center class=sp><b>照片</b></td>
</tr>
<%	if rs.RecordCount<>0 then
rows=0
rs.AbsolutePage=session("currentpage")
	while not rs.EOF and rows<rs.PageSize 
	if rs("photo")>0 then
		photo="有"
	else
		photo="无"
	end if
%>


<%if rows mod 2 then 
%>
<%my_year=trim(rs("byear"))
age=clng(year(date))-clng(my_year)%>
<tr bgcolor="#FFF8E1">
	<td  align=center class=sp><a href="show_user.asp?user_name=<%=rs("user_name")%>" target=_blank><%=rs("user_name")%></a></td><td  align=center class=sp><%=rs("nickname")%></td><td  align=center class=sp><%=rs("sex")%></td><td  align=center class=sp><%=age%></td><td  align=center class=sp><%=rs("province")%></td><td  align=center class=sp><%=photo%></td>
</tr>
<%else%>
<%my_year=trim(rs("byear"))
age=clng(year(date))-clng(my_year)%>
<tr bgcolor="#FFF3C7">
	<td  align=center class=sp><a href="show_user.asp?user_name=<%=rs("user_name")%>" target=_blank><%=rs("user_name")%></a></td><td  align=center class=sp><%=rs("nickname")%></td><td  align=center class=sp><%=rs("sex")%></td><td  align=center class=sp><%=age%></td><td  align=center class=sp><%=rs("province")%></td><td  align=center class=sp><%=photo%></td>
</tr>
<%end if%>	
<%rs.MoveNext
  rows=rows+1
  wend
%>	 
 <tr bgcolor="#FFF8E1"><td colspan=6  align=center>
 <% 'if session("currentpage")>1then %>
<a href="search_online.asp?move=1">首页</a>　
<a href="search_online.asp?move=2">上一页</a>
<% 'end if%>
<% 'if session("currentpage")<rs.PageCount  then %>
<a href="search_online.asp?move=3">下一页</a>　
<a href="search_online.asp?move=4">末页</a>
 <% 'end if %>
<%end if%>  

</td>
 </tr>
 </TABLE>      

  </TD>                                            
</TR></TBODY></TABLE>            
</td>
                                        </tr>
                                        <tr>
                                            <td width="568" height="2" bgcolor="#FF9E8C">
                                                <p></p>
                                            </td>
                                        </tr>
                                        <tr>
                                            <td width="568" height="14" bgcolor="#FF9E8C"><a href="join_vip.asp"><IMG height=42 src="images/pic_shop.gif" 
          width=568 border="0" alt="升级成为VIP会员"></a></td>
                                        </tr>
                                    </table>
                                    </div>
</TD></TR>
</TBODY></TABLE></td>
    </tr>
    <tr>
        <td width="769"><p align="center"><!--#include file="../copyright.asp" --></td>
    </tr>
</table>
<p>&nbsp;</p>
</BODY>
</HTML>


