首先要在用户表里面加了一个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了