module.asp

这是我自己设计的一个资源管理系统

<title>资源管理系统</title><%
dim userID,roleID,menuID,rightV,rightV0
userID=session("userID")
menuID=request("menuID")
set conn=server.CreateObject("adodb.connection")
conn.open"DBSource","sa",""

if userID=0 then
  response.Redirect("message.asp?msg=对不起，您还没登录呢")
else
  sql="select role_id from TUserRole where user_id="&userID
  set rs=conn.execute(sql)
  rightV=0
  do until rs.eof 
    roleID=rs("role_id")
    set rs1=conn.execute("select rm_value from TRoleRight where role_id='"&roleID&"' and menu_id="&menuID)
    if not rs1.eof then
      rightV0=rs1("rm_value")
	  if rightV<rightV0 then
	    rightV=rightV0
	  end if
    end if
    rs.movenext
  loop

  if rightV=0 then 
    response.Redirect("message.asp?msg=对不起，您没有此权限")
  else 
    session("rightV")=rightV
	response.Redirect("browseModule.asp")
  end if
end if
%>