请问那位大侠可以提供用ASP实现树型结构的思路及代码?

afflatus80 2003-08-25 04:10:24
使用SQLSERVER2000数据库
...全文
47 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
超级大笨狼 2003-09-13
  • 打赏
  • 举报
 回复
仿照csdn左面的菜单的ASP+数据库无限级树菜单代码分享

近来问无限级数据库树菜单人很多，我就自己做了一个仿照csdn左面的菜单，自己暂时不用，完全是给大家分享的，要数据库和代码文件请到www.ymdg.com/tree.rar下载，如果有人提供空间存放那是最好了。
本文完全采用大家熟悉的ASP（VBS）制作，过写日子我再写一个基于XML技术的给大家。
QQ:28963147,email:panyuguang962@sohu.com
感谢CSDN和全体网友！
说明：
Access数据库
● 数据库名：tree
● 表名：tree
● 字段名的设计
ID 文本类型 编码
Name 文本类型 节点文字
HyperLink 文本类型 相关信息
---------------------------------------------------
ID | Name | HyperLink
---------------------------------------------------
1_1_1 | ASP | http://www.csdn.net
---------------------------------------------------
1_1_1_1 | DHTML | http://www.csdn.net
---------------------------------------------------
1_2_2 | JAVA | http://www.csdn.net
---------------------------------------------------
1_1_2 | JavaScript | http://www.csdn.net
---------------------------------------------------
1_2_1 | VB | http://www.csdn.net
---------------------------------------------------
1_2_1_2 | VBA | http://www.csdn.net
---------------------------------------------------
1_1 | WEB开发 | http://www.csdn.net
---------------------------------------------------
1 | WWW.CSDN.net | http://www.csdn.net
---------------------------------------------------
1_2_1_1 | 基础类 | http://www.csdn.net
---------------------------------------------------
1_3_1 | 基础类 | http://www.csdn.net
---------------------------------------------------
1_2 | 开发语言 | http://www.csdn.net
---------------------------------------------------
1_1_1_2 | 内建对象 | http://www.csdn.net
---------------------------------------------------
1_3 | 数据库 | http://www.csdn.net
----------------------------------------------------
文件：nolimited.asp经简单测试好用！代码如下：
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>asp树的研究</title>
</head>
<style type="text/css">
<!--
.aa {
font-size: 14px;
color: #000000;
text-align: center;
vertical-align: middle;
letter-spacing: 0px;
word-spacing: 0px;
}
-->
</style>
<body bgcolor="DEE3F7">
<%
dim cn,rs,SQL ,Para,NumChild
set cn=server.CreateObject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
set rs1=server.createobject("ADODB.recordset")
cn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tree.mdb")
SQL="Select * from tree order by ID"
rs.open SQL,cn,3,2
do while not rs.EOF
SQL="Select ID from tree where ID like '" & rs("ID") & "%' and ID<>'" & rs("ID") & "' order by ID"
Para=rs("ID") & "|"
NumChild=0
rs1.open SQL,cn, 3,2
NumChild=rs1.RecordCount
do while not rs1.EOF
Para =Para & rs1("ID") & "|"
rs1.MoveNext
loop
Para=cstr(trim(left(Para,len(Para)-1)))
rs1.Close
%>
<table id="T<%=rs("ID")%>"
border=1
cellpadding=0
cellspacing=0
bordercolor="#DEE3F7"
class="aa"
abbr="<%=Para%>"
summary=<%=checkid(rs("ID"))%>
style="cursor:hand"
onClick="vbs:subtree '<%=Para%>'" >

<tr>
<td width="<%=17+checkid(rs("ID"))*20%>"
height="20" align="right">
<table width="20" height="20" border="1" cellpadding="0" cellspacing="0" bordercolor="#DEE3F7">
<tr>

<td align="center" valign="middle" bordercolor="#000000" id="R<%=rs("ID")%>" ><%if NumChild=0 then Response.Write "." else Response.Write "-"%></td>
</tr>
</table>
</td>

<td height="20"
nowrap
bordercolor="#FFFFFF"
onMouseOver="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
onMouseOut="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'"
title="<%=rs("HyperLink")%>">
<%=rs("Name")%></td>
</tr>
</table>


