寻找高级菜单


<script LANGUAGE="javascript">
<!--
function switchstatus(obj,imgobj){  
      if (document.all(obj).style.display=='none'){
          document.all(obj).style.display='block'; 
          document.all(imgobj).src='../image/menu_open.gif';                           
      }else{
          document.all(obj).style.display='none';          
          document.all(imgobj).src='../image/menu_close.gif';                           
      }                        
  }
-->
</script><body>
      <table align="center" width="367" class="InputFrameMain">        <form method="POST" id="formSV" name="formSV" action="yhgl_save.asp">
          <input name="BMBH" type="hidden" value="09">
          <input type="hidden" name="yxgnmk">
          <input type="hidden" name="ZWBH" value="">
          <tr>
            <td width="381" valign="top">
              <table width="98%" align="center" border="0" cellpadding="0" cellspacing="0"  class="tableframe">
                <tr class=listrow1>
                  <td  align="center" colspan="30"> <div align="center">树</div></td>
                </tr>
                <tr class=listrow1>
                  <td colspan="30" align="center" class="listcellrow">
                    <div align="center" >
                      <table width="103%" class="tableframe" align="center" border="0" cellpadding="0" cellspacing="0" id="qxmain" name="qxmain" >
                        
                        <tr class=listrow1>
                          <td  width="30" class="listcellrow">
                            <input type="checkbox" name="MENUCHECK01" value="01" language="vbscript" onclick="call menuclickc('MENUCHECK01')">
                          </td>
                          <td class="listcellrow" colspan="5"> <font size="2"> <img src="../image/menu_close.gif" border="0" id="img_01" style="cursor:hand" WIDTH="16" HEIGHT="16" onclick="javascript:switchstatus('M01','img_01');" alt="展开查看明细"> &nbsp;A</font></td>
                        </tr>
                        <tbody id="M01" style="Display:none">
                          
                          <tr class=listrow1>
                            <td class="listcellrow" width="30">&nbsp; </td>
                            <td td width="30" align="center" class="listcellrow">
                              <div align="center">
                                <font size="1">
                                <input type="checkbox" name="CHECK0101" value="0101,01" language="vbscript" onclick="call menuclick('CHECK0101')"></font><font size="2">
</font>
                            </div></td>
                            <td class="listcellrow" colspan="4"> <font size="2">&nbsp;A1</font></td>
                          </tr>
                          
                          <tr class=listrow2>
                            <td class="listcellrow" width="30">&nbsp; </td>
                            <td class="listcellrow" width="30"><font size="2">&nbsp; 
</font> </td>
                            <td width="30" align="right" class="listcellrow">
                              <div align="center">
                                <font size="1">
                                <input type="checkbox" name="CHECK010101" value="010101"></font><font size="2">
</font>
                            </div></td>
                            <td class="listcellrow" width="71"> <font size="2">
A11 </font> </td>
                            
                            <td width="30" align="right" class="listcellrow">
                              <div align="center">
                                <font size="1">
                                <input type="checkbox" name="CHECK010102" value="010102"></font><font size="2">
</font>
                            </div></td>
                            <td class="listcellrow" width="71"> <font size="2">
A12</font></td>
                            
                          </tr>
                          
                          <tr class=listrow1>
                            <td class="listcellrow" width="30">&nbsp; </td>
                            <td td width="30" align="center" class="listcellrow">
                              <div align="center">
                                <font size="1">
                                <input type="checkbox" name="CHECK0102" value="0102,01" language="vbscript" onclick="call menuclick('CHECK0102')"></font><font size="2">
</font>
                            </div></td>
                            <td class="listcellrow" colspan="4"> <font size="2">&nbsp;A2
</font> </td>
                          </tr>
                          
                          <tr class=listrow2>
                            <td class="listcellrow" width="30">&nbsp; </td>
                            <td class="listcellrow" width="30"><font size="2">&nbsp; 
</font> </td>
                            <td width="30" align="right" class="listcellrow">
                              <div align="center">
                                <font size="1">
                                <input type="checkbox" name="CHECK010201" value="010201"></font><font size="2">
</font>
                            </div></td>
                            <td class="listcellrow" width="71"> <font size="2">
A21</font></td>
                            
                            <td width="30" align="right" class="listcellrow">
                              <div align="center">
                                <font size="1">
                                <input type="checkbox" name="CHECK010202" value="010202"></font><font size="2">
</font>
                            </div></td>
                            <td class="listcellrow" width="71"> <font size="2">
A22</font></td>
                            
                          </tr>
                          

                        </tbody>
                        
                        <tbody id="M02" style="Display:none">
                          

                        </tbody>
    
   </table>
<input type="hidden" name="bxrylb" id="bxrylb" value="">
</form><script LANGUAGE="vbscript">
<!--
sub menuclick(obj)
dim m,flag
for each m in  document.formSV.elements
if m.name=obj then
flag=m.checked
exit for
end if
next
for each m in  document.formSV.elements
if left(m.name,5)="CHECK" then
if left(m.value,4)=right(obj,4) then
m.checked=flag    
end if  
end if  
next
end sub
-->
</script><script LANGUAGE="vbscript">
<!--
sub menuclickc(obj)
dim m,flag
for each m in  document.formSV.elements
if m.name=obj then
flag=m.checked
exit for
end if
next
for each m in  document.formSV.elements
if left(m.name,5)="CHECK" then
if left(m.value,2)=right(obj,2) then
m.checked=flag    
end if  
end if  
next
end sub
--></script>
</body></html>