问题如下：
在添加后台管理员时，我想让一个管理员同时可以管理好几个频道，写入数据库时，admin表中有三个字段：username password power
在power字段中，写入的值如：新闻,二手,房产
那么在新闻管理时该如何判断这管理员有无权限管理该栏目。
我尝试过用split(power,",")
然后for i=0 to ubound(power)
if...............
不成功。。。不知是写错了还是？
非常感谢。。。

session那是肯定的。
登陆时：session("power")=rs("power")
但这里session("power")里的值可能是有好多个字符:如：新闻,二手,房产
那么我们必须把他分割开，
现在主要是不知道在新闻管理页面该如何判断此用户有无权限管理该页面。。。

我最近在做的.

admin_access = Request.Form("chk_news")&"|"&Request.Form("chk_en")&"|"&request.Form("chk_ad")&"|"&Request.Form("chk_buss")&"|"&Request.Form("chk_other")
这个当然和你用,隔开是一个意思

判断:
Sub NeedAccess(Level,Area)
        set rs = Server.CreateObject("ADODB.Recordset")
        sql="SELECT * FROM tb_admin where f_admin = '"& Session("admin") &"'"
        rs.open sql,connCheck,1,1
            
        AdminLevel = rs("f_level")
        
        if Level = "super" and (AdminLevel = "vip" or AdminLevel = "operationer") then
        Call AccessErr()
        elseif Level = "vip" and AdminLevel = "operationer" then
        Call AccessErr()
        end if
        
        
    if AdminLevel <> "super" then    
        if rs("f_access") <> "" then
        admin_access = Split(rs("f_access"),"|")
        else
        Response.Write "权限未知"
        Response.End()
        end if
    rs.close()
    set rs = nothing
        
    Dim checkaccess
    checkaccess=false
    
    for i = 0 to UBound(admin_access)
        if Area = admin_access(i) then
        checkaccess=true
        exit for
        end if
    next
    
    if checkaccess<>true then
    Call AccessErr()
    end if
    end if

End Sub

感谢大家的帮助，问题得已解决！lemontree的方法，我还得去研究一下。。。allinhands你写得好长呀，看得我头都晕了。：）
底下是“蓝色理想"一位朋友写的：

<%
function isAdmin(adminName,Name)
isAdmin = false
Name = split(Name,"|")
for i = 0 to uBound(Name)
if Name(i) = adminName then
    isAdmin = true    
exit for    
end if
next
end function
Name = "新闻|二手|房产 " '用表的字段内容代替
adminName = "新闻" '当前栏目名称代替
if isAdmin(adminName,name) then
response.write "可以管理"
elseresponse.write "没有权限"
end if%>

en...shi de......Thanks...
It's a good day today!!!
:)