| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 870 人关注过本帖
标题:[求助]如何修改树状菜单自动收缩
取消只看楼主 加入收藏
hbsxxmm
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-2-18
收藏
 问题点数:0 回复次数:0 
[求助]如何修改树状菜单自动收缩

这个树状菜单不能自动收缩,如何修改。点击一级目录收缩,再点击一下就展开
<%
Dim reBoard_Setting,MoreMenu
Dim classrow,iii
%>

<body bgcolor="#D6D3CE" style="font-size: 10pt">
<table border="1" width="110%" id="table1" cellspacing="0" style="border-collapse: collapse" bgcolor="#FFFFFF" cellpadding="0">
<tr>
<th align="center">
<p style="margin-top: 0"><font size="2" color="#FF0000">纳税人基本情况</font></th>
</tr>
</table>
<table width="122%" cellspacing="0" cellpadding="0" align=left class="tableBorder" size=2 color="#FF0000">
<font >
<table border="0" width="100%" id="table2">
<tr><td>
<%
SQL="select nsrid,tax_name,parentid,depth,child,ParentStr,tax_no from nsr_info order by rootid,orders"
SET Rs = Conn.Execute(SQL)
If Rs.eof Then
response.write"<br><br><br><center>目前没有信息!</center>"
response.end
Rs.close:Set Rs = Nothing
Else
SQL=Rs.GetRows(-1)
Rs.close:Set Rs = Nothing
For iii=0 To Ubound(SQL,2)
reBoard_Setting=split(SQL(5,iii),",")
Response.Write "<tr>"
Response.Write "<td height=""10"" width=""55%"" class="
Response.Write ">"
if SQL(3,iii)>"0" then
for i=1 to SQL(3,iii)
Response.Write "&nbsp;&nbsp;"
next
end if

if SQL(4,iii)>"0" then
Response.Write "<img src=""img/plus.gif"">"
else
Response.Write "<img src=""img/minus.gif"">"
end if
if SQL(2,iii)="0" then
Response.Write "<b>"
end if
Response.Write "<a style='text-decoration: none' href=nsr_edit.asp?nsrid="&SQL(0,iii)&"&amp;tax_no="&sql(6,iii)&" target='I2'>"
Response.Write SQL(1,iii)
Response.Write "</a>"
if SQL(4,iii)>"0" then
Response.Write "["
Response.Write SQL(4,iii)
Response.Write "]"
end if
%><%
MoreMenu=""
Next
End If
%>

 </table></font>
</td>
</tr>
</table>

搜索更多相关主题的帖子: 菜单 自动 
2006-03-13 11:06
快速回复:[求助]如何修改树状菜单自动收缩
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019447 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved