做的基本上可以实现了 谢谢你啊!

不错，强。可是发现link_url这个字段没有用到，不知放在哪里可以实现超级链接。哪位能否再修一下。让它实现超链接。

funcid 自动编号 菜单id
funcname 文本 菜单名
link_url 文本 连接地址
PartLevel 文本 分级编号(级别)
sup_funcid 数字 父菜单ID(一级菜单为0)
fun_no 数字 菜单排序
enable 是/否 是否可用

我改了一下。还是实现不了超链接。请大家再帮忙改改。

if not rsfun("enable") then '判断菜单项是否可用，不可用的菜单名用#FF0000色显示
response.Write("<img src='images/"&treeico&"' align='absMiddle'><font color='#ff0000'>"&rsfun("funcname")&"</font>")
'输出不可用菜单名
else
response.Write("<img src='images/"&treeico&"' align='absMiddle'><a href='"& Rsfun("link_url") &"'>"&rsfun("funcname")&"</a>")

'输出可用菜单名
end if