<%@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 %>