我在开发公司OA系统的时候.想找一个CSDN的菜单.可是网上有这样的代码.可是不是基于数据库,也不能按权限管理.我就写了一个.我的这个.只有一个程序文件和一个数据库.文件很少,也很容易查错.但是功能完全实现了!

数据库结构:

Table:Menu

ID

parentid,int,4

MenuName,Char,20

Link,Char,50

Table:UserLevel

ID

UserID,int,4

MenuID,int,4

-------------------------------------程序源文件:MenuList.Asp------------------------------

<%

'-------------------------------'

'源创商务策划有限公司-OA系统

'模块名称：可权限控制的菜单

'-------------------------------'

set conn = Server.CreateObject("ADODB.Connection")

conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("tree.mdb")+";Persist Security Info=False")

%>

<%

Set rs = Conn.Execute("SELECT (select count(*) from Menu where Menu.parentid=x.id and Menu.ID in (SELECT UserLevel.menuid FROM UserLevel WHERE UserLevel.userid = 1)) AS children, * FROM Menu AS x WHERE x.id in (SELECT UserLevel.menuid FROM UserLevel WHERE UserLevel.userid = 1)")

Do while not rs.eof

if rs("ParentID")=0 then

Count = Rs ("children")

%>

" href="<%=rs("Link")%>" open="false" treeId="<%=rs("ID")%>">

<%

rs.MoveNext

end if

for i=1 to Count

%>

" href="<%=rs("Link")%>" open="false" treeId="<%=rs("ID")%>">

<%

Rs.MoveNext

Next

Response.write("")

Loop

rs.close

Conn.close

Set rs = Nothing

Set Conn = Nothing

%>