ASP权限管理模式

 

首先要在用户表里面加了一个flag字段，保存成文本就可以了，

最后保存的样式如下
 0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,1,1,1,1
 为零的不能使用个功能 为1的可以使用这个功能
 在用户登陆的时候将这个字段设置为sessin   
   session("adminflag")=rs("flag")
用一个函数将这个字段分解开，分成一个一个的变量，以便判断
<%call SaveSqlLog(1)
call SF_PingSql
if session("admin")="" then
    response.write"<>open('"&application("cityurl")&application("cityadmin")&"index.asp','_parent')</>"
end if
dim fla,fla0,fla1,fla2,fla3,fla4,fla5,fla6,fla7,fla8,fla9,fla10,fla11,fla12,fla13,fla14,fla15,fla16,fla17,fla18,fla19,fla20,fla21,fla22,fla23
fla=split(session("adminflag"),",")
fla0=fla(0)
fla1=fla(1)
fla2=fla(2)
fla3=fla(3)
fla4=fla(4)
fla5=fla(5)
fla6=fla(6)
fla7=fla(7)
fla8=fla(8)
fla9=fla(9)
fla10=fla(10)
fla11=fla(11)
fla12=fla(12)
fla13=fla(13)
fla14=fla(14)
fla15=fla(15)
fla16=fla(16)
fla17=fla(17)
fla18=fla(18)
fla19=fla(19)
fla20=fla(20)
fla21=fla(21)
fla21=fla(22)
fla21=fla(23)
sub err
response.write"<>alert('操作出错，下面是产生错误的可能原因：/n/n"&errstyle&"');history.go(-1);</>"
response.end
end sub
%>
 把这个字段里面有多个权限分别放到不同的变量里面
 然后在碰到这个功能就在每个功能前加一个判断<%if fla0=1 then%>　功能模块<% end if %> 如果=1就显示 不等于1就不显示就OK了

 在给用户分配这些权利是把每个权里最后变成0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,1,1,1,1后存到数据库里面就OK了