<!--#include file="../Include/Conno.asp" -->
<!--#include file="../Include/char.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="IsLogin.asp" -->
<%
 dim rs,m_Sql
 dim m_ID 
 m_ID = Session("CurUserID")
  m_username= Session("CurUserName")
 m_Sql = "SELECT F_LoginCount,F_Integral,F_MyImage,F_Grade,F_LastLoginTime,F_RegTime,F_hide FROM T_Member WHERE F_ID=" & m_ID
 Set rs = conn.Execute(m_Sql)
 if rs.Eof then
   Response.write "对不起，无此会员！"
   Response.end
 end if

  '更新兴趣爱好信息

   if Request.ServerVariables("REQUEST_METHOD")="POST" then
   mhide = HTMLEncode(Request.Form("hide"))
   mSql = "UPDATE T_Member SET"
    mSql = mSql+" F_hide='"&mhide&"'" 
    mSql = mSql +" where F_ID=" & m_ID
    conn.execute(mSql)
    call MsgBox("祝贺您，[个人隐私]保存成功!","myhide.asp")
 End if
 
 '个人形象图片
 Session("m_Integral") = rs("F_Integral")
 m_MyImage = rs("F_MyImage")
 if m_MyImage = "" then m_MyImage = "DefaultMyImage.jpg"
 session("m_MyImage") = m_MyImage

					sql_m="select count(f_id) as n_count from t_message where F_username_a='"&m_username&"' and F_accept=0"
					Set rs_m = conn.Execute(sql_m)
					m_count=rs_m("n_count")
					sql_m="select count(f_id) as n_count from t_message where F_username_a='"&m_username&"' and F_accept=0 and  F_active=0 "
					Set rs_m = conn.Execute(sql_m)
					m_newcount=rs_m("n_count")
					rs_m.close
%>
<HTML><HEAD><TITLE> - 俱乐部</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link href="../css/member.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../Include/function.js"></script>
<% if cint(m_newcount)>0 then %>
<bgsound src="../images/wav/mail.wav" loop="1">
<% end if %>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!--#include file="../include/top.asp" -->
<!--#include file="../include/member_top.asp" --><!--#include file="club_top.asp" -->
<!--#include file="Top.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="183" align="center" valign="top"><!--#include file="left.asp" --></td>
    <td width="597" align="center" valign="top"><table width="96%"  border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="100%" height="40" align="right" valign="bottom"><img src="../Images/member/jl_01.gif" width="180" height="65"></td>
        </tr>
        <tr> 
          <td height="1" bgcolor="#c7c7c7"></td>
        </tr>
      </table>
      <TABLE width="96%" 
      border=0 align="center" cellPadding=0 cellSpacing=0 
      borderColor=#111111 bgcolor="#FFFFFF" id=AutoNumber7 style="BORDER-COLLAPSE: collapse">
        <TBODY>
          <TR valign="top"> 
            <TD colSpan=2>
<TABLE  
                              borderColor=#111111 cellSpacing=1 cellPadding=3 
                              width="100%" border=0>
                <TBODY>
                  <TR> 
                    <TD height="20" colspan="4"><font color="#FF6600">·用户活动信息： 
                      </font></TD>
                  </TR>
                  <TR> 
                    <TD width="13%" align="right" bgcolor="f2f2f2">登陆次数：</TD>
                    <TD width="37%" bgcolor="f2f2f2"><font color="#FF6600">[<%=rs("F_LoginCount")%>]</font> 
                      次</TD>
                    <TD width="18%" align="right" bgcolor="f2f2f2">最后登陆时间：</TD>
                    <TD width="32%" bgcolor="f2f2f2"><%=rs("F_LastLoginTime")%></TD>
                  </TR>
                  <TR> 
                    <TD align="right" bgcolor="f2f2f2">用户积分：</TD>
                    <TD bgcolor="f2f2f2"><font color=#FF6600><%=rs("F_Integral")%>分</font></TD>
                    <TD align="right" bgcolor="f2f2f2">用户注册时间：</TD>
                    <TD bgcolor="f2f2f2"><%=rs("F_RegTime")%></TD>
                  </TR>
                  <TR> 
                    <TD align="right" bgcolor="f2f2f2">用户等级：</TD>
                    <TD bgcolor="f2f2f2"> 
                      <%if rs("F_Grade") = 1 then Response.write "<font color=red><b>VIP会员</b></font>" else Response.write "普通会员"%>
                      <%if rs("F_Grade") <> 1 then%>
                      →  <font color="#FF0000">升级为VIP会员</font> 
                      <%end if%>
                    </TD>
                    <TD align="right" bgcolor="f2f2f2">我的短信息：</TD>
                    <TD bgcolor="f2f2f2"> 
                      
                      <a href="message.asp">共(<%=m_count%>)短信/<font color="#FF0000">(<%=m_newcount%>)未查看</font></a></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <br> 
              <TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=1 
                        cellPadding=0 width="100%" border=0>
                <TBODY>
                <form name="form1" method="post" action="myhide.asp">
                  <TR> 
                    <TD width="569" 
                              height=20><font color="#FF6600">·个人隐私</font></TD>
                  </TR>
                  <TR align="center"> 
                    <TD height=12 bgcolor="f2f2f2"><p><br>
                        <textarea name="hide" cols="65" rows="20" id="hide"><%=RN_HTMLEncode(rs("F_hide"))%></textarea>
                      </p>
                      <p><br>
                      </p></TD>
                  </TR>
                  <TR align="center">
                    <TD height=25 bgcolor="#FFFFFF"><font color="#FF0000">注：个人隐私将保密，只限您的好友才能查看。</font></TD>
                  </TR>
                  <TR align="center"> 
                    <TD height=51 colspan="2"> <input name=Step2  class=button type=submit value=修改保存> 
                      <INPUT name=Step22  class=button type=reset value=恢复原状> 
                    </TD>
                  </TR>
                </form>
              </TABLE></TD>
          </TR>
      </TABLE> </td>
  </tr>
</table>
<!--#include file="../Include/Bottom.asp" -->
</BODY></HTML>
