<%@ 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

%>
<SCRIPT language=JavaScript> 
function checkform()
{
	
	if(form1.mynote.value.length<1){
		alert("对不起留言不能为空！");
		
		return false;
	}
	
	return true;
}
</SCRIPT>
<table align="center" cellpadding="0" cellspacing="0" width="770">
    <tr>
        <td width="769"><!--#include file="top.asp" --></td>
    </tr>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="174" valign="top"> 
      <table id="Table_01" width="150" height="192" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td rowspan="3"> <img src="../image/love_image/images/left_top_01.gif" width="6" height="192" alt=""></td>
          <td> <img src="../image/love_image/images/left_top_02.gif" width="164" height="7" alt=""></td>
          <td rowspan="3"> <img src="../image/love_image/images/left_top_03.gif" width="7" height="192" alt=""></td>
        </tr>
        <tr> 
          <td background="../image/love_image/images/left_top_04.gif" width="164" height="23"> 
            <table width="98%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="16%" align="center"> 
                  <div align="center"><b> 
                    <%set rs_t=server.CreateObject ("ADODB.recordset")
  
   sql="select * from user where user_name='"&session("Current_user")&"'"
   rs_t.Open sql,conn1,3,2
  if rs_t.RecordCount<>0 then
   nickname=rs_t("nickname")
   sex=rs_t("sex")
   
   if rs_t("weight")=1 then
	 user_type="普通会员"
	else
		 user_type="VIP会员"
	end if 
end if	
	set rs_online=server.CreateObject ("ADODB.recordset")
  
   sql="select count(*) as online_num from online"
   rs_online.Open sql,conn1,3,2
   
   online_num=rs_online("online_num")
  
  %>
                    <b></b><b><font color="#666666"> 
                    <%if rs_t("sex")="男" then 
response.write "<img src=../image/boy.gif width=14 height=10 border=0></a></div>"
else%>
                    <img src=../image/girl.gif width=14 height=10 border=0> 
                    <%end if%>
                    </font></b> </b></div>
                </td>
                <td width="84%"> 您好，<%=nickname%>！ 
                  <%
 set rs2=server.CreateObject ("ADODB.recordset")
 sql="select * from user where user_name='"&session("Current_user")&"'"
 rs2.Open sql,conn1,3
 charisma=rs2("charisma")
 if charisma<101 then
	rank="自由天使"
 elseif charisma>100 and charisma<301 then
	rank="梦幻天使"
 elseif charisma>300 and charisma<1001 then
	rank="星梦天使"
 elseif charisma>1000 and charisma<10001 then
	rank="寻梦天使"
 elseif charisma>100 and charisma<50001 then
	rank="追梦天使"
 elseif charisma>100 and charisma<150001 then
	rank="缘梦天使"
 elseif charisma>100 and charisma<500001 then
	rank="浪漫天使"
 elseif charisma>500000  then
	rank="守护天使"
