<!--#include file="Include/Const.asp" -->
<!--#include file="Include/NoHackSql.Asp" -->
<!--#include file="Include/ConnSiteData.asp" -->
<%call SiteInfo
headid=7
%>
<!--#include file="Head.Asp" -->
<div id='index_wrapper'>
<div id=best-r class="best" style="width:586px;float:left">
<div id=best-sc>
<div class=best-tb>
<a>我的资料:</a>
</div>
</div>
<div id=bests>
<table border="0" cellpadding="0" cellspacing="0" width="100%">

        <% if session("MemName")="" or session("GroupID")="" or session("MemLogin")<>"Succeed" then %>
        <tr>
          <td><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr style="line-height:25px; font-size:12px" align="center">
                <td><img src="images/Page_error.jpg" align="absmiddle" /></td>
                <td>感谢您的关注！您的身份：<font color="red">游客</font><br />
                  <a href="MemberRegister.asp"><font color="red">立即注册团员</font></a>可以查看更多关于本团信息。</td>
              </tr>
            </table></td>
        </tr>
        <% else %>
        <tr>
          <td><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr style="line-height:25px; font-size:12px" align="center">
                <td><img src="images/Page_ok.jpg" align="absmiddle" /></td>
                <td>感谢您的关注！您的身份：<font color="red"><%=MemGroup(session("GroupID"))%></font><br />
                  请选择右栏菜单项来管理您的团员资料、订单、留言等信息。</td>
              </tr>
            </table></td>
        </tr>
        <% end if %>
        <tr>
          <td height="20">&nbsp;</td>
        </tr>
</table>
</div>
</div>
<div style="width:200px; float:right;">
<div id=best-r class="best" style="width:200px; float:right;">
<div id=best-sc>
<div class=best-tb>
<a style="width:100px;">我的团购中心</a>       
</div>
</div>

<div id=bests>
<ul>
<%Call WebMenu()%>
</ul>
</div>

</div>
<div id=best-r class="best" style="width:200px; float:right;margin-top:10px;">
<div id=best-sc>
<div class=best-tb>
<a style="width:80px;font-size:14px;font-weight:bold;">信息订阅</a>       
</div>
</div>

<div id=bests>
<table cellpadding="0" cellspacing="0" width="100%px" style="padding:6px;">
<tr><td align="center">
<% Call LiangjingCMSEMail() %>
</td></tr>
</table>

</div>
</div>
</div>
<div style="clear:both;;*display:inline;overflow:;hidden;">
</div>
<div style="float:none;height:10px;"></div>
</div></div>
</div></div>
<!--#include file="Foot.Asp"-->
<%
Function WebMenu()
If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then
  response.write "<Li>  <img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberRegister.asp"">注册会员</a></li>"
Else
  response.write "<Li>  <img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberInfo.asp"">修改注册资料</a></li>"
  response.write "<Li>  <img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberMessage.asp"">我的留言</a></li>"
  response.write "<Li>  <img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberOrder.asp"">我的订单</a></li>"
  response.write "<Li>  <img src=""image/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberLogin.asp?Action=Out"">退出登录</a></li>"
End If
End Function

function WebLocation()
  WebLocation="&nbsp;当前位置：<a href=""index.asp"" class=""agray"">首页</a> - <a href=""MemberCenter.asp"" class=""agray"">会员中心</a> "&VbCrLf
end function

function MemGroup(GroupID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJing_MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  MemGroup=rs("GroupName")
  rs.close
  set rs=nothing
end function
%>