这个树状菜单不能自动收缩,如何修改。点击一级目录收缩,再点击一下就展开
<%
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 " "
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)&"&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>