asp分栏目权限如何修改

最近自建了一个asp 的小系统，目标是成绩的录入，现在遇到一个小问题： 分学科权限该如何编辑？
我现在是单个学科的可以弄，但是多学科的无从下手，
比如说：A老师拥有“语文”课的成绩录入权限，B老师拥有“历史”“地理”课的成绩录入权限，
我只把 单个学科的弄出来了，请问多学科的怎么弄？
        
单学科的： if(session("username")<>"admin")then
            if(Instr(sSql,"where"))then
                sSql=sSql&" and lmmc in (select lmmc from users where usr='"&session("username")&"')"
            else
                 sSql=sSql&" where  lmmc in(select lmmc from users where usr='"&session("username")&"')"
            end if
        end if