end if
 %>
                  　 </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td background="../image/love_image/images/left_top_05.gif" width="164" height="162"> 
            <table border="0" height="2" cellspacing="0" cellpadding="2" width="98%" style="border-collapse: collapse" bordercolor="#111111" align="center">
              <tr> 
                <td height="16" >&nbsp;&nbsp;&nbsp;会员类别：<font  color=red><%=user_type%></font></td>
              </tr>
              <tr> 
                <td height="16" >&nbsp;&nbsp;&nbsp;天使级别：<font  color=red><%=rank%></font></td>
              </tr>
              <tr> 
                <td height="16" >&nbsp;&nbsp;&nbsp;魅力积分：<font  color=red><font face="Arial, Helvetica, sans-serif"><%=charisma%></font></font> 
                  分</td>
              </tr>
              <tr> 
                <td height="16" >&nbsp;&nbsp;&nbsp;上站次数：<font  color=red><font face="Arial, Helvetica, sans-serif"><%=rs2("counter")%></font></font> 
                  次</td>
              </tr>
              <tr> 
                <td height="16" >&nbsp;&nbsp;&nbsp;档案浏览：<font  color=red><font face="Arial, Helvetica, sans-serif"><%=rs2("visited_counter")%></font></font> 
                  次</td>
              </tr>
              <tr> 
                <td height="16" >&nbsp;&nbsp;&nbsp;入会日期：<font  color=red><%=formatdatetime(rs2("reg_date"),vblongdate)%></font></td>
              </tr>
              <tr> 
                <td height="16" >&nbsp;&nbsp;&nbsp;最新访问：<font  color=red><%=formatdatetime(rs2("last_time"),vblongdate)%></font></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <!--#include file="left.asp"-->
    </td>
    <td width="604" valign="top"> 
      <table id="Table_01" width="602" height="401" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td colspan="11"> <img src="../image/love_image/images/youjianguanli_01.gif" width="601" height="5" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="5" alt=""></td>
        </tr>
        <tr> 
          <td> <img src="../image/love_image/images/youjianguanli_02.gif" width="18" height="27" alt=""></td>
          <td colspan="3"> <img src="../image/love_image/images/youjianguanli_03.gif" width="24" height="27" alt=""></td>
          <td> <img src="../image/love_image/images/youjianguanli_04.gif" width="58" height="27" alt=""></td>
          <td colspan="5" background="../image/love_image/images/youjianguanli_05.gif" height="27"> 
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
              <tr> 
                <td height=23 width="508"> <marquee direction=center onMouseOver="this.stop()" onMouseOut="this.start()" scrollamount="3"><%=Application("quick_note")%></marquee></td>
              </tr>
            </table>
          </td>
          <td> <img src="../image/love_image/images/youjianguanli_06.gif" width="12" height="27" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="27" alt=""></td>
        </tr>
        <tr> 
          <td colspan="11"> <img src="../image/love_image/images/youjianguanli_07.gif" width="601" height="11" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="11" alt=""></td>
        </tr>
        <tr> 
          <td colspan="6" rowspan="5"> <img src="../image/love_image/images/youjianguanli_08.gif" width="186" height="148" alt=""></td>
          <td> <img src="../image/love_image/images/youjianguanli_09.gif" width="36" height="46" alt=""></td>
          <td rowspan="2"> <img src="../image/love_image/images/youjianguanli_10.gif" width="67" height="79" alt=""></td>
          <td rowspan="2"> <img src="../image/love_image/images/youjianguanli_11.gif" width="159" height="79" alt=""></td>
          <td colspan="2"> <a href="my_notebook.asp"><img src="../image/love_image/images/youjianguanli_12.gif" width="153" height="46" alt="" border="0"></a></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="46" alt=""></td>
        </tr>
        <tr> 
          <td rowspan="4"> <img src="../image/love_image/images/youjianguanli_13.gif" width="36" height="102" alt=""></td>
          <td colspan="2" rowspan="2"> <a href="friend_list.asp"><img src="../image/love_image/images/youjianguanli_14.gif" width="153" height="52" alt="" border="0"></a></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="33" alt=""></td>
        </tr>
        <tr> 
          <td colspan="2" rowspan="2"> <img src="../image/love_image/images/youjianguanli_15.gif" width="226" height="55" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="19" alt=""></td>
        </tr>
        <tr> 
          <td colspan="2" rowspan="2"> <a href="join_vip.asp"><img src="../image/love_image/images/youjianguanli_16.gif" width="153" height="50" alt="" border="0"></a></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="36" alt=""></td>
        </tr>
        <tr> 
          <td colspan="2"> <img src="../image/love_image/images/youjianguanli_17.gif" width="226" height="14" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="14" alt=""></td>
        </tr>
        <tr> 
          <td colspan="2"> <img src="../image/love_image/images/youjianguanli_18.gif" width="32" height="32" alt=""></td>
          <td> <img src="../image/love_image/images/youjianguanli_19.gif" width="6" height="32" alt=""></td>
          <td colspan="8" background="../image/love_image/images/youjianguanli_20.gif" height="32"> 
            <font color="#333333"> 　 
            <%set rs1=server.CreateObject ("ADODB.recordset")
 '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")&"'"
