<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/NoSQL.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<%Call SiteInfo()%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>会员中心 - <% =SiteTitle %></title>
<meta name="keywords" content="<% =Keywords %>" />
<meta name="description" content="<% =Descriptions %>" />
<link href="css/public.css" rel="stylesheet" type="text/css" />
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</head>
<!--#include file="Top.Asp" -->
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:1px; background:url(images/main_bg.jpg) repeat-x;">
  <tr>
    <td width="230" align="left" valign="top" style="background:url(images/left_bg.gif) repeat-y right;"><table width="190" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:19px;">
        <tr>
          <td width="190"><img src="images/left_nav.gif" width="190" height="28" /></td>
        </tr>
        <tr>
          <td bgcolor="#FFFFFF"><div id="nav"><%=WebMenu()%></div></td>
        </tr>
        <tr>
          <td height="18">&nbsp;</td>
        </tr>
      </table>
      <!--#include file="Center_Left.Asp" --></td>
    <td width="773" valign="top"><table width="733" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:19px;">
        <tr>
          <td width="733" style="background:url(images/bg1.gif) repeat-x left bottom;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="100%" align="right" style="color:#999999"><img src="images/arr6.gif" width="9" height="9" align="absmiddle" /><%=WebLocation()%></td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td height="18">&nbsp;</td>
        </tr>
        <% 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></td>
  </tr>
</table>
<!--#include file="End.Asp"-->
<%
Function WebMenu()
    If session("MemName") = "" Or session("GroupID") = "" Or session("MemLogin")<>"Succeed" Then
        response.Write "<a href=""MemberRegister.Asp"">注册会员</a>"
    Else
        response.Write "<a href=""MemberInfo.Asp"">修改注册资料</a>"
        response.Write "<a href=""MemberMessage.Asp"">我的留言</a>"
        response.Write "<a href=""MemberOrder.Asp"">我的订单</a>"
        response.Write "<a href=""MemberTalent.Asp"">我的应聘</a>"
        response.Write "<a href=""MemberLogin.Asp?Action=Out"">退出登录</a>"
    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 Shenbi_MemGroup where GroupID='"&GroupID&"'"
    rs.Open sql, conn, 1, 1
    MemGroup = rs("GroupName")
    rs.Close
    Set rs = Nothing
End Function
%>