asp树型菜单函数（原创）

最新推荐文章于 2019-01-08 06:18:31 发布

ycl111

最新推荐文章于 2019-01-08 06:18:31 发布

阅读量2.1k

点赞数

分类专栏： asp 文章标签： asp layer border tree javascript function

本文链接：https://blog.csdn.net/ycl111/article/details/133548

版权

asp 专栏收录该内容

22 篇文章 0 订阅

订阅专栏

<%function ShowTreeMenu(rs001,layer)
if not rs001.eof then
%>
  <script language="javascript">
   
  </script>
<table border="0" cellspacing="0" cellpadding="0">
<%
i=1
while not rs001.eof
sql="select * from menu where parent_id="&rs001("id")
set result_sub=result(sql)
  if not result_sub.eof then
  img="img"&layer&"_"&i
  subtree="subtree"&layer&"_"&i
  %>
    <tr>
   <td width="12"><IMG src="tree_collapse.gif" border="no" name="<%=img%>" οnclick="javascript:display1(document.all.<%=subtree%>,document.all.<%=img%>);" ></td>
   <td><%=rs001("nam")%></td>
    </tr>
    <tr id="<%=subtree%>">
   <td> </td>
   <td>
  <%
  layer=layer+1
  ShowTreeMenu result_sub,layer
  layer=layer-1
  else
   if rs001("url")<>"" then
   %>
     <tr>
    <td width="12"><IMG src="tree_collapse.gif" border="no"></td>
    <td><%=rs001("nam")%></td>
     </tr>
   <%
   else
   %>
     <tr>
    <td width="12"><IMG src="tree_collapse.gif" border="no"></td>
    <td><%=rs001("nam")%></td>
     </tr>
   <%
   end if
  end if
rs001.movenext
i=i+1
wend
%>
</table>
<%
end if
end function
%>