if request("type")=1 then
sql="select * from other_note where type=1 and user_name='"&session("Current_user")&"'"
else
sql="select * from other_note where type=0 and user_name='"&session("Current_user")&"'"
end if
sql=sql&" order by time desc"
 rs1.Open sql,conn1,3
 rs1.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")=rs1.PageCount
end if
if session("currentpage")<1 then
session("currentpage")=1
end if
if session("currentpage")>rs1.PageCount then
session("currentpage")=rs1.PageCount
end if

 


%>
            <b> 
            <%if Request("type")=0 then%>
            我的站内信件 
            <%else%>
            我的个人主页留言 
            <%end if%>
            </b></font><font color="white"><b> </b></font> </td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="32" alt=""></td>
        </tr>
        <tr> 
          <td colspan="11"> <img src="../image/love_image/images/youjianguanli_21.gif" width="601" height="14" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="14" alt=""></td>
        </tr>
        <tr> 
          <td colspan="11" background="../image/love_image/images/youjianguanli_22.gif" height="225" valign="top" bgcolor="#FFFFFF"> 
            <table  bordercolorlight="#cccccc" bordercolordark="#FFFFFF"   width="96%" cellpadding=1 cellspacing=1 class=color_1 align="center" border="1">
              <tr bgcolor="#F0F0F0"> 
                <td colspan=7  align=center height="28"> （数字编号红色表未读记录）共有<font color="red" face="Arial, Helvetica, sans-serif"><%=rs1.RecordCount%> 
                  </font>条记录，&nbsp;&nbsp;这是第<font color="red" face="Arial, Helvetica, sans-serif"><%=session("currentpage")%></font>页/共<font color="red" face="Arial, Helvetica, sans-serif"><%=rs1.PageCount%></font>页 
                </td>
              </tr>
              <a name="mybook"></a> 
              <tr bgcolor="#FFE28C"> 
                <td  align=center height="30" bgcolor="#E3E3E3" ><b>编号</b></td>
                <td  align=center width="25%" height="30" bgcolor="#E3E3E3"><b>标题</b></td>
                <td  align=center height="30" bgcolor="#E3E3E3"><b>昵称</b></td>
                <td  align=center height="30" bgcolor="#E3E3E3" ><b>性别</b></td>
                <td  align=center height="30" bgcolor="#E3E3E3"><b>时间</b></td>
                <td  align=center height="30" bgcolor="#E3E3E3" ><b>操作</b></td>
                <td bgcolor="#FFFFFF"></td>
              </tr>
              <%if rs1.RecordCount<>0 then
rows=1
rs1.AbsolutePage=session("currentpage")
	while not rs1.EOF and rows<=rs1.PageSize 
	
	if rs1("from_who")="系统管理员" then
		temp_nickname="系统管理员"
		temp_sex="公告"
	else
	sql_temp="select nickname,sex from user where user_name='"&rs1("from_who")&"'"
	set temp_rs= conn1.Execute(sql_temp)
	temp_nickname=temp_rs("nickname")
	temp_sex=temp_rs("sex")
	end if
%>
              <%if rows mod 2 then 
