czqx_menutree.asp

OFFICE办公自动化

<SCRIPT language="JavaScript">
function del_sort(temp){
      var msg=window.confirm ("该栏目下的权限信息也会被删除,\n你真的要删除该栏目吗?");
      if(msg==true){
          document.delform.number.value=temp;     
          document.delform.submit();  
      }       
}

function chang_sort(id,sort_name){
  document.frm_edit.number.value=id;
  old_title.innerText=sort_name;
  document.frm_edit.title.value=sort_name;
}

</SCRIPT>

<TABLE width=100% style="FONT-SIZE: 9pt; FONT-FAMILY: 'Verdana', '宋体'" cellSpacing=0 cols=5 cellPadding=0 width=250 border=0>
  <TBODY> 
  <FORM name=delform action=czqx_manage_sort_ok.asp method=post>
    <TR> 
      <TD width=17><IMG src="../images/tree_collapse.gif" 
                        border=no></TD>
      <TD colSpan=2>栏目名</TD>
      <TD width="82">操作</TD>
    </TR>
    <%set myrs_child=server.CreateObject("adodb.recordset")
      myrs_child.Open "select Number,Title,Mod from tbioaRoleRightsType order by Number",oConn,1,1
      if myrs_child.RecordCount>0 then 
          for j=1 to myrs_child.RecordCount%>
    <TR> 
      <TD width=17> 
        <%if j=myrs_child.RecordCount then%>
        <IMG src="../images/tree_end.gif"> 
        <%else%>
        <IMG src="../images/tree_split.gif"> 
        <%end if%>
      </TD>
      <TD width=17><IMG height=16 src="../images/tree_leaf.gif" width=15 border=0></TD>
      <TD>
        <%if myrs_child("mod")<>"X" then%>
        <A href="czqx_manage_sort_ok.asp?Number=<%=myrs_child("Number")%>&changemod=X">√</A>
        <%else%>
        <A href="czqx_manage_sort_ok.asp?Number=<%=myrs_child("Number")%>&changemod=S">×</A>
        <%end if%>
        <A onclick="javascript:chang_sort('<%=myrs_child("Number")%>','<%=myrs_child("Title")%>');" href="#">[<%=myrs_child("Number")%>] <%=myrs_child("Title")%></A>
      </TD>
      <TD nowrap>
        <A href="czqx_edit.asp?id=<%=myrs_child("Number")%>">管理权限</A> 
        <A href="javascript:del_sort('<%=myrs_child("Number")%>')">删除</A></TD>
    </TR>
    <%if myrs_child("Number")<99 then nextnumber=myrs_child("Number")
    	  myrs_child.MoveNext
              if myrs_child.EOF then exit for
          next
      end if
      myrs_child.Close 
      set myrs_child=nothing
    %>
    <INPUT type=hidden name=number>
    <INPUT type=hidden value=del name=sort_action>
  </FORM>
  </TBODY> 
</TABLE>
<%
nextnumber=cint(nextnumber)+1
nextnumber=String(2-len(cstr(nextnumber)), "0")+cstr(nextnumber)
%>