<%Call SiteInfo()%> 会员中心 - <% =SiteTitle %>
首页 - <%=WebLocation()%>

会员中心

<%If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then%>
感谢您的关注!您的身份:游客
立即注册会员可以查看更多产品资讯。
<%Else%>
感谢您的关注!您的身份:<%=MemGroup(session("GroupID"))%>
请选择左栏菜单项来管理您的会员资料、订单、留言、应聘等信息。
<%End If%>
<% Function WebMenu() If session("MemName") = "" Or session("GroupID") = "" Or session("MemLogin")<>"Succeed" Then response.Write "
  • 注册会员
  • " Else response.Write "
  • 修改注册资料
  • " response.Write "
  • 我的留言
  • " response.Write "
  • 我的订单
  • " response.Write "
  • 我的应聘
  • " response.Write "
  • 退出登录
  • " End If End Function Function WebLocation() WebLocation = "会员中心 "&vbCrLf End Function Function MemGroup(GroupID) Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from MemGroup where GroupID='"&GroupID&"'" rs.Open sql, conn, 1, 1 MemGroup = rs("GroupName") rs.Close Set rs = Nothing End Function %>