<%
rs.MoveNext
loop
rs.Close:set rs=nothing
cn.Close:set cn=nothing
function checkid(x)
dim Tempnum
Tempnum=0
for i=1 to len(x)
if mid(x,i,1)="_" then
Tempnum=Tempnum+1
end if
next
checkid=Tempnum
end function


%>
<script language=VBS>
sub subtree(Client_para)
if instr(Client_para,"|")=0 then exit sub
Myarray=split(Client_para,"|")
Mytext=eval("R" & Myarray(0) & ".innertext")
select case Mytext
case "+"
document.all.item("R" & Myarray(0)).innertext="-"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")=1 then
document.all.item("T" & Myarray(i)).style.display="block"
end if
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>1 then
document.all.item("T" & Myarray(i)).style.display="none"
end if
next
case "-"
document.all.item("R" & Myarray(0)).innertext="+"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>=1 then
document.all.item("T" & Myarray(i)).style.display="none"
if eval("R" & Myarray(i) & ".innertext")="-" then
document.all.item("R" & Myarray(i)).innertext="+"
end if
end if
next
end select
set Myarray=nothing
end sub

Sub document_onselectstart
document.selection.clear
End Sub

if isobject(eval("T1")) then
subtree document.all("T1").abbr
subtree document.all("T1").abbr
end if
</script>

</html>




pp4u 2003-08-26
  • 打赏
  • 举报
 回复
到网上下载阿信的树型菜单
afflatus80 2003-08-26
  • 打赏
  • 举报
 回复
谢谢.能有添加,删除等完整的代码吗?
qjrein 2003-08-25
  • 打赏
  • 举报
 回复
