CSDN博客

img yanweidong1030

用ASP+XML实现CSDN的菜单(数据库),可分权限管理.

发表于2004/6/5 20:26:00  952人阅读

    我在开发公司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
%>








-----------------------------------------------------------------------------------------------------

源代码下载:http://www.9559.cn/more.asp?name=David&id=4

阅读全文
0 0

相关文章推荐

img
取 消
img