news_menutree.asp

OFFICE办公自动化

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

function chang_news_sort(id,sort_name){
  document.frm_edit.news_id.value=id;
  old_boardname.innerText=sort_name;
  document.frm_edit.boardname.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=news_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>
    <%StylemanageAuth=returnqx("0304")	'是否有维护栏目的权限
      set myrs_child=server.CreateObject("adodb.recordset")
      myrs_child.Open "select id,newsort,managermod from tbioaInfoStyle order by id",oConn,1,1
      if myrs_child.RecordCount>0 then
          for j=1 to myrs_child.RecordCount
          if not StylemanageAuth then
	  	manageAuth=ReturnManage(myrs_child("managermod"),myrs_child("ID"),"manager","tbioaInfoStyle")	'取当级目录管理权限
	  end if
          if StylemanageAuth or manageAuth then
          %>
	    <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><A onclick="javascript:chang_news_sort('<%=myrs_child("id")%>','<%=myrs_child("newsort")%>');"
	            href="#"><%=myrs_child("newsort")%></A></TD>
	      <TD nowrap>
	        <A href="news_manage_list.asp?Style=<%=myrs_child("id")%>">管理</A>
	        <A href="news_manage_qx.asp?Style=<%=myrs_child("id")%>">权限</A>
	        <%if StylemanageAuth then%>
	        	<A href="javascript:del_sort('<%=myrs_child("id")%>')">删除</A>
	        <%end if%>
	      </TD>
	    </TR>
    <%
    end if
    myrs_child.MoveNext
              if myrs_child.EOF then exit for
          next
         end if
         myrs_child.Close
      set myrs_child=nothing
            %>
    <INPUT type=hidden name=news_id>
    <INPUT type=hidden value=del name=sort_action>
  </FORM>
  </TBODY>
</TABLE>