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

2016-01-29 18:46 242 1 收藏

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

【 tulaoshi.com - ASP 】

 

下载地址:http://www.knowsky.com/download/treemenu.rar

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

关键代码:

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

<%
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://www.knowsky.com</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;

来源:http://www.tulaoshi.com/n/20160129/1507198.html

延伸阅读
功能实现要求: 操作环境vb.net和oracle9i   由于数据量很大,所以不能利用rs结果集一次读出,在往treeview节点上填充。 需要填充树型节点的字段内数据形式为以"."分割 如:01   01.01 01.02 01.01.01 02 02.01 02.01 ............................ 利用oracle自身instr函数,可以按"."数分割。并返回所需要的结果集,初...
标签: PHP
无限分类与树型论坛的实现方法 ――浮点型字段排序法 Joe Teng 2005.6.12 在此我不想讨论其他实现方法的利与弊。 既然是使用字段排序,那么我们便设一个名为order的字段。问题是,在这里是使用整数还是使用浮点数类型呢?考虑到会有在两个连续order值中间插入新值的可能,自然是需要使用浮点类型了。 建一个menus表,我们还需...
在类VC的界面实现中加入目录树 作者:西京大学●职业学院 井中月_VC 下载源代码 前言 本文是在《轻松类VC界面》的基础上写的,初次写文章,表义不清之处,请谅解!如果书归正传,开始……。 程序运行结果如下图:左边、底下有两个可浮动、可变大小的控制窗口 ,在左边一个Tab...
这篇可够全的! FSSTND文件系统标准的标准Linux目录树的重要部分。略述了针对不同的目的将目录树分割成独立的(分离的)文件系统的常用方法并且给出了详细分割的动机。对分割的其它方法也进行了讨论。背景这一章松散地基于本章并没有本章并没有详细解释所有的文件。目的不是描述每一个文件,而是从文件系统的观点给出一个系统概述。对于每个文...
标签: Web开发
或多或少都做过树状目录、产品分类之类的二级或三级菜单,如果遇到更多级的分类,就一般使用递归了。在程序中使用递归或多或少会增加一些性能上的开销。 之前我用ASP.net在程序中实现过非递归的无限级分类目录,但考虑到移植性不强,就改成了存储过程,发出来大家共同研究一下,到目前为止,测试过程中还没发现问题,另外,代码方面没...

经验教程

663

收藏

75
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部