<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> <%=SiteTitle %>-会员中心
会员中心
<% =WebMenu()%>  
信息搜索
<%=SearchForm()%>
首页会员中心主页
     
  <% if session("MemName")="" or session("GroupID")="" or session("MemLogin")<>"Succeed" then %>

感谢关注我们的网站,您还没有登录/注册?

  您现在的身份是临时游客,如果花10秒钟注册成为我们的会员并登录,将享有意想不到的便利和特权,例如:
  1.使用本站的留言、订单,招聘不用再填写相关的联系信息;
  2.在会员中心集中查看与相关自己的历史信息;
  3.拥有更高的内容浏览权限值(部分内容限制浏览对象,权限值越高浏览内容越多);
  4.反馈信息我们将更加认真对待;
  ……

<% else %>

感谢关注我们的网站,您已成功登录!

  您现在的身份是<%=MemGroup(session("GroupID"))%>,将享有如下的操作便利和特权:
  1.使用本站的留言、订单,招聘不用再填写相关的联系信息;
  2.在会员中心中,集中查看与相关自己的历史信息;
  3.拥有浏览权限值内的内容查看权限;
  4.您的反馈信息我们将更加认真对待;
  ……

<% end if %>
 
<% function WebMenu() response.write"" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write"
我的资料
我的留言
我的应聘
退出登录
" end function function MemGroup(GroupID) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_MemGroup where GroupID='"&GroupID&"'" rs.open sql,conn,1,1 MemGroup=rs("GroupName") rs.close set rs=nothing end function %>