[精] [原创] ASP递归无极限菜单树(页 1) - ASP技术论坛 - 编程论坛

阳光白雪 发表于 2005-11-24 14:54

[精] [原创] ASP递归无极限菜单树

[attach]3856[/attach] 
<DIV class=quote><% '************************************************************** '************************************************************** '**版本：Toumh无极限菜单树 ** '**编号：TOUMH-20051124 ** '**作者：阳光白雪 ** '**主页：<a href="http://www.ec2002.com/" target="_blank" >http://www.ec2002.com</A> ** '**邮件：<a href="mailto:chenmanyi0818@126.com" target="_blank" >chenmanyi0818@126.com</A> ** '**声明：转载或使用时请保留程序的完整性，请保留以上信息。 ** '** 禁止用于任何商业用途！ ** '************************************************************** '************************************************************** dataurl=Server.MapPath("menutree.mdb")'数据库地址 dim conn,strQuery,rs set conn = server.CreateObject("adodb.connection") conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&dataurl strQuery="select * from menufun" set rs=server.createobject("adodb.recordset") rs.open strQuery,conn,1,1 allnum=rs.RecordCount '取得最大的层数MaxLevel MaxLevel=1 for i=1 to allnum if rs("PartLevel")>MaxLevel then MaxLevel=rs("PartLevel") else MaxLevel=MaxLevel end if rs.movenext next rs.close set rs=nothing %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>Toumh无极限菜单树</title> <style type="text/css">  </style> <script language="javascript">  </script> </head> <body bgcolor="#6699CC" topmargin="0"> <table border="0" cellpadding="0" cellspacing="0"> <tr onClick="javascript:divshow(1,0,1);" style="cursor:hand"><TD><img src="images/admin.gif">Toumh无极限菜单树</TD></tr> <% dim toumh(10) '定义用于存放菜单前显示树图片的数组，如果应用时的最大级数大于十，请扩大数组维数 call menutree(1,0,MaxLevel,1)'首次调用菜单输出函数 '第一个参数：菜单的级数 '第二个参数：父菜单的ID，一级菜单默认为零 '第三个参数：菜单的最大级数 '第四个参数：用于区分层的名称，方便实现菜单的展开合并 %> </table> <% 'funno 菜单的级数 'funcid 父菜单的ID，一级菜单父级ID值为0 'MaxLevel 菜单的最大级数 'divno 用于区分层的名称，方便实现菜单的展开合并 'menutree() 数形菜单输出函数 function menutree(funno,funcid,MaxLevel,divno) dim rsfun,numfun,funcidfun strQuery1="select * from menufun where sup_funcid='"&funcid&"'" set rsfun=server.createobject("adodb.recordset") rsfun.open strQuery1,conn,1,1 numfun=rsfun.RecordCount response.Write("<tr><td>") response.Write("<div id='div"&funno&funcid&divno&"' style='display:none'>")'输出层，并根据相关参数给层定义唯一的ID名称 response.Write("<table border='0' cellpadding='0' cellspacing='0'>") for j=1 to numfun funcidfun=rsfun("funcid") if j=numfun then '判断是否是本级菜单的最后一个 toumh(funno)="space.gif" '是则输出空白图片space.gif else toumh(funno)="line_v.gif" '否则输出竖线图片line_v.gif end if '判断是否有下级菜单 strQuery2="select * from menufun where sup_funcid='"&funcidfun&"'" set rsfun2=server.createobject("adodb.recordset") rsfun2.open strQuery2,conn,1,1 numfun2=rsfun2.RecordCount '如果numfun2>0则有，反之则无 if numfun2 > 0 then response.Write("<tr onClick='javascript:divshow("&funno+1&","&funcidfun&","&j&");' style='cursor:hand'>") '用单击事件调用展开/合并菜单函数 else response.Write("<tr style='cursor:hand'>") end if response.Write("<td>") if numfun2 > 0 then treeico="open_normal.gif" if j=numfun then treeico="open_end.gif" end if else treeico="none_normal.gif" if j=numfun then treeico="none_end.gif" end if end if for m=1 to cint(funno)-1 '根据当前菜单的级数输出菜单前的数形图片 response.Write("<img src='images/"&toumh(m)&"' align='absMiddle'>") next if not rsfun("enable") then '判断菜单项是否可用，不可用的菜单名用#FF0000色显示 response.Write("<img src='images/"&treeico&"' align='absMiddle'>"&rsfun("funcname")&"")'输出不可用菜单名 else response.Write("<img src='images/"&treeico&"' align='absMiddle'>"&rsfun("funcname"))'输出可用菜单名 end if response.Write("</td>") response.Write("</tr>") if cint(funno)<cint(MaxLevel) then call menutree(cint(funno)+1,funcidfun,MaxLevel,j) '递归调用 menutree()函数 end if rsfun.movenext next 'response.Write("</td></tr>") response.Write("</table></div>") response.Write("</td></tr>") end function %>  </body> </html></DIV>
<DIV class=quote>数据库字段说明： 字段名称数据类型字段说明 -------------------------------------------------- funcid 自动编号菜单id funcname 文本菜单名 link_url 文本连接地址 PartLevel 文本分级编号(级别) sup_funcid 数字父菜单ID(一级菜单为0) fun_no 数字菜单排序 enable 是/否是否可用
（在下载数据库中带有注释。） </DIV>
[align=right][color=#000066][此贴子已经被作者于2007-3-9 14:53:13编辑过][/color][/align]

阳光白雪 发表于 2005-11-24 15:47

一夜的心血啊，不要沉了，顶一下~~~~~~~~~ 前两天都在要这东西，怎么现在也没人看了~~~ 我顶！我顶顶！！我顶顶顶！！！……[em11][em11]
[align=right][color=#000066][此贴子已经被作者于2005-11-24 17:04:10编辑过][/color][/align]

islet 发表于 2005-11-24 15:54

这里的人大部分是根据自己需要来看 等以后有人需要的时候又该问了

caiyakang 发表于 2005-11-27 23:52

太好了，我正想找的！！

静夜思 发表于 2005-11-28 00:04

强帖 收藏

超级之菜鸟 发表于 2005-11-28 02:31

dataurl=Server.MapPath("menutree.mdb")'数据库地址 这样使用对数据库安全吗？

阳光白雪 发表于 2005-11-28 08:55

你可以改的，这里只是一个范例！

griefforyou 发表于 2005-11-28 08:58

我很讨厌 document.all

griefforyou 发表于 2005-11-28 09:00

'取得最大的层数MaxLevel MaxLevel=1 for i=1 to allnum if rs("PartLevel")>MaxLevel then MaxLevel=rs("PartLevel") else MaxLevel=MaxLevel end if rs.movenext next rs.close set rs=nothing 我宁愿用SQL语句直接取得MaxLevel也不会用这种循环所有记录比较的方法来取。

阳光白雪 发表于 2005-11-28 09:01

我也不喜欢，以前我从不用的，不过没有办法，因为表单名称中带有参数，我试过用/document.表单名.表单元素名，可是没法实现，只能这样了！

griefforyou 发表于 2005-11-28 09:47

document.getElementById

阳光白雪 发表于 2005-11-28 09:53

<DIV class=quote>以下是引用griefforyou在2005-11-28 9:00:00的发言： '取得最大的层数MaxLevel MaxLevel=1 for i=1 to allnum if rs("PartLevel")>MaxLevel then MaxLevel=rs("PartLevel") else MaxLevel=MaxLevel end if rs.movenext next rs.close set rs=nothing 我宁愿用SQL语句直接取得MaxLevel也不会用这种循环所有记录比较的方法来取。</DIV>
是哦，很浪费资源，好象是MAX（），可是我不会用，请指点啊！

suyongtao 发表于 2005-11-28 10:41

果然是好贴收了.好好研究一下.

a123 发表于 2006-4-15 15:27

SQL的方式应该怎么修改！！ 做的非常好啊!!

danhaoran 发表于 2006-4-15 16:53

强贴做死的顶

water123456 发表于 2006-4-15 20:09

强,收单啦.[em01]

adleyliu 发表于 2006-4-15 20:49

我共享一个（转载的） 演示：<a href="http://www.115000.com.cn/liuy/txttree/dir.asp" target="_blank" >http://www.115000.com.cn/liuy/txttree/dir.asp</A> 下载：<a href="http://www.115000.com.cn/liuy/txttree/txttree.rar" target="_blank" >http://www.115000.com.cn/liuy/txttree/txttree.rar</A>

ludong248 发表于 2006-7-15 15:41

谢谢老兄了。我正需要这东西的，我实在是太感谢了。

guyer 发表于 2007-3-9 14:38

有点不明白的地方

能大概说下数据库是怎么设计的么? 每个字段的作用

dh2007 发表于 2007-3-9 14:44

先顶下，虽然我不知道什么是菜单树

页: [1] 2

编程论坛's Archiver

[精] [原创] ASP递归无极限菜单树

有点不明白的地方