<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
%><%if Session("Current_user")<>"__anonymous" then  %><%end if%>
<table align="center" cellpadding="0" cellspacing="0" width="770">
    <tr>
        <td width="769">
            <p>&nbsp;</p>
        </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 size="4" color="#FF9933"><b>&nbsp;<img border="0" src="images/a0.gif" WIDTH="13" HEIGHT="13" align="absmiddle"> 
                                        </b></font><font color="white"><b>在线会员列表 
                                        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></font><% 
set rs=server.CreateObject ("ADODB.recordset")
sql="select online.*,user.* from online,user where online.user_name=user.user_name order by time desc"
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

 
     
     		
			%><b><font color="white">共有在线会员<%=rs.RecordCount%>人</font></b></td>
                                        </tr>
                                        <tr>
                                            <td width="568" height="2">
<table width="568" cellpadding=3 cellspacing=1 class=color_1>
<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>
                    <td></td>
</tr>
<%	rows=0
if rs.RecordCount<>0 then
rs.AbsolutePage=session("currentpage")
end if
	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>
                    <td></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>
                    <td></td>
</tr>
<%end if%>	
<%rs.MoveNext
  rows=rows+1
  wend
%>	 
 <tr bgcolor="#FFF8E1"><td colspan=7 align=center>
 <% 'if session("currentpage")>1then %>
<a href="onlinelist.asp?move=1">首页</a>　
<a href="onlinelist.asp?move=2">上一页</a>
<% 'end if%>
<% 'if session("currentpage")<rs.PageCount  then %>
<a href="onlinelist.asp?move=3">下一页</a>　
<a href="onlinelist.asp?move=4">末页</a>
 <% 'end if %>

</td>
 </tr>
 <tr bgcolor="#FFF3C7"><td colspan=7  align=center>
 第<%=session("currentpage")%>页/共<%=rs.PageCount%>页
 </td>
 </tr>	 
	 
	 </TABLE>      
             
</td>
                                        </tr>
                                        <tr>
                                            <td width="568" height="2" bgcolor="#FF9E8C">
                                                <p></p>
                                            </td>
                                        </tr>
                                        <tr>
                                            <td width="568" height="14" bgcolor="#FF9E8C"><IMG height=42 src="images/pic_shop.gif" 
          width=568></td>
                                        </tr>
                                    </table>
                                    <table class="border_yellow1" cellpadding="0" cellspacing="0" width="568">
                                        <tr>
                                            <td width="568" height="10" bgcolor="#FF9E8C">&nbsp;</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>
