[QUOTE] if not rsfun("enable") then '判断菜单项是否可用,不可用的菜单名用#FF0000色显示
response.Write("<img src='images/"&treeico&"' align='absMiddle'><font color='#ff0000'>"& rsfun("funcname") &"</font>")'输出不可用菜单名
Else
If numfun2 > 0 Then ''如果有子菜单则不添加连接
response.Write("<img src='images/"&treeico&"' align='absMiddle'>"& rsfun("funcname"))'输出可用菜单名
Else
response.Write("<img src='images/"&treeico&"' align='absMiddle'><A href="""& rsfun("link_url") &""" target=""_blank"">"& rsfun("funcname") &"</a>")'输出可用菜单名
End If
end if[/QUOTE]