ASP权限代码

sub systemuser(userid,bmid2,level)
select case level
case 1 : levelstr="zt_qx1" '
case 2 : levelstr="zt_qx2" '
case 3 : levelstr="zt_qx3" '
case 4 : levelstr="zt_qx4" '
end select
msg="你的权限不够，操作被取消!"
bmid=getuser("zt_user",userid,"zt_bm",0)'
bmid5=getuser("zt_user",userid,"zt_level",0)'
bmid3=getuser("zt_bm",bmid2,"fid",0)'
bmid4=getuser("zt_bm",bmid3,"zt_sharelm",0)'
if (bmid=bmid3) or bmid4=1 or bmid5=1 then
sql="select * from zt_user_level where zt_hy="&userid&" and zt_bm="&bmid2&" and zt_level=0"
set sysrs1=conn.execute(sql)
if sysrs1.eof then
levelid=getuser("zt_user",userid,"zt_level",0)
sql="select * from zt_user_level where zt_hy="&bmid5&" and zt_bm="&bmid2&"

在线通宵等~asp浏览网页权限代码~ 权限代码 在ASP网页设计中添加什么代码实现几个管理员不同的权限 急求解：asp.net界面运行语言是VB，超链接的权限代码怎么实现？ 急急急求asp 一个管理员多个权限的代码 asp修改权限疑问 ASP权限问题？ asp实现 文件权限 asp权限问题？ ASP 权限编写问题!