<!--#include file="../Include/Conno.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/md5.asp"-->
<!--#include file="IsLogin.asp" -->
<%
 dim rs,m_Sql
 dim m_ID 
  m_username= Session("CurUserName")
 m_ID = Session("CurUserID")
 m_Sql = "SELECT * FROM T_Member WHERE F_ID=" & m_ID
 Set rs = conn.Execute(m_Sql)
 if rs.Eof then
   Response.write "对不起，无此会员！"
   Response.end
 end if
 Session("m_Integral") = rs("F_Integral")
 m_MyImage = rs("F_MyImage")
 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>
<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"><img src="../Images/member/hy_c_1.gif" width="180" height="80"></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 cellSpacing=0 cellPadding=0 width=565 border=0>
                <TBODY>
                  <TR> 
                    <TD width=160 height=35><IMG height=35 
            src="../Images/member/club_myinfoname.gif" width=160></TD>
                    <TD align=center width=405>
                      <font color="#FF0000">直接进入：</font> 
                      <SELECT onchange=location.href(this.options[this.selectedIndex].value); size=1 name=select> 
				  <OPTION value="syslog.asp">==请选择栏目==</OPTION> 
				  <OPTION value="/">﹄网站首页</OPTION> 
				  <OPTION value="/info/Class_index.asp">﹄信息广场</OPTION> 
				  <OPTION value="/info/house_index.asp">﹄安居乐业</OPTION> 
				  <OPTION value="/info/play_index.asp">﹄娱乐休闲</OPTION> 
				  <OPTION value="/info/service_index.asp">﹄家政服务</OPTION>
				  <OPTION value="/info/food_index.asp">﹄餐饮美食</OPTION> 
				  <OPTION value="/bbs">﹄百姓社区</OPTION> 
				  <OPTION value="/about/Gbook_Add.asp">﹄建议意见</OPTION> 
                   </select>
                    </TD>
                  </TR>
                </TBODY>
              </TABLE>
			  <%
					 m_Sql = "SELECT top 15 * FROM T_club_log  WHERE F_username='" &m_username&"' order by f_regtime desc"
                          Set rslog = conn.Execute(m_Sql)
						  if not rslog.eof then
					%>
              <TABLE cellSpacing=1 cellPadding=0 width=565 bgColor=#cccccc border=0>
                <TBODY>
                  <TR> 
                    <TD vAlign=top align=middle width=563 bgColor=#FFFFFF> 
					
                      <TABLE cellSpacing=3 cellPadding=0 width=563 bgColor=#ffffff 
            border=0>
                        <TBODY>
                         <%
						 
						  do while not rslog.eof 
						 %>
						  <TR> 
                            <TD width=550 bgColor=#f2f2f2 height=23><FONT 
                  color=#333333>·<%=rslog("f_syslog")%><SPAN 
                  style="FONT-SIZE: 11px; COLOR: #666666">(<%=rslog("f_regtime")%>)</SPAN></FONT></TD>
                          </TR>
						  <%
						  rslog.movenext
						  loop						 
						  %>
                        </TBODY>
                      </TABLE>
                    </TD>
                  </TR>
                </TBODY>
              </TABLE>
			  <%
			  end if
			   rslog.close
		    set rslog=nothing 
			  %>
              <table width="100%" border="0">
                <tr> 
                  <td width="73%" align="center"> 
                    <%if rs("F_Grade") <> 1 then%>
                    <font color="#FF0000">提示</font>：想拥有更多服务请升级为<font color="#FF0000"><font color="#FF0000">VIP会员</font>！</font> 
                    <% end if %>
				  </td>
                  <td width="27%" align="right"><a href="allsyslog.asp" target="_blank">查看您的全部系统信息&gt;&gt;</a>&nbsp;&nbsp;</td>
                </tr>
              </table> </TD>
          </TR>
      </TABLE> 
</td>
  </tr>
</table>
</table>
<!--#include file="../include/bottom.asp" -->
</BODY></HTML>
