散200分，征集带权限管理功能的目录树！

snower01 2004-09-29 08:25:20

由于本人太菜同时现在需要带权限管理功能的目录树，特散分求代码。
谢谢！

...全文

496 43 打赏收藏转发到动态举报

写回复

用AI写文章

43 条回复

切换为时间正序

请发表友善的回复…

发表回复

oklhj 2004-12-27

打赏
举报

wsflyfish 2004-12-14

打赏
举报

ding

look4sword 2004-12-14

打赏
举报

晕，我改的阿信的tree，刚把权限取掉。
我用在论坛里的。
http://mjdn.net/produce/trees

yqh1314 2004-12-14

打赏
举报

人才济济 ````````````````

522jack 2004-12-14

打赏
举报

JasonJHu 2004-12-14

打赏
举报

支持

zlj113 2004-12-14

打赏
举报

laihua 2004-12-14

打赏
举报

有没有用ADO.NET的版本

wxf0104 2004-12-08

打赏
举报

<%
function menu(id)
menuid=Session("MenuID")
set rs=server.CreateObject("adodb.recordset")
sql="select * from menu where id1="&id&" order by url,id"
rs.open sql,cnn,1,1
response.write("<table border='0' cellspacing='0' cellpadding='0'>"&chr(13))
i=1
while not rs.eof
ChildCount=cnn.execute("select count(*) from menu where id1="&rs("id"))(0)
if ChildCount=0 then
if i=rs.recordcount then
menutype="file1"
else
menutype="file"
end if
menuname="<a href='"&rs("url")&"' target='mainright'>"&rs("menuname")&"</a>"
onmouseup=""
else
if i=rs.recordcount then
menutype="menu3"
listtype="list1"
onmouseup=" onMouseUp=change1('a"&rs("id")&"','b"&rs("id")&"');"
else
menutype="menu1"
listtype="list"
onmouseup=" onMouseUp=change2('a"&rs("id")&"','b"&rs("id")&"');"
end if
menuname=rs("menuname")
end if
Response.Write("<tr><td id='b"&rs("id")&"' class='"&menutype&"'"&onmouseup&">"&menuname&"</td></tr>"&chr(13))
if ChildCount>0 then
Response.Write("<tr id='a"&rs("id")&"' style='display:none'><td class='"&listtype&"'>"&chr(13))
menu(rs("id"))
Response.Write("</td></tr>"&chr(13))
end if
rs.movenext
i=i+1
wend
response.write("</table>"&chr(13))
rs.close
set rs=nothing
end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无限级目录树</title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language="javascript" src="function.js"></script>
</head>
<body background="images/left_bg_829.gif">

<%
menu 0
cnn.close
set cnn=nothing
%>
</body>
</html>

模块表结构：
id是自动，id1是父ID
menu表
id id1 menuname url
1 0 aa a.asp
2 0 bb b.asp
3 1 cc
4 2 dd
5 1 ee

权限控制：
表power
另一权限表
id name menuid
1 超管组 1，2，3，4，5
2 新闻管组 2，3，5

用户表：

id name powerid
1 a 1
2 b 2

哪个用户属于哪个权限组，就有此组的所有权限，将以上目录树程序中加上id in("&menuid&"),再用递归算出子类，循环后打印出来即是带权限管理的无限级目录树了。

newmsoft 2004-12-08