www.redimachine.com/gov/tree.rar
把access数据库所有的表导到sql里，再改一下连接文件conn.asp就可以了
JavaScript应用177例
实例代码： 第1章（\cha01） 1.1.htm 自动类型转换 1.2.htm 显式类型转换 1.3.htm 提升基本类型为对象 第2章（\cha02） 2.1.htm if语句 2.2.htm switch语句 2.3.htm while循环 2.4.htm do-while循环 2.5.htm for循环 第3章（\cha03） 3.1.htm 遍历数组元素 3.2.htm 改变数组元素 3.3.htm 用对象的方式实现数组 3.4.htm 将数组转换为字符串 3.5.htm 操作数组元素 3.6.htm 实现多维数组 第4章（\cha04） 4.1.htm 求平方根 4.2.htm 求质数 4.3.htm 简单数制转换 4.4.htm 数制转换函数 4.5.htm 实现计算器 第5章（\cha05） 5.1.htm 带开关的时钟 5.2.htm 不同风格的时间显示 5.3.htm 倒计时效果 5.4.htm 模拟时钟 5.5.htm 显示农历日期 5.6.htm 温度计样式时钟 5.7.htm 位置固定的时钟 第6章（\cha06） 6.1.htm HTML事件绑定 6.2.htm 非标准事件绑定 6.3.htm 事件处理器绑定 6.4.htm 使用函数 6.5.htm 直接在表单上调用事件 第7章（\cha07） 代码说明：本章代码只能在Mozilla Firefox中运行。 7.1.htm 事件流 7.2.htm DOM2鼠标事件 7.3.htm 取消默认动作 7.4.htm 创建DOM2事件 第8章（\cha08） 8.1.htm 页面预览 8.2.htm 图像切换 8.3.htm 点亮文本 8.4.htm 鼠标跟随 8.5.htm 鼠标感应 8.6.htm 禁用鼠标按键 第9章（\cha09） 9.1.htm 文字的垂直滚动 9.2.htm 文字的渐隐渐显 9.3.htm 文字的闪烁显示 9.4.htm 文字的随意拖动 9.5.htm 文字的坠落显示 9.6.htm 页面内飘动的文字 9.7.htm 漫天飞舞的文字 9.8.htm 文字下落效果 第10章（\cha10） 10.1.htm 霓虹灯文字 10.2.htm 色彩渐变 10.3.htm 文字的渐大渐小 10.4.htm 文字大小动态变化 10.5.htm 文字变色显示 10.6.htm 打字效果显示 第11章（\cha11） 代码说明：代码11.6.htm需要IE5.5或以上版本支持 11.1.htm 随机显示 11.2.htm 打字效果 11.3.htm UBB代码实例 11.4.htm 从右至左排列的文字 11.5.htm 古汉语文字排版 11.6.htm 蒙古族文字排版 第12章（\cha12） 12.1.htm 文档颜色设置 12.2.htm 上次修改时间 12.3.htm DOM 1中的文档属性与聚集 12.4.htm 访问HTML元素属性 第13章（\cha13） 13.1.htm 按位置访问元素 13.2.htm 按名称访问元素 13.3.htm 动态修改元素内容 13.4.htm 改变的内容 13.5.htm 改变页面样式 第14章（\cha14） 14.1.htm 节点插入与追加 14.2.htm 节点复制 14.3.htm 节点删除与替换 14.4.htm 修改节点内容 第15章（\cha15） 15.1.htm HTML中的表格 15.2.htm 设置表格属性 15.3.htm 操作表格元素 15.4.htm 操作表元 第16章（\cha16） 16.1.htm 验证输入内容是否为空 16.2.htm 验证E-mail地址 16.3.htm 电话号码检测 第17章（\cha17） 17.1.htm 混合表单验证 17.2.htm onchange事件 17.3.htm 按键屏蔽 第18章（\cha18） 18.1.htm 打开窗口 18.2.htm 关闭窗口 18.3.htm 窗口写入 18.4.htm 窗口交互 18.5.htm 提示与警告对话框 第19章（\cha19） 19.1.htm 窗口移动 19.2.htm 改变大小 19.3.htm 窗口滚动 19.4.htm 设置超时 19.5.htm 窗口事件 19.6.htm IE窗口扩展 第20章（\cha20） 20.1.htm 访问框架 20.2.htm 内联框架 20.3.htm 框架间的交叉通信 20.4.htm 嵌套框架交叉通信 第21章（\cha21） 21.1.htm 图片的随机显示 21.2.htm 图像显隐 21.3.htm 图像滚动显示 21.4.htm 探照灯扫描 21.5.htm 多幅图像翻页显示 21.6.htm 水纹效果显示 21.7.htm 全景图效果 21.8.htm 手电效果 21.9.htm 雷达显示效果 第22章（\cha22） 22.1.htm 图像拖动 22.2.htm 按钮控制 22.3.htm 感应鼠标 22.4.htm 花环效果 22.5.htm 流星效果 22.6.htm 图像运动 22.7.htm 图像显示 22.8.htm 图像飞行一 22.9.htm 图像飞行二 第23章（\cha23） 23.1.htm 随机更换页面背景 23.2.htm 用户自选背景之一 23.3.htm 用户自选背景之二 23.4.htm 用户自选背景之三 23.5.htm 页面背景的闪电效果 第24章（\cha24） 24.1.htm 有图像的Media Player 24.2.htm 无图像的Media Player 24.3.htm 有图像的RealPlayer 24.4.htm 无图像的RealPlayer 24.5.htm 播放Flash文件 第25章（\cha25） 25.1.htm 位置固定的对联广告 25.2.htm 随页面滚动的对联广告 25.3.htm 全屏飘动的广告 25.4.htm 循环滚动的多幅广告 25.5.htm 漂浮3D广告 第26章（\cha26） 26.1.htm 基本的下拉菜单 26.2.htm 改进的下拉菜单 26.3.htm 渐显的下拉菜单 第27章（\cha27） 27.1.htm 折叠菜单 27.2.htm 远程菜单 27.3.htm 弹出菜单 第28章（\cha28） 28.1.htm 旋转导航菜单 28.2.htm 隐藏滑动菜单 28.3.htm 仿QQ菜单 28.4.htm 触发型导航菜单 28.5.htm 下拉列表菜单 28.6.htm 树型导航菜单 28.7.htm 变色标题菜单 第29章（\cha29） 29.1.htm 获取文本框中的内容 29.2.htm 显示和修改文字内容（DHTML） 29.3.htm 处理网页表格内容（DHTML） 29.4.htm 显示和修改网页内容（W3C） 29.5.htm 处理网页表格内容（W3C） 29.6.htm 综合应用 第30章（\cha30） 30.1.htm 显示浏览器名称与版本 30.2.htm JavaScript检测 30.3.htm 获取浏览器窗口大小 30.4.htm 设置屏幕对象的尺寸 30.5.htm 有选择地显示图片 30.6.htm 简单的性能检测 30.7.htm 模拟浏览器菜单 第31章（\cha31） 31.1.htm 实现md5加密 31.2.htm 编制自己的加密算法 第32章（\cha32） 代码说明：本章代码都具有一定危害性，可按照页面提示进行操作。 32.1.htm 字符串翻倍 32.2.htm 函数循环交叉调用 32.3.htm 无限递归调用 32.4.htm 构造无限数组 32.5.htm 载入超大图像 32.6.htm 关不掉的对话框 32.7.htm 一直弹出新窗口 第33章（\cha33） 代码说明： 1.代码33.1.htm须使用IE浏览器打开 2.代码33.2.htm须使用Mozilla Firefox浏览器打开 33.1.htm 使用IE处理XML 33.2.htm 使用Mozilla处理XML 33.3.htm XML文件内容分页显示 第34章（\cha34） 34.1.htm 格式化输出 34.2.htm 动态增删记录 第35章（\cha35） 代码说明： 1.对于代码35.1.htm，使用Mozilla Firefox浏览器可直接运行，如果使用IE浏览器，需要在服务器端运行。 2.对于代码35.2.html，需要IIS+PHP+MySQL或Apache+PHP+MySQL环境支持 35.1.htm 读取XML文档 35.2.html 实现联动选择 35.3.htm 实现菜单特效 第36章（\cha36） 代码说明： 1.代码36.1.index.php需要IIS+PHP环境或Apache+PHP环境支持 2.代码Default.aspx需要IIS+ASP.net环境支持 \36.1\ 36.1.index.php 实现简单相册 \36.2\ Default.aspx 实现文本聊天室
用程序写入到TREEVIEW 怎样在aspx实现象ie收藏夹那样的功能
主　　题：怎样在aspx实现象ie收藏夹那样的功能？300分各位大侠，请问怎样在aspx实现象ie收藏夹那样的功能？菜单都放在这夹里，收放可以用按钮控制，谢谢了！回复人： houbinbin() ( ) 信誉：95 2002-10-24 17:08:14Z 得
用WinInet开发Internet客户端应用指南
实现步骤大家知道，每个Internet客户端程序都伴随有一定的目的行为，如读文件、写文件、删除文件等等。客户端的程序要实现这些行为的先决条件是建立Internet连接。然后再根据不同的目的进行具体的操作。为了方便起见，下面这这些张表格针对不同的应用行为列出了所需要的具体操作。其中列出了一般的Internet URL (FTP、或者 HTTP)客户端行为要实现某个目标所必须使用的方法。这张表格的内容...
Dvbbs 在其他页面 调用 Dvbbs 目录下的数据, 如最近一个月的最新帖子 (基于此帖成功)...
DVBBS首页调用详解http://www.free88.net/blog/article.asp?id=644 很多人都在问社区首页调用怎么设置，其实这是很简单的。在动网论坛虽然也有介绍这方面的文章，但都不是很系统，可能因为太简单而无人来写吧，正好无语今天有空，花了两个多小时写了这篇首页调用的文章，希望对初学者有所帮助，自认为大侠的老鸟们就别来凑热闹了，呵呵！！ 其实，关于首...
java问题集锦
1、面向对象的特征有哪些方面   1.抽象：抽象就是忽略一个主题中与当前目标无关的那些方面，以便更充分地注意与当前目标有关的方面。抽象并不打算了解全部问题，而只是选择其中的一部分，暂时不用部分细节。抽象包括两个方面，一是过程抽象，二是数据抽象。 2.继承：继承是一种联结类的层次模型，并且允许和鼓励类的重用，它提供了一种明确表述共性的方法。对象的一个新类可以从现有的类中派生，这个过程称为类继承。
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章