<!--#include file="../Include/Conno.asp" -->
<!--#include file="../Include/Char.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/md5.asp"-->
<!--#include file="IsLogin.asp" -->
<%
 dim rs,m_Sql
 dim m_ID 
  m_username= checkStr(Session("CurUserName"))
 m_ID = checkStr(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
			
%>
<HTML><HEAD><TITLE> - 俱乐部 - 会员系统信息</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
a:link {
	text-decoration: none;
	color: #000066;
}
a:visited {
	text-decoration: none;
	color: #CC00CC;
}
a:hover {
	text-decoration: none;
	color: #0000FF;
}
a:active {
	text-decoration: none;
	color: #FF0000;
}
-->
</style>
<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="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><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> <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>&nbsp; </TD>
                  </TR>
                </TBODY>
              </TABLE>
              <%
					 m_Sql = "SELECT * 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=100% bgColor=#cccccc border=0>
                <TBODY>
                  <TR> 
                    <TD vAlign=top align=middle width=100% bgColor=#FFFFFF> <TABLE cellSpacing=3 cellPadding=0 width=100% bgColor=#ffffff 
            border=0>
                        <TBODY>
                          <%
						 
						  do while not rslog.eof 
						 %>
                          <TR> 
                            <TD width=100% 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" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="35" align="center"><strong><a href="javascript:window.close();">[关闭窗口]</a></strong></td>
                </tr>
              </table> </TD>
          </TR>
      </TABLE></td>
  </tr>
</table>
<!--#include file="../include/bottom.asp" -->
</BODY></HTML>
