
<%@ Language=VBScript %>

<HTML>
<HEAD><!--#include file="const.asp" -->
<title><%=rs("title")%>---<%=rs("lovetitle")%></title>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link rel="stylesheet" href="../images/css.css" type="text/css">
</head>

<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%   
sql="select nickname from user where user_name='"&Request("user_name")&"'"
set rs=server.CreateObject ("ADODB.recordset")
 rs.Open sql,conn1,3,2
 nickname=rs("nickname")

sql1="select other_note.*,user.nickname,user.sex from other_note,user where type=1 and other_note.from_who=user.user_name and other_note.user_name='"&Request("user_name")&"'"
set rs=server.CreateObject ("ADODB.recordset")
 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 cellpadding="0" align="center" cellspacing="0" width="770">
    <tr>
        <td width="200" height="52" rowspan="2">
            <p><img src="images/pic_3.gif" width="200" height="60" border="0"></p>
        </td>
        <td width="579" height="30" bgcolor="#E75984" colspan="2">
            <table cellpadding="0" cellspacing="0" width="100%">
                <tr>
                    <td width="17">
                        <p>&nbsp;</p>
                    </td>
                    <td width="545">

                    </td>
                </tr>
            </table>
        </td>
    </tr>
    <tr>
        <td width="92" height="16" bgcolor="#313031">
            <p>&nbsp;</p>
        </td>
        <td width="487" height="16" bgcolor="#313031">
            <p align="right"><a href="../default.asp"><font color="white">交友首页</font></a><font color="white"> 
            &nbsp;</font><A  href="my_personal_status.asp"><font color="white">我的小屋</font></A><font color="white">    
            &nbsp;</font><a href="show_photo.asp?sex=女&amp;move=1"><font color="white">会员风采</font></a><font color="white">    
            &nbsp;</font><A href="ideal_friends.asp"><font color="white">E缘约会</font></A><font color="white">    
            &nbsp;</font><A    
            href="my_marry_public.asp?flag=1"><font color="white">玫瑰之约</font></A><font color="white"> 
            &nbsp;</font><a href="party/party_index.asp" ><font color="white">网友聚会</font></a><font color="white">    
            &nbsp;</font><a href="search_online.asp?flag1=1"><font color="white">网际寻友</font></a><font color="white">    
            &nbsp;</font><a href="logout.asp" target="_top"><font color="white" >退出登陆</font></a></p>   
        </td>
    </tr>
    <tr>
        <td width="292" colspan="2">
            <p><img src="images/pic_4.gif" width="292" height="67" border="0"></p>
        </td>
        <td width="487" bgcolor="#FFF7F7">
<p align="left"><iframe src="../ads/index.htm" frameborder=0 width=468 height=60 scrolling=no></iframe></p>
        </td>
    </tr>
</table>
<table width=100% cellpadding=3 cellspacing=1>
<tr bgcolor=#FFF7FD><td colspan=5  align=center>
 共有<%=rs.RecordCount%> 个给<%=nickname%>的留言，&nbsp;&nbsp;这是第<%=session("currentpage")%>页/共<%=rs.PageCount%>页   
 </td>
        <td></td>
 </tr>
 <A NAME="mybook"></A>	 
<tr bgcolor=#FFC4D7>
	<td  align="center" class=sp width=40><b>编号</b></td><td  align=center class=sp width="25%"><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>
<%if rs.RecordCount<>0 then
rows=1
rs.AbsolutePage=session("currentpage")
	while not rs.EOF and rows<=rs.PageSize 
	
	
%>


<%if rows mod 2 then 
%>

<tr bgcolor=#FFF7FD>
	<td  align=center class=sp><%=rows%></td><td  align=center class=sp>
              <A 
              href="#mybook"
              onclick="javascript:window.open('show_note.asp?nickname=<%=rs("nickname")%>&id=<%=rs("id")%>','email2friend','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=418,height=379')"><%=rs("title")%></A> </td>
<td  align=center class=sp><a href="show_user.asp?user_name=<%=rs("from_who")%>" target="_blank"><%=rs("nickname")%></a></td>
<td  align=center class=sp><%=rs("sex")%></td>
<td  align=center class=sp><%=rs("time")%></td>
        <td></td>
</tr>
<%else%>

<tr bgcolor=#FFF0FA>
		<td  align=center class=sp><%=rows%></td><td  align=center class=sp>
              <A 
              href="#mybook"
              onclick="javascript:window.open('show_note.asp?nickname=<%=rs("nickname")%>&id=<%=rs("id")%>','email2friend','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=418,height=379')"><%=rs("title")%></A> </td>
<td  align=center class=sp><a href="show_user.asp?user_name=<%=rs("from_who")%>" target="_blank"><%=rs("nickname")%></a></td>
<td  align=center class=sp><%=rs("sex")%></td>
<td  align=center class=sp><%=rs("time")%></td>
        <td></td>
</tr>

<%end if%>	
<%rs.MoveNext
  rows=rows+1
  wend
%>
	
	
	
 <tr bgcolor=#FFF7FD><td colspan=5  align=center>
 <%if session("currentpage")>1then %>
<a href="show_user_notelist.asp?move=1&user_name=<%=Request("user_name")%>">首页</a>　
<a href="show_user_notelist.asp?move=2&user_name=<%=Request("user_name")%>">上一页</a>
<%end if%>
<%if session("currentpage")<rs.PageCount  then %>
<a href="show_user_notelist.asp?move=3&user_name=<%=Request("user_name")%>">下一页</a>　
<a href="show_user_notelist.asp?move=4&user_name=<%=Request("user_name")%>">末页</a>
 <%end if %>

</td>
        <td></td>
 </tr>
 <%else%>
 <tr bgcolor=#FFF0FA>
	<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>

<!--#include file="tailer.htm" -->


</BODY>
</HTML>
</script>