%>
              <tr  onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';"    bgcolor="#FFF8E1"> 
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"> 
                  <%if rs1("readed")=0 then%>
                  <font color="red" face="Arial, Helvetica, sans-serif"><%=rows%></font> 
                  <%else%>
                  <font  face="Arial, Helvetica, sans-serif"><%=rows%> </font>
                  <%end if%>
                </td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"> <a 
              href="other_note_manage.asp?type=<%=Request("type")%>"
              onClick="javascript:window.open('show_note.asp?nickname=<%=temp_nickname%>&id=<%=rs1("id")%>','_blank','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=418,height=379')"><%=rs1("title")%></a> 
                </td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"><a href="show_user.asp?user_name=<%=rs1("from_who")%>" target="_blank"><%=temp_nickname%></a></td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"><%=temp_sex%></td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"><font color="red" face="Arial, Helvetica, sans-serif"><%=rs1("time")%></font></td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"><a href="del_other_note.asp?id=<%=rs1("id")%>&flag=1" >[删除]</a> 
                  <%if rs1("from_who")<>"系统管理员" then%>
                  <a  href="#mybook" onClick="javascript:window.open('leaveword.asp?user_name=<%=rs1("from_who")%>&nickname=<%=temp_nickname%>','_blank','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=418,height=379');">[回复]</a> 
                  <%end if%>
                </td>
                <td bgcolor="#FFFFFF"></td>
              </tr>
              <%else%>
              <tr  onMouseOver="this.style.backgroundColor='#F0F0F0';" onMouseOut="this.style.backgroundColor='';"    bgcolor="#FFF3C7"> 
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"> 
                  <%if rs1("readed")=0 then%>
                 <font color="red" face="Arial, Helvetica, sans-serif"><%=rows%></font> 
                  <%else%>
                  <font  face="Arial, Helvetica, sans-serif"><%=rows%> </font>
                  <%end if%>
                </td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"> <a 
              href="other_note_manage.asp?type=<%=Request("type")%>"
              onClick="javascript:window.open('show_note.asp?nickname=<%=temp_nickname%>&id=<%=rs1("id")%>','_blank','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=418,height=379')"><%=rs1("title")%></a> 
                </td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"><a href="show_user.asp?user_name=<%=rs1("from_who")%>" target="_blank"><%=temp_nickname%></a></td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"><%=temp_sex%></td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"><font color="red" face="Arial, Helvetica, sans-serif"><%=rs1("time")%></font></td>
                <td  align=center class=sp bgcolor="#F9F9F9" height="25"><a href="del_other_note.asp?id=<%=rs1("id")%>&flag=1" >[删除]</a> 
                  <%if rs1("from_who")<>"系统管理员" then%>
                  <a  href="#mybook" onClick="javascript:window.open('leaveword.asp?user_name=<%=rs1("from_who")%>&nickname=<%=temp_nickname%>','_blank','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=418,height=379');">[回复]</a> 
                  <%end if%>
                </td>
                <td bgcolor="#FFFFFF"></td>
              </tr>
              <%end if%>
              <%rs1.MoveNext
  rows=rows+1
  wend
%>
              <tr bgcolor="#FFF8E1"> 
                <td colspan=6  align=center bgcolor="#F2F2F2"> 
                  <%'if session("currentpage")>1then %>
                  <a href="other_note_manage.asp?move=1&type=<%=Request("type")%>">首页</a>　 
                  <a href="other_note_manage.asp?move=2&type=<%=Request("type")%>">上一页</a> 
                  <%'end if%>
                  <%'if session("currentpage")<rs1.PageCount  then %>
                  <a href="other_note_manage.asp?move=3&type=<%=Request("type")%>">下一页</a>　 
                  <a href="other_note_manage.asp?move=4&type=<%=Request("type")%>">末页</a> 
                  <%'end if %>
                </td>
                <td bgcolor="#FFFFFF"></td>
              </tr>
              <%else%>
              <%end if
conn1.Close
%>
            </table>
          </td>
          <td height="225"> <img src="../image/love_image/images/spacer.gif" width="1" height="147" alt=""></td>
        </tr>
        <tr> 
          <td colspan="11"> <img src="../image/love_image/images/youjianguanli_23.gif" width="601" height="16" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="1" height="16" alt=""></td>
        </tr>
        <tr> 
          <td> <img src="../image/love_image/images/spacer.gif" width="18" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="14" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="6" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="4" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="58" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="86" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="36" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="67" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="159" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="141" height="1" alt=""></td>
          <td> <img src="../image/love_image/images/spacer.gif" width="12" height="1" alt=""></td>
          <td></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<tr> 

</tr>
                     <!--#include file="../copyright.asp" --></td>

</table>

</body>
</html>
