收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 1660|回复: 2

[asp] 帮我看看为什么这个树形菜单不可展开???

[复制链接]
发表于 2009-5-11 16:05:53 | 显示全部楼层 |阅读模式
  1. Function Folder(id)
  2.   Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType,ViewFlag
  3.   Set rs=server.CreateObject("adodb.recordset")
  4.   sql="Select * From liangjing_ProductSort where ViewFlag"&Language&" and ParentID="&id&" order by id"
  5.   rs.open sql,conn,1,1
  6.   if id=0 and rs.recordcount=0 then
  7.     response.write ("No Information!")
  8.     response.end
  9.   end if  
  10.   i=1
  11.   response.write("<table border='0' cellspacing='0' cellpadding='0'>")
  12.   while not rs.eof
  13.     ChildCount=conn.execute("select count(*) from liangjing_ProductSort where ParentID="&rs("id"))(0)
  14.     if ChildCount=0 then
  15.           if i=rs.recordcount then
  16.             FolderType="SortFileEnd"
  17.           else
  18.             FolderType="SortFile"
  19.           end if
  20.           FolderName=rs("SortNameEn")&"&nbsp;"&ViewFlag
  21.           onMouseUp=""
  22.     else
  23.           if i=rs.recordcount then
  24.                  FolderType="SortEndFolderOpen"
  25.                 ListType="SortEndListline"
  26.                 onMouseUp="EndSortChange('a"&rs("id")&"','b"&rs("id")&"');"
  27.           else
  28.                 FolderType="SortFolderOpen"
  29.                 ListType="SortListline"
  30.                 onMouseUp="SortChange('a"&rs("id")&"','b"&rs("id")&"');"
  31.           end if
  32.           FolderName=rs("SortNameEn")&"&nbsp;"&ViewFlag
  33.     end if
  34.     response.write("<tr>")
  35.     response.write("<td nowrap id='b"&rs("id")&"' class='"&FolderType&"' onMouseUp="&onMouseUp&"></td><td nowrap><a href=""ProductList.asp?SortID="&rs("ID")&""">"&FolderName&"</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")       
  36.     response.write("</td></tr>")
  37.     if ChildCount>0 then
  38. %>
  39.       <tr id="a<%= rs("id")%>" style="display:none"><td class="<%= ListType%>" nowrap></td><td ><% Folder(rs("id")) %></td></tr>
  40. <%
  41.     end if
  42.     rs.movenext
  43.     i=i+1
  44.   wend
  45.   response.write("</table>")
  46.   rs.close
  47.   set rs=nothing
  48. end Function
  49. //分类节点展开和折叠-------------------------------------------------------------------
  50. function EndSortChange(a,b)
  51. {
  52.         if(eval(a).style.display=='')
  53.         {
  54.                 eval(a).style.display='none';
  55.                 eval(b).className='SortEndFolderOpen';
  56.         }
  57.         else
  58.         {
  59.                 eval(a).style.display='';
  60.                 eval(b).className='SortEndFolderClose';
  61.         }
  62. }
  63. function SortChange(a,b)
  64. {
  65.         if(eval(a).style.display=='')
  66.         {
  67.                 eval(a).style.display='none';
  68.                 eval(b).className='SortFolderOpen';
  69.         }
  70.         else
  71.         {
  72.                 eval(a).style.display='';
  73.                 eval(b).className='SortFolderClose';
  74.         }
  75. }

复制代码
 楼主| 发表于 2009-5-11 16:08:41 | 显示全部楼层
<div class="page_Folder"><%=Folder(0)%></div>
调用后,打不开下级菜单???怎么回事?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-5-11 22:46:13 | 显示全部楼层
已解决,原来是CSS没处理好.
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-11-24 23:08 , Processed in 0.077930 second(s), 9 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表