<%@ Language=VBScript %>
<html>
<head>
<!--#include file="const.asp" -->
<!--#include file="top.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
%><%
sql1=session("sql")
set rs=server.CreateObject ("ADODB.recordset")
'Response.Write sql1
'Response.End 
 rs.Open sql1,conn1,3,2
 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 align="center" cellpadding="0" cellspacing="0" width="770">
    <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 size="4" color="#FF9933"><b>&nbsp;<img border="0" src="images/a0.gif" WIDTH="13" HEIGHT="13" align="absmiddle">&nbsp;</b></font><font color="white"><b>查询结果</b></font></td>
                                        </tr>
                                        <tr valign="top">
                                            <td width="568" height="0">		
<table width="568" cellpadding=3 cellspacing=1 class=color_1>
<tr bgcolor="#FFF8E1"><td colspan=6  align=center>
 共找到 <%=rs.RecordCount%> 个会员，&nbsp;&nbsp;这是第<%=session("currentpage")%>页/共<%=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=1
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="#FFF3C7"><td colspan=6  align=center>
 <%'if session("currentpage")>1then %>
<a href="show_search.asp?move=1">首页</a>　
<a href="show_search.asp?move=2">上一页</a>
<%'end if%>
<%'if session("currentpage")<rs.PageCount  then %>
<a href="show_search.asp?move=3">下一页</a>　
<a href="show_search.asp?move=4">末页</a>
 <%'end if %>

</td>
 </tr>
 <%else%>
 <tr bgcolor="#FFF3C7">
	<td  align=center class=sp></td><td  align=center class=sp></td><td  align=center class=sp></td><td  align=center class=sp></td><td  align=center class=sp></td><td  align=center class=sp></td>
</tr>
 <%end if
conn1.Close
%>
</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>
