ASP+ACCESS实现的无限级目录树

原创 2004年06月02日 19:34:00

演示:http://asp2004.net/temp/treemenu/

下载地址:http://asp2004.net/temp/treemenu.rar

关键代码:

<%
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
function menu(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from menu where id1="&id&" order by url,id"
rs.open sql,conn,1,1
if rs.recordcount=0 then
 rs.close
 set rs=nothing
 exit function
end if
response.write("<table border='0' cellspacing='0' cellpadding='0'>")
i=1
while not rs.eof
if len(rs("url"))>0 then
 if i=rs.recordcount then
  menutype="file1"
 else
  menutype="file"
 end if
 menuname="<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
 onmouseup=""
else
 if i=rs.recordcount then
  menutype="menu3"
  listtype="list1"
  onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu3';}else{style.display='';this.className='menu4';}"
 else
  menutype="menu1"
  listtype="list"
  onmouseup="with(eval('id"&rs("id")&"'))if(style.display==''){style.display='none';this.className='menu1';}else{style.display='';this.className='menu2';}"
 end if
 menuname=rs("menuname")
end if
%>
  <tr>
    <td class="<%= menutype%>" onMouseUp="<%= onmouseup%>"><%= menuname%></td>
  </tr>
<%if len(rs("url"))<3 then%>
  <tr id="id<%= rs("id")%>" style="display:none">
    <td class="<%= listtype%>"><%menu(rs("id"))%></td>
  </tr>
<%
end if
rs.movenext
i=i+1
wend
response.write("</table>")
rs.close
set rs=nothing
end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>=========无限级目录树=========http://bbs.asp2004.net</title>
<style type="text/css">
<!--
.menu1 {
 background-image: url(folder1.gif);
 background-repeat: no-repeat;
 height: 17px;
 left: 32px;
 padding-left: 32px;
 cursor: hand;
}
.menu2 {
 background-image: url(folder2.gif);
 background-repeat: no-repeat;
 height: 17px;
 left: 32px;
 padding-left: 32px;
 cursor: hand;
}
.menu3 {
 background-image: url(folder3.gif);
 background-repeat: no-repeat;
 height: 17px;
 left: 32px;
 padding-left: 32px;
 cursor: hand;
}
.menu4 {
 background-image: url(folder4.gif);
 background-repeat: no-repeat;
 height: 17px;
 left: 32px;
 padding-left: 32px;
 cursor: hand;
}
.list {
 padding-left: 20px;
 background-image: url(list.gif);
 background-repeat: repeat-y;
}
.list1 {
 padding-left: 20px;
}
.file {
 background-image: url(file.gif);
 background-repeat: no-repeat;
 height: 16px;
 cursor: hand;
 padding-left: 32px;
}
.file1 {
 background-image: url(file1.gif);
 background-repeat: no-repeat;
 height: 16px;
 cursor: hand;
 padding-left: 32px;
}
body {
 font-size: 9pt;
 color: #000000;
 background-color: #FFFFFF;
}
a:link {
 font-size: 9pt;
 color: #000000;
 text-decoration: none;
}
a:visited {
 font-size: 9pt;
 color: #000000;
 text-decoration: none;
}
a:hover {
 font-size: 9pt;
 color: #0000FF;
 text-decoration: none;
 position: relative;
 right: 1px;
 bottom: 1px;
}
a:active {
 font-size: 9pt;
 color: #000000;
 text-decoration: none;
}
-->
</style>
<meta name="keywords" content="asp2004,树,菜单,无限级">
<meta name="author" content="小灰,quxiaohui_0@163.com">
</head>
<body>
<a href="http://bbs.asp2004.net/" target="_blank">http://bbs.asp2004.net/</a>提供最新下载《<a href="menu.asp">管理</a>》<br>
<%
menu 0
conn.close
set conn=nothing
%>
</body>
</html>

无限级目录树数据结构前端实现

无限级目录树数据结构的前端实现
  • qq_22555107
  • qq_22555107
  • 2017年11月14日 13:40
  • 346

VB用一张数据表和TreeView控件生成无限级目录树

      之前想弄一个图片管理系统,但树形控件从未接触过,网上找到的资料也不适合自己的需要,现在无聊,就写一个用数据库建立树形目录的文章,第一次写技术文章,可能很烂,希望大家给点意见或建议!    ...
  • bllqbz
  • bllqbz
  • 2009年07月30日 13:37
  • 3663

无限级目录树--前台页面

----------------index.php----------------------------------menu_front1.js在前一个帖子上------------var judg...
  • dep_boy
  • dep_boy
  • 2006年10月31日 22:25
  • 706

利用Ajax实现无限级目录树(.NET)

使用了AjaxPro框架,感觉还是比较好用。比较符合自己的习惯,整个代码不难。是利用CSS实现的。家里的电脑上不能安装MS SQL,索性就用MySQL。顺路学习了一下使用MySql的Function。...
  • zlz_212
  • zlz_212
  • 2006年05月29日 10:34
  • 2082

dTree无限级目录树和JQuery同步ajax请求

以前都是用JQuery对树的支持来实现目录树的,近来闲来无事就弄了下dTree,感觉其无限级目录还是挺好的,而且它的使用也比较方便,基本上就是先把要用的js文件即dtree.js和css文件dtree...
  • zylzb
  • zylzb
  • 2014年10月27日 17:26
  • 1012

c#生成无限级目录树

TreeView tvFile = new TreeView();  ///   /// 创建根基目录,比如:XX的权限设置  ///   public void MakeRoot()  {   th...
  • ljbshiyoudaxue
  • ljbshiyoudaxue
  • 2007年06月26日 11:28
  • 631

使用TreeView实现无限级扩展节点(原创)

功能实现要求:操作环境vb.net和oracle9i 由于数据量很大,所以不能利用rs结果集一次读出,在往treeview节点上填充。需要填充树型节点的字段内数据形式为以"."分割如:01   01....
  • yun15291li
  • yun15291li
  • 2005年03月25日 23:49
  • 995

无限级目录树

 --------------------------------------// JavaScript Documenttreedata = new Array();path  = "";var i...
  • dep_boy
  • dep_boy
  • 2006年10月31日 22:20
  • 685

PHP+JS无限级可伸缩菜单详解(递归方法)

PHP+JS无限级可伸缩菜单详解(递归方法)一般在CMS系统后台中都要用到的类别管理部分的精华--无限级分类菜单,对于新手来说,这个可能有一定难度,但是今天听完我细细道来,相信以后大家就都会弄这东东了...
  • fkedwgwy
  • fkedwgwy
  • 2008年06月18日 13:37
  • 3096

存储过程实现无限级分类(1)

    在做考题的的时候,涉及到分类,虽然不是无限级的,但是,为了以后扩展用,想做成无限级,在网上找找了,一个用存储过程作的,虽然添加,编辑,移动,用的是存储过程,可是在读出来的时候只用了一条Sele...
  • xbf321
  • xbf321
  • 2007年05月23日 15:22
  • 733
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP+ACCESS实现的无限级目录树
举报原因:
原因补充:

(最多只允许输入30个字)