三级会员权限管理的操作

今天折腾了一个下午,总算在老师的帮助下完成了,我主要的功能是这样的rRX飞天影像[巴中]

我要求我的站有三种会员级别，分别是：游客、普通会员、VIP会员，在数据库中我建了一个表，是权限，分别指定游客值为0、普通会员为1、VIP会员为2，另外在文章内容的表里也做了一个权限的字段，就是在添加文章或修改时给该篇文章授访问权限，即游客只能看值为0的内容，普通会员登陆后能看普通会员和游客的内容，而VIP会员经管理员授权后其值为2，登陆后就能看所有的内容；当然只要注册的用户就已取得其值为1了。rRX飞天影像[巴中]

如何实现呢？且看下面rRX飞天影像[巴中]

一、首先在绑定面版下建一个阶段变量，如图rRX飞天影像[巴中]

二、分别创建文章的记录集和用户的记录集（其中文章记录集（表）和用户记录集（表）中有一个权限的字段，其值为数字），这里是在显示内容的页上进行限制，所以创建记录集的时候要筛选IDrRX飞天影像[巴中]

a)文章记录集的创建rRX飞天影像[巴中]

rRX飞天影像[巴中]

b)用户记录集的创建rRX飞天影像[巴中]

rRX飞天影像[巴中]

二、创建完记录集后，就得对用户进行判断（见代码），在这里说明一点，就是要对用户记录集的代码要进行搬家才行，下面就是搬家后的代码rRX飞天影像[巴中]

    rRX飞天影像[巴中]
    <!--判断用户为空的时候（游客）->rRX飞天影像[巴中]
       <%if Session("MM_username")="" and (wz.Fields.Item("wz_QX").Value)<>0 then%>rRX飞天影像[巴中]
<% Response.Redirect("User_Erro1.asp")  %>rRX飞天影像[巴中]
<% End If %>rRX飞天影像[巴中]
     <!--判断用户已经登陆->rRX飞天影像[巴中]
     <%if Session("MM_username")<>"" then%>rRX飞天影像[巴中]
      <!--提取用户的记录集进行判断-->rRX飞天影像[巴中]
      <%rRX飞天影像[巴中]
Dim user__MMColParamrRX飞天影像[巴中]
user__MMColParam = "1"rRX飞天影像[巴中]
If (Session("MM_Username") <> "") Then rRX飞天影像[巴中]
  user__MMColParam = Session("MM_Username")rRX飞天影像[巴中]
End IfrRX飞天影像[巴中]
%>rRX飞天影像[巴中]
<%rRX飞天影像[巴中]
Dim userrRX飞天影像[巴中]
Dim user_numRowsrRX飞天影像[巴中]

Set user = Server.CreateObject("ADODB.Recordset")rRX飞天影像[巴中]
user.ActiveConnection = MM_conn_STRINGrRX飞天影像[巴中]
user.Source = "SELECT * FROM FTYX_USER WHERE user_name = '" + Replace(user__MMColParam, "'", "''") + "'"rRX飞天影像[巴中]
user.CursorType = 0rRX飞天影像[巴中]
user.CursorLocation = 2rRX飞天影像[巴中]
user.LockType = 1rRX飞天影像[巴中]
user.Open()rRX飞天影像[巴中]

user_numRows = 0rRX飞天影像[巴中]
%>rRX飞天影像[巴中]
<!--提取用户的记录集结束-->rRX飞天影像[巴中]
<!--普通会员的判断-->rRX飞天影像[巴中]
<% If (user.Fields.Item("user_FL").Value)=1 and (wz.Fields.Item("wz_QX").Value)=2 Then %>rRX飞天影像[巴中]
<% Response.Redirect("User_Erro2.asp")  %>rRX飞天影像[巴中]
<% End If %><% End If %>rRX飞天影像[巴中]
<!--结束判断-->rRX飞天影像[巴中]

这里是文章的内容表格rRX飞天影像[巴中]

在最后还要关闭用户记录集（见以下代码）rRX飞天影像[巴中]

<!--关闭用户的记录集进行判断-->rRX飞天影像[巴中]
<% If Session("MM_username")<>"" Then %>rRX飞天影像[巴中]
<%rRX飞天影像[巴中]
user.Close()rRX飞天影像[巴中]
Set user = NothingrRX飞天影像[巴中]
%>rRX飞天影像[巴中]
<% End If %>rRX飞天影像[巴中]
<!--关闭用户的记录集进行判断结束-->rRX飞天影像[巴中]