禁止修改输入框的方法 Javascript强制设为首页的网页代码

Sub Unite()
    With KS
  .echo "<script language='javascript'>" & vbcrlf
     .echo "$(document).ready(function(){" &vbcrlf
  .echo " $('#channelids').change(function(){" &vbcrlf
  .echo " if ($(this).val()!=0){" & vbcrlf
  .echo "  $(parent.frames['FrameTop'].document).find('#ajaxmsg').toggle();" & vbcrlf
  .echo "  $.get('../plus/ajaxs.asp',{action:'GetClassOption',channelid:$(this).val()},function(data){" & vbcrlf
  .echo "    $(parent.frames['FrameTop'].document).find('#ajaxmsg').toggle();" & vbcrlf
  .echo "    $('select[name=FolderID1]').empty();" & vbcrlf
  .echo "    $('select[name=FolderID1]').append(unescape(data));" & vbcrlf
  .echo "    $('select[name=FolderID2]').empty();" & vbcrlf
  .echo "    $('select[name=FolderID2]').append(unescape(data));" & vbcrlf
  .echo "      }" & vbcrlf
  .echo "    );" & vbcrlf
  .echo "  }" &vbcrlf
  .echo " });" & vbcrlf
  .echo "})"&vbcrlf
  .echo "</script>"
 
 .echo " <table border='0' cellpadding='3' cellspacing='1'  width='100%' align='center'>"
 .echo "<form action='KS.Class.asp?action=UniteSave' name='myform' method='post'>"
 .echo " <tr class='sort'>"
 .echo " <td>栏目合并 </td>"
 .echo "</tr>" & vbNewLine
 .echo " <tr class='tdbg'>"
 .echo " <td height='40'><strong>选择模型</strong><select id='channelids' name='channelid'>"
 .echo " <option value='0'>---请选择模型---</option>"
 .LoadChannelOption 0
 
 .echo "</select></td>"
 .echo "</tr>" & vbNewLine
 
 .echo " <tr class='tdbg'>"
 .echo " <td height=150>"
 .echo "   <table border='0' cellspacing='0' cellpadding='0'><tr><td><strong>将 栏 目</strong></td><td><select name='FolderID1' size='8' style='width:200px'>" & KS.LoadClassOption(1) & "</select></td>"
 .echo "   <td><strong>合 并 到</strong></td><td><select style='width:200px' name='FolderID2' size='8'>" & KS.LoadClassOption(1) & "</select></td></tr></table></td>"
 .echo "</tr>" & vbNewLine
 .echo " <tr class='sort'>"
 .echo "<td align='center'><input type='button' onclick='return(ConfirmUnite())' class='button' value='确定合并'>&nbsp;&nbsp;<input type='button' onclick='javascript:location.href=""KS.Class.asp"";' class='button' value='取消返加'></td>"
 .echo "</tr>" & vbNewLine
 .echo "</form>"
    .echo "</table>"
 .echo "<div class='attention'><strong>注意事项：</strong><br>" & _
    "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;本操作不可逆，请慎重操作！！！<br>" & _
    "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;不能在同一个栏目内进行操作，不能将一个栏目合并到其下属栏目中。<br>" & _
    "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;合并后您所指定的栏目（或者包括其下属栏目）将被删除，所有文档将转移到目标栏目中。</div>"
  End With
End Sub

Sub UniteSave()
 Dim  CurrPath,ChannelID
 Dim FolderID1:FolderID1=KS.G("FolderID1")
 Dim FolderID2:FolderID2=KS.G("FolderID2")
 If FolderID1<> FolderID2 Then
   If Not Conn.Execute("Select ID From KS_Class Where TS Like '%" & FolderID1 & "%' And ID='" & FolderID2 & "'").Eof Then
     Call KS.AlertHintScript("不能将一个栏目合并到其下属栏目中！")
  Exit Sub
   Else
    '得到当前栏目信息
 Dim ParentID,ParentPath,Depth
    Dim rsc:Set rsc = Conn.Execute("select ID,tn,ts,tj from KS_Class where ID='" & FolderID1 & "'")
    If rsc.BOF And rsc.EOF Then
        RSC.Close:Set RSC=Nothing
  KS.AlertHintScript "找不到指定的栏目，可能已经被删除！"
        Exit Sub
    End If
    ParentID = rsc(1)
    ParentPath = rsc(2)
    Depth = rsc(3)
 RSC.Close:Set RSC=Nothing
  
  
     Dim RS:Set RS=Server.CreateObject("Adodb.recordset")
  RS.Open "Select * From KS_Class Where TS Like '%" & FolderID1 & "%'",conn,1,3
  Do While Not RS.Eof
        ChannelID=RS("ChannelID")
           Conn.Execute("Update " & KS.C_S(ChannelID,2)  & " Set Tid='" & FolderID2 & "' Where Tid='" & FolderID1 &"'")
           Conn.Execute("Update [KS_ItemInfo] Set Tid='" & FolderID2 & "' Where Tid='" & FolderID1 &"'")
             If KS.C_S(RS("ChannelID"),8) = "/" Or KS.C_S(ChannelID,8) = "\" Then
     CurrPath = KS.Setting(3) & RS("Folder")
    Else
     CurrPath = KS.Setting(3) & KS.C_S(ChannelID,8) & RS("Folder")
    End If
    If (KS.DeleteFolder(CurrPath) = False) Then
      Call KS.AlertHintScript("Delete Folder Error!")
      Exit Sub
    End If
     '从缓存中去除
    dim childNode:set childNode=Application(KS.SiteSN&"_class").DocumentElement.SelectSingleNode("class[@ks0='" & RS("ID") & "']")
    childNode.parentNode.removeChild(childNode)
   RS.Delete
   RS.MoveNext
  Loop
  RS.Close:Set RS=Nothing
  '更新其原来所属栏目的子栏目数，排序相当于剪枝而不需考虑
    If ParentID <> "0" And Not KS.IsNul(ParentID) Then
        Conn.Execute ("update KS_Class set Child=Child-1 where ID='" & ParentID &"'")
    End If
 
   End If
 End If
    Call KS.AlertHintScript("恭喜，网站栏目已成功合并！")
End Sub

Sub MoveInfo()
 Dim ChannelID:ChannelID=KS.ChkClng(KS.S("ChannelID"))
 If ChannelID=0 Then ChannelID=1
%>
 <script language="javascript">
  $(document).ready(function(){
   $("#channelids").change(function(){
     if ($(this).val()!=0){
   $(parent.frames["FrameTop"].document).find("#ajaxmsg").toggle();
   $.get("../plus/ajaxs.asp",{action:"GetClassOption",channelid:$(this).val()},function(data){
      $(parent.frames["FrameTop"].document).find("#ajaxmsg").toggle();
      $("select[name=BatchClassID]").empty();
   $("select[name=BatchClassID]").append(unescape(data));
   $("select[name=tClassID]").empty();
   $("select[name=tClassID]").append(unescape(data));
   $("input[name=ChannelID]").val($("#channelids").val());
    });
  }
   });
  })
function SelectAll(){
  $("select[name=BatchClassID]>option").each(function(){
   $(this).attr("selected",true);
  })
}
function UnSelectAll(){
  $("select[name=BatchClassID]>option").each(function(){
   $(this).attr("selected",false);
  })
}
 </script>
 <table width='100%' border='0' align='center' cellpadding='1' cellspacing='1'>  
 <form method='POST' name='myform' action='KS.Class.asp?From=<%=KS.S("From")%>' target='_self'>
  <tr class='sort'>     
   <td height='22' colspan='4' align='center'><b>批量移动信息</td></tr>
   <tr class='tdbg' <%if KS.S("From")="main" Then KS.Echo " style='display:none'"%>>
  <td height='40' colspan='4'><strong>选择模型</strong>
  <select id='channelids' name='channelids'>
  <option value='0'>---请选择模型---</option>
  <%
 KS.LoadChannelOption 0
 %>
 </select></td>
   </tr>  
   <tr align='left' class='tdbg'>      <td valign='top' width='350'>    
   <%if KS.S("From")="main" Then
     KS.Echo "<span style=''>"
  Else
     KS.Echo "<span style='display:none'>"
  End If
  %><input type='radio' name='InfoType' value='1'<%if KS.S("From")="main" Then KS.Echo " checked"%>>指定信息ID：<input type='text' name='BatchInfoID' value='<%=Replace(KS.G("ID")," ","")%>' class='textbox' size='20'><br> </span>     
   <input type='radio' name='InfoType' value='2' <%if KS.S("From")<>"main" Then KS.Echo " checked"%>>指定栏目的信息：<br>
   <select name='BatchClassID' size='2' multiple style='height:300px;width:300px;'><%=KS.LoadClassOption(ChannelID)%></select><br>        <input type='button' name='Submit' value='选定所有' class='button' onclick='SelectAll()'>        <input type='button' class='button' name='Submit' value='取消所选' onclick='UnSelectAll()'>      </td>      <td align='center' >移动到&gt;&gt;</td>      <td valign='top'>      <div>目标栏目</div><select name='tClassID' size='2' style='height:360px;width:300px;'><%=KS.LoadClassOption(ChannelID)%></select>      </td>    </tr>  </table>  <p align='center'> 
   <input name='Action' type='hidden' id='Action' value='MoveToClass'>   
   <input name='ChannelID' type='hidden' id='ChannelID' value='<%=ChannelID%>'>
   <input name='add' type='submit'  class='button' id='Add' value=' 执行批处理 ' style='cursor:pointer;' onClick="$('input[name=Action]').val('DoMoveToClass');">&nbsp;   
   <%if KS.S("From")="main" Then%>
   <input name='Cancel' type='button' id='Cancel' value=' 取消关闭 ' onClick="window.close();" class='button' style='cursor:pointer;'>
   <%else%>
   <input name='Cancel' type='button' id='Cancel' value=' 取消返回 ' onClick="history.back();" class='button' style='cursor:pointer;'>
   <%end if%>
     </p></form>
<%
End Sub
Sub DoMoveToClass()
   Dim BatchClassID:BatchClassID=Replace(KS.G("BatchClassID")," ","")
   Dim tClassID:tClassID=KS.G("tClassID")
   Dim InfoType:InfoType=Replace(KS.G("InfoType")," ","")
   Dim BatchInfoID:BatchInfoID=KS.G("BatchInfoID")
   Dim ChannelID,FolderTidList,I
   ChannelID=KS.ChkClng(KS.G("ChannelID"))
   If InfoType=1 Then
     If KS.FilterIDs(BatchInfoID)="" Then
      KS.AlertHintScript "请输入要移动的文档ID列表!"
   Response.End()
     Else
     Conn.Execute("Update " & KS.C_S(ChannelID,2) & " Set Tid='" & tClassID & "' where ID In(" & KS.FilterIDs(BatchInfoID) &")")
     Conn.Execute("Update KS_ItemInfo Set Tid='" & tClassID & "' where ID In(" & KS.FilterIDs(BatchInfoID) &")")
     End If
   Else
    
     If BatchClassID="" Then
      KS.AlertHintScript "请选择要移动栏目!"
   Response.End()
     End if
     BatchClassID=Split(BatchClassID,",")
     For i=0 To Ubound(BatchClassID)
       If FolderTidList="" Then
    FolderTidList=GetFolderTid(BatchClassID(i))
    Else
       FolderTidList=FolderTidList &","&GetFolderTid(BatchClassID(i))
    End If
     Next
     Conn.Execute("Update " & KS.C_S(ChannelID,2) & " Set Tid='" & tClassID & "' Where Tid In (" & FolderTidList &")")
     Conn.Execute("Update KS_ItemInfo Set Tid='" & tClassID & "' Where Tid In (" & FolderTidList &")")
   End IF
   If KS.S("From")="" Then
    KS.AlertHintScript "恭喜,文档批量移动成功!"
   Else
    KS.Echo ("<script>alert('恭喜，成功批量移动指定的文档到目标栏目!');top.close();</script>")
   End If
End Sub

Function GetFolderTid(FolderID)
   Dim I,Tid,SQL
   Dim RS:Set RS=Conn.Execute("Select ID From KS_Class Where DelTF=0 AND TS LIKE '%" & FolderID & "%'")
    If RS.EOF Then  GetFolderTid="'0'":RS.Close:Set RS=Nothing:Exit Function
    SQL=RS.GetRows(-1):RS.Close:Set RS = Nothing
             For I=0 To Ubound(SQL,2)
      Tid = Tid & "'" & Trim(SQL(0,I)) & "',"
    Next
   Tid = Left(Trim(Tid), Len(Trim(Tid)) - 1) '去掉最后一个逗号
   GetFolderTid = Tid
End Function

Sub Attribute()
    Dim ChannelID:ChannelID=1
    Dim KSCls:Set KSCls=New ManageCls
 KS.Echo "<script src=""../KS_Inc/common.js"" language=""JavaScript""></script>"
 KS.Echo "<script src=""../KS_Inc/Jquery.js"" language=""JavaScript""></script>"
 KS.Echo "<script src=""images/pannel/tabpane.js"" language=""JavaScript""></script>"
 KS.Echo "<link href=""images/pannel/tabpane.CSS"" rel=""stylesheet"" type=""text/css"">"
 Dim NowDate:NowDate = Now()
 Dim YearStr:YearStr = CStr(Year(NowDate))
 Dim MonthStr:MonthStr = CStr(Month(NowDate))
 Dim DayStr:DayStr = CStr(Day(NowDate))

%>
<script language="javascript">
  $(document).ready(function(){
   $("#channelids").change(function(){
     if ($(this).val()!=0){
   $(parent.frames["FrameTop"].document).find("#ajaxmsg").toggle();
   $.get("../plus/ajaxs.asp",{action:"GetClassOption",channelid:$(this).val()},function(data){
      $(parent.frames["FrameTop"].document).find("#ajaxmsg").toggle();
      $("select[name=ClassID]").empty();
   $("select[name=ClassID]").append(unescape(data));
   $("input[name=ChannelID]").val($("#channelids").val());
    });
  }
   });
  })
  function SelectAll(){
   $("#ClassID>option").each(function(){
     $(this).attr("selected",true);
   })
  }
 function UnSelectAll(){
   $("#ClassID>option").each(function(){
     $(this).attr("selected",false);
    })
}

</script>
<table cellSpacing=1 cellPadding=2 width="100%" align=center border=0>
  <FORM name=form1 action=KS.Class.asp method=post>
    <tr class=sort>
      <td align=middle colSpan=3 height=22><strong>批量设置栏目属性</strong></td>
    </tr>
    <tr class=tdbg>
      <td vAlign=top width=200><font color=red>提示：</font>可以按住“Shift”<br />或“Ctrl”键进行多个栏目的选择<br />

<select id='channelids' name='channelids'>
  <option value='0'>---请选择模型---</option>
  <%
  KS.LoadChannelOption 0
 %>
 </select>
<Select style="WIDTH: 200px; HEIGHT: 380px" multiple size=2 name="ClassID" id="ClassID">

 <%=KS.LoadClassOption(ChannelID)%>
</Select>
<div align=center>
   <Input onclick=SelectAll() type=button class="button" value="选定所有栏目" name=Submit><br />
   <Input onclick=UnSelectAll() type=button value="取消选定栏目" class="button" name=Submit></div>
   </td>
      <td vAlign=top><br />
  <div class=tab-page id=ClassAttrPane>
  <SCRIPT type=text/javascript>
      var tabPane1 = new WebFXTabPane( document.getElementById( "ClassAttrPane" ), 1 )
  </SCRIPT>
    
   <div class=tab-page id=site-page1>
   <H2 class=tab>栏目选项</H2>
    <SCRIPT type=text/javascript>
     tabPane1.addTabPage( document.getElementById( "site-page1" ) );
    </SCRIPT>
                  <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="ctable">
      <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
        <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyTopFlag'></td>
     <td height='30' width='200' align='right' class='clefttitle'><strong>栏目顶部导航：</strong></td>
     <td height='28'>&nbsp;<input name="TopFlag" type="radio" value="1" checked>显示 <input name="TopFlag" type="radio" value="0">不显示             
       </td>         
      </tr>
    
      <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
        <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyWapSwitch'></td>
     <td height='30' width='200' align='right' class='clefttitle'><strong>栏目WAP状态：</strong></td>
     <td height='28'>&nbsp;<input name="WapSwitch" type="radio" value="1" checked>显示 <input name="WapSwitch" type="radio" value="0">不显示             
       </td>         
      </tr>   
      <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
        <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyChannelTemplateID'></td>
     <td height='30' align='right'  width='200' class='clefttitle'><strong>
  频道模板：</strong> </td>
     <td height='28'><b>
       <input type="text" name='ChannelTemplateID' id='ChannelTemplateID' size="30">&nbsp;<%=KSCls.Get_KS_T_C("$('#ChannelTemplateID')[0]")%></select>
        </td>
     </tr>
      <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
        <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyFolderTemplateID'></td>
     <td height='30' align='right'  width='200' class='clefttitle'><strong>
  栏目模板：</strong> </td>
     <td height='28'><b>
       <input type="text" name='FolderTemplateID' id='FolderTemplateID' size='30'>&nbsp;<%=KSCls.Get_KS_T_C("$('#FolderTemplateID')[0]")%></select>
        </td>
     </tr>
     <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
     <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyFolderFsoIndex'></td>
     <td align=right  class='clefttitle' width='200'><strong>
      生成的栏目首页文件：</strong>
  </td><td>      <select name='FolderFsoIndex' id='select2' class='textbox'>
        <option value='index.html'>index.html</option>
        <option value='index.htm' selected>index.htm</option>
        <option value='index.shtm'>index.shtm</option>
        <option value='index.shtml'>index.shtml</option>
        <option value='default.html'>default.html</option>
        <option value='default.htm'>default.htm</option>
        <option value='default.shtm'>default.shtm</option>
        <option value='default.shtml'>default.shtml</option>
        <option value='index.asp'>index.asp</option>
        <option value='default.asp'>index.asp</option>
        <option value="index.html" selected>index.html</option>             </select>
      </td>
     </tr>
     <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
       <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyTemplateID'></td>
       <td height='30' align='right'  class='clefttitle' width='200'><strong>内容页模板：</strong></td>
       <td height='28'>
       <input type="text" name='TemplateID' id='TemplateID' size='30'>&nbsp;<%=KSCls.Get_KS_T_C("$('#TemplateID')[0]")%></select>    </td></tr>       
       <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
        <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyFnameType'></td>
        <td height='28'   width='200' align=right class='clefttitle'><strong>生成的页扩展名：</strong>         </td><td>             <input type='text' ID='FnameType' name='FnameType' value='.html' size='15'> <-<select name='FnameTypes'  class='upfile' onChange="$('#FnameType').val(this.value);">
               <option value='.html' selected>.html</option>
               <option value='.htm'>.htm</option>
               <option value='.shtm'>.shtm</option>
               <option value='.shtml'>.shtml</option>
               <option value='.asp'>.asp</option>
             </select>
     </td>
    </tr>
    <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">         
      <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyFsoType'></td>
      <td height='30' align='right' width='200' class='clefttitle'><strong>生成路径格式：</strong></td>
      <td height='28'> <select style='width:200;' name='FsoType' id='select5' onChange='SelectFsoType(options[selectedIndex].value);'>
     <option value="1"><%=YearStr%>/<%=MonthStr%>-<%=DayStr%>/RE</option>
     <option value="2"><%=YearStr%>/<%=MonthStr%>/<%=DayStr%>/RE</option>
     <option value="3"><%=YearStr%>-<%=MonthStr%>-<%=DayStr%>/RE</option>
     <option value="4"><%=YearStr%>/<%=MonthStr%>/RE</option>
     <option value="5"><%=YearStr%>-<%=MonthStr%>/RE</option>
     <option value="6"><%=YearStr%><%=MonthStr%><%=DayStr%>/RE</option>
     <option value="7"><%=YearStr%>/RE</option>
     <option value="8"><%=YearStr%><%=MonthStr%><%=DayStr%>RE</option>
     <Option value="9" Selected>RE</Option>
     <option value="10">SCE</option><option value="11">新闻IDE</option>           
           </select> </td>       
     </tr>
    
     </table>
    </div>
  
  <div class=tab-page id=site-page>
   <H2 class=tab>权限选项</H2>
    <SCRIPT type=text/javascript>
     tabPane1.addTabPage( document.getElementById( "site-page" ) );
    </SCRIPT>
              <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="ctable">
                <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
      <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyClassPurview'></td>
                  <td  class='clefttitle' width=200><strong>浏览/查看权限：</strong></td>
                  <td>
                    &nbsp;<input name='ClassPurview' type='radio' value='0' checked>              开放栏目&nbsp;&nbsp;<font color=red>任何人（包括游客）可以浏览和查看此栏目下的信息。</font><br>              &nbsp;<INPUT type='radio'  name='ClassPurview' value='1'>
              半开放栏目&nbsp;&nbsp;<font color=red>任何人（包括游客）都可以浏览。游客不可查看，其他会员根据会员组的栏目权限设置决定是否可以查看。</font><br/>              &nbsp;<INPUT type='radio'  name='ClassPurview' value='2'>
              认证栏目&nbsp;&nbsp;<font color=red>游客不能浏览和查看，其他会员根据会员组的栏目权限设置决定是否可以浏览和查看。</font>
                  </td>
                </tr>
                <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
      <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyGroupID'></td>
                  <td class='clefttitle' width=200><div><strong>允许查看此栏目下信息的会员组：</strong></div><font color=blue>如果栏目是“认证栏目”，请在此设置允许查看此栏目下信息的会员组,如果在信息中设置了查看权限，则以信息中的权限设置优先</font></td>
                  <td><%=KS.GetUserGroup_CheckBox("GroupID","",3)%></td>
                </tr>
               
                <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
      <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyReadPoint'></td>
                  <td  class='clefttitle' width=200><strong>默认阅读信息所需点数：</strong><br><font color=blue>如果在信息中设置了阅读点数，则以信息中的点数设置优先</font></td>
                  <td>&nbsp;<input name='ReadPoint' type='text' id='ReadPoint'  value='0' size='6' class='textbox' style='text-align:center'> 　免费阅读请设为 "<font color=red>0</font>"，否则有权限的会员阅读该栏目下的信息时将消耗相应点数，游客将无法阅读。</td>
                </tr>
     <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
       <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyDividePercent'></td>

            <td height='60' align='center' class='clefttitle'><strong>默认与投稿者的分成比率：</strong></td>
            <td height='28'>&nbsp;<input name='DividePercent' type='text' value='0' size='6' class='upfile' style='text-align:center'>% 系统将根据这里设置的分成比率将收成分给投稿者。建议设成10的整数倍!</td>          </tr>
                <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
      <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyChargeType'></td>
                  <td  class='clefttitle' width=200><strong>默认阅读信息重复收费：</strong><br><font color=blue>如果在信息中设置了阅读点数，则以信息中的点数设置优先</font></td>
                  <td>&nbsp;<input name='ChargeType' type='radio' value='0'  checked >不重复收费(如果信息需扣点数才能查看，建议使用)<br>&nbsp;<input name='ChargeType' type='radio' value='1'>距离上次收费时间 <input name='PitchTime' type='text' class='textbox' value='12' size='8' maxlength='8' style='text-align:center'> 小时后重新收费<br>            &nbsp;<input name='ChargeType' type='radio' value='2'>会员重复阅信息 &nbsp;<input name='ReadTimes' type='text' class='textbox' value='10' size='8' maxlength='8' style='text-align:center'> 页次后重新收费<br>            &nbsp;<input name='ChargeType' type='radio' value='3'>上述两者都满足时重新收费<br>            &nbsp;<input name='ChargeType' type='radio' value='4'>上述两者任一个满足时就重新收费<br>            &nbsp;<input name='ChargeType' type='radio' value='5'>每阅读一页次就重复收费一次（建议不要使用,多页信息将扣多次点数）</td>
                </tr>
    </table>
   </div>

            <div class=tab-page id=tg-page>
   <H2 class=tab>投稿选项</H2>
    <SCRIPT type=text/javascript>
     tabPane1.addTabPage( document.getElementById( "tg-page" ) );
    </SCRIPT>
    <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="ctable">
     
      <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
        <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyCommentTF'></td>
     <td height='30' align='right' width='200' class='clefttitle'><strong>栏目是否允许投稿：</strong></td>
     <td height='28'>①<input name="CommentTF" type="radio" value="0">不允许<br>②<input name="CommentTF" type="radio" value="1" checked>允许<br> ③<input name="CommentTF" type="radio" value="2" checked>允许所有人投稿<font color=red>(包括游客)</font><br>④<input name="CommentTF" type="radio" value="3" checked>只允许指定用户组的会员投稿<br> 
     
                 </td>         
     </tr>
     <tr class="tdbg" onMouseOver="this.className='tdbgmouseover'" onMouseOut="this.className='tdbg'">
      <td width='40' align='center' class='clefttitle'><Input type='checkbox' value='1' name='ModifyAllowArrGroupID'></td>
                  <td  class='clefttitle' width=200><strong>允许此栏目下投稿的会员组：</strong><br><font color=blue>当上面选择④时，请在此设置允许在此栏目下投稿的会员组</font><font color=blue>如果该栏目允许投稿，请在此设置允许在此栏目下投稿的会员组</font></td>
                  <td><%=KS.GetUserGroup_CheckBox("AllowArrGroupID","",3)%></td>
                </tr>
     </table>
      </div>
          
<br /><B>说明：</B><br />1、若要批量修改某个属性的值，请先选中其左侧的复选框，然后再设定属性值。<br />2、这里显示的属性值都是系统默认值，与所选栏目的已有属性无关<br />
<p align=center>
  <Input id=Action type=hidden value="DoBatch" name=Action>
  <Input id=ChannelID type="hidden" value=<%=ChannelID%> name="ChannelID">
  <Input style="CURSOR: hand" type=submit value="执行批处理" class="button" name=Submit>&nbsp;
        <Input id=Cancel style="CURSOR: hand" class="button" onClick="window.location.href='KS.Class.asp?ChannelID=<%=ChannelID%>'" type=button value=" 取 消 " name=Cancel></p>
  </td>
    </tr>
  </table>
</FORM>
<%
End Sub

Sub AttributeSave()
   Dim I,ClassID:ClassID=Replace(Request.Form("ClassID")," ","")
   Dim ChannelID:ChannelID=KS.ChkClng(KS.S("ChannelID"))
   Dim ClassIDArr:ClassIDArr=Split(ClassID,",")
   Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
   For I=0 To Ubound(ClassIDArr)
     RS.Open "Select * From KS_Class Where ID='" & ClassIDArr(I) & "'",conn,1,3
  If Not RS.Eof Then
    If KS.ChkClng(KS.G("ModifyTopFlag"))=1 Then RS("TopFlag")=KS.ChkClng(KS.G("TopFlag"))
    If KS.ChkClng(KS.G("ModifyCommentTF"))=1 Then
     RS("CommentTF")=KS.ChkClng(KS.G("CommentTF"))
  RS("AllowArrGroupID")=KS.G("AllowArrGroupID")
    End If
    If KS.ChkClng(KS.G("ModifyChannelTemplateID"))=1 Then
      If RS("TN")="0" Then RS("FolderTemplateID")=KS.G("ChannelTemplateID")
    End If
   
    If KS.ChkClng(KS.G("ModifyFolderTemplateID"))=1 Then
     If rs("TN")<>"0" Then RS("FolderTemplateID")=KS.G("FolderTemplateID")
    End If
    If KS.ChkClng(KS.G("ModifyWapSwitch"))=1 Then RS("WapSwitch")=KS.ChkClng(KS.G("WapSwitch"))
   
    If KS.ChkClng(KS.G("ModifyFolderFsoIndex"))=1 Then RS("FolderFsoIndex")=Request("FolderFsoIndex")
    If KS.ChkClng(KS.G("ModifyTemplateID"))=1 Then
       RS("TemplateID")=KS.G("TemplateID")
    Conn.Execute("Update " &KS.C_S(ChannelID,2) & " Set TemplateID='"& KS.G("TemplateID") & "' Where Tid='" &ClassIDArr(I) &"'")
    End If
    If KS.ChkClng(KS.G("ModifyFnameType"))=1 Then RS("FnameType") = KS.G("FnameType")
    If KS.ChkClng(KS.G("ModifyFsoType"))=1 Then RS("FsoType")=KS.ChkClng(KS.G("FsoType"))
   
    If KS.ChkClng(KS.G("ModifyClassPurview"))=1 Then RS("ClassPurview")=KS.ChkClng(KS.G("ClassPurview"))
    If KS.ChkClng(KS.G("ModifyGroupID"))=1 Then RS("DefaultArrGroupID")=Request("GroupID")
    If KS.ChkClng(KS.G("ModifyAllowArrGroupID"))=1 Then RS("AllowArrGroupID")=Request("AllowArrGroupID")
    If KS.ChkClng(KS.G("ModifyReadPoint"))=1 Then  RS("DefaultReadPoint")=KS.ChkClng(KS.G("ReadPoint"))
    If KS.ChkClng(KS.G("ModifyDividePercent"))=1 Then
             Dim DividePercent:DividePercent=KS.G("DividePercent")
    If Not IsNumeric(DividePercent) Then
     DividePercent=0
    End If
       RS("DefaultDividePercent")=DividePercent
    End If
    If KS.ChkClng(KS.G("ModifyChargeType"))=1 Then
      RS("DefaultChargeType")=KS.ChkClng(KS.G("ChargeType"))
   RS("DefaultPitchTime")=KS.ChkClng(KS.G("PitchTime"))
   RS("DefaultReadTimes")=KS.ChkClng(KS.G("ReadTimes"))
    End If
    RS.Update
  End If
  RS.Close
   Next
   Set RS=Nothing
   KS.AlertHintScript "恭喜,栏目批量设置成功!"
End Sub

Sub ShowChannelOption()
    With KS
    If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig
    Dim ModelXML,Node
    Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")
    For Each Node In ModelXML.documentElement.SelectNodes("channel")
     if Node.SelectSingleNode("@ks21").text="1" and Node.SelectSingleNode("@ks0").text<>"6" and Node.SelectSingleNode("@ks0").text<>"9" and Node.SelectSingleNode("@ks0").text<>"10" Then
      if request("channelid")=Node.SelectSingleNode("@ks0").text then
       .echo "<option value='" & Node.SelectSingleNode("@ks0").text & "' selected>" &Node.SelectSingleNode("@ks1").text & "</option>"
      else
       .echo "<option value='" & Node.SelectSingleNode("@ks0").text & "'>" &Node.SelectSingleNode("@ks1").text & "</option>"
      end if
       End If
   next
         End With
End Sub

Sub MainPage()
   'ShowChannelList
   With KS
    .echo " <table border='0' cellpadding='0' cellspacing='0'  width='100%' align='center'>"
 .echo "<form name='myform' action='KS.Class.asp' method='post'>"

    .echo "<tr><td> &nbsp;<select name='sc' onchange=""location.href='?a=" & request("a") & "&channelid='+this.value;""><option value=''>---按模型查看管理---</option>"
 ShowChannelOption
 .echo "</select></td><td style='padding-left:20px' align='right' colspan=4><div style='margin:5px'><b>选择：</b><a href='javascript:Select(0)'><font color=#999999>全选</font></a> - <a href='javascript:Select(1)'><font color=#999999>反选</font></a> - <a href='javascript:Select(2)'><font color=#999999>不选</font></a> <input type='button' onclick='CreateHtml()' class='button' value='发布选中的栏目'> <input type='Submit' onclick=""return(confirm('删除栏目操作将删除此栏目中的所有子栏目和文档，并且不能恢复！确定要删除此栏目吗?'))"" class='button' value='删除选中的栏目'></div>"
 .echo "</td></tr>"

 .echo " <tr class='sort'>"
 .echo " <td width=""35%"">栏目名称 </td>"
 .echo " <td width=""43%"">管理选项</td>"
 .echo " <td width=""9%"">栏目ID</td>"
 .echo "</tr>" & vbNewLine
 .echo "<input type='hidden' name='action' value='Del' id='action'>"
 If KS.C("SuperTF")<>1Then
 Dim Param:Param=" And ID IN('" & replace(KS.C("PowerList"),",","','") &"')"
 End If
 
 Dim ClassXML,Node,ClassType,TypeStr,ID
 Dim Sqlstr
 If KS.G("A")="extall" Then
  param=" where 1=1"
 Else
  param = " where tj=1"
 End If
 if request("channelid")<>"" then param=param &" and a.channelid=" & ks.chkclng(request("channelid"))
 SQLstr = "select a.ID,a.FolderName,a.FolderOrder,a.ClassType,a.ChannelID,a.tj,a.tn,a.adminpurview from KS_Class a inner join ks_channel b on a.channelid=b.channelid " & Param & " and (b.channelstatus=1 or a.channelid=5) Order BY root,folderorder"
   
 Dim RS:Set Rs = Server.CreateObject("adodb.recordset")
 Rs.Open SQLstr, Conn, 1, 1
 If Not RS.Eof Then
         totalPut = rs.recordcount
      If CurrentPage < 1 Then CurrentPage = 1
      If CurrentPage > 1 and (CurrentPage - 1) * MaxPerPage < totalPut Then
    RS.Move (CurrentPage - 1) * MaxPerPage
      Else
    CurrentPage = 1
   End If
        Set ClassXML=KS.ArrayToXML(RS.GetRows(MaxPerPage),RS,"row","xmlroot")
    
      If IsObject(ClassXML) Then
   For Each Node In ClassXML.DocumentElement.SelectNodes("row")
    ID=Node.SelectSingleNode("@id").text
    ClassType=Node.SelectSingleNode("@classtype").text
    If KS.C("SuperTF")=1 or KS.FoundInArr(Node.SelectSingleNode("@adminpurview").text,KS.C("AdminName"),",") or Instr(KS.C("ModelPower"),KS.C_S(Node.SelectSingleNode("@channelid").text,10)&"1")>0 Then
     if ClassType="2" Then
      TypeStr="<font color=blue>(外)</font>"
     ElseIf ClassType="3" Then
      TypeStr="<font color=green>(单)</font>"
     Else
      TypeStr=""
     End If
     .echo "<tr height='20' class='list' onmouseout=""this.className='list'"" onmouseover=""this.className='listmouseover'"">"
     .echo " <td style='padding-left:5px' class='splittd'>"
     if Node.SelectSingleNode("@tj").text="1" Then
      If KS.G("A")="extall" Then
      .echo "<img id='C" & ID & "' src='images/folder/Open.gif' align='absmiddle'>"
      .echo "<img src='Images/Folder/domain.gif' align='absmiddle'><strong>" & Node.SelectSingleNode("@foldername").text & "</strong>"
      Else
      .echo "<img id='C" & ID & "' src='images/folder/Close.gif' align='absmiddle'>"
      .echo "<img src='Images/Folder/domain.gif' align='absmiddle'><strong><a href=""javascript:ExtSub('" & ID & "');"">" & Node.SelectSingleNode("@foldername").text & "</a></strong>"
      End If
     Else
      Dim TJ,SpaceStr,k,Total
      SpaceStr=""
      TJ=Node.SelectSingleNode("@tj").text
      For k = 1 To TJ - 1
        SpaceStr = SpaceStr & "──"
      Next
      If KS.G("A")="extall" Then
      .echo "<img src='images/folder/HR.gif'>" & SpaceStr & "<img src='Images/Folder/SmallFolder.gif' align='absmiddle'>" & Node.SelectSingleNode("@foldername").text
      Else
      .echo "<img src='images/folder/HR.gif'>" & SpaceStr & "<img src='Images/Folder/SmallFolder.gif' align='absmiddle'><a href=""javascript:ExtSub('" & ID & "');"">" & Node.SelectSingleNode("@foldername").text
      End If
     End If
     .echo TypeStr & "</td>" & vbNewLine
     .echo " <td class='splittd' align=center>"
     .echo "<a href='" & KS.GetFolderPath(id) & "' target='_blank'>预览</a> | "
     If ClassType<>"1" Then
     .echo "<span disabled>添加" & KS.C_S(Node.SelectSingleNode("@channelid").text,3) & "</span>"
     .echo " | <span disabled>添加子栏目</span>"
     Else
     .echo "<a href=""#"" onclick=""javascript:AddInfo(" & KS.C_S(Node.SelectSingleNode("@channelid").text,6) & "," & Node.SelectSingleNode("@channelid").text &",'" & ID & "');"">添加" & KS.C_S(Node.SelectSingleNode("@channelid").text,3) & "</a>"
     .echo " | <a href=""javascript:CreateClass('" & ID & "');"">添加子栏目</a>"
     End If
     .echo " | <a href=""javascript:EditClass('" & ID & "');"">编辑栏目</a>"
     
     .echo " | <a href=""KS.Class.asp?ChannelID=" & Node.SelectSingleNode("@channelid").text & "&Action=Del&Go=Class&ID=" & ID & """ onclick=""return(confirm('删除栏目操作将删除此栏目中的所有子栏目和文档，并且不能恢复！确定要删除此栏目吗?'))"">删除栏目</a>"
     .echo " | <a href=""javascript:DelInfo(" & Node.SelectSingleNode("@channelid").text & ",'" & ID & "');"">清空</a>"
   
     .echo " </td>" & vbNewLine
     .echo " <td class='splittd' align=center>"
     .echo "  <input type='checkbox' name='id' id='c" & Node.SelectSingleNode("@id").text & "' value='" & Node.SelectSingleNode("@id").text & "'>" & Node.SelectSingleNode("@id").text
     .echo " </td>" & vbNewLine
     .echo "</tr>" & vbNewLine
     .echo "<tr><td id='sub" & ID &"' colspan=4>"
     .echo "</td></tr>"
      End If
   Next
   End If
    
 End If
 Rs.Close
 Set Rs = Nothing

 .echo "<tr><td height='50' style='padding-left:20px' align='right' colspan=4><div style='margin:5px'><b>选择：</b><a href='javascript:Select(0)'><font color=#999999>全选</font></a> - <a href='javascript:Select(1)'><font color=#999999>反选</font></a> - <a href='javascript:Select(2)'><font color=#999999>不选</font></a> <input type='button' onclick='CreateHtml()' class='button' value='发布选中的栏目'> <input type='Submit' onclick=""return(confirm('删除栏目操作将删除此栏目中的所有子栏目和文档，并且不能恢复！确定要删除此栏目吗?'))"" class='button' value='删除选中的栏目'></div>"
 .echo "</td></tr>"
 .echo "</form>"
 .echo "<tr><td colspan=4>"
 Call KS.ShowPage(totalput, MaxPerPage, "", CurrentPage,true,true)
 .echo "</td></tr>"
 .echo "</table>"
  End With
End Sub

Sub SubTreeList(parentid)
      If KS.C("SuperTF")<>1 Then
    '  Param=Param & " And ID IN('" & replace(Application(KS.C("AdminName")&"PowerList"),",","','") &"')"
   End If
      
   Dim SubTypeList, p,SpaceStr, k, Total, Num,ID,TJ,SQL,N,SubClassXML,Node,TypeStr,ClassType
   Num = 0
   if request("channelid")<>"" then p=" && @ks12='" & request("channelid")&"'"
   For Each Node In Application(ks.SiteSN&"_class").documentelement.selectnodes("class[@ks13='"&parentid&"'" &p&"]")
     Num = Num + 1:SpaceStr = "":TJ = CInt(Node.SelectSingleNode("@ks10").text)
  For k = 1 To TJ - 1
    SpaceStr = SpaceStr & "──"
  Next
    ID = Node.SelectSingleNode("@ks0").text
    ClassType=Node.SelectSingleNode("@ks14").text
  if ClassType="2" Then
   TypeStr="<font color=blue>(外)</font>"
  ElseIf ClassType="3" Then
   TypeStr="<font color=green>(单)</font>"
  Else
   TypeStr=""
  End If
  With KS
  If (KS.C("SuperTF")=1 or KS.FoundInArr(Node.SelectSingleNode("@ks16").text,KS.C("AdminName"),",")) and (KS.C_S(Node.SelectSingleNode("@ks12").text,21)=1 or Node.SelectSingleNode("@ks12").text=5) or Instr(KS.C("ModelPower"),KS.C_S(Node.SelectSingleNode("@ks12").text,10)&"1")>0 Then
   .echo " <table border='0' cellpadding='0' cellspacing='0'  width='100%' align='center'>"
      .echo " <tr class='list' onmouseout=""this.className='list'"" onmouseover=""this.className='listmouseover'"">"
   .echo " <td width=""35%"" style='padding-left:5px' class='splittd'><img src='images/folder/HR.gif'>" & SpaceStr & "<img src='Images/Folder/SmallFolder.gif' align='absmiddle'><a href=""javascript:ExtSub('" & ID & "');"">" & Node.SelectSingleNode("@ks1").text& TypeStr & "</a> </td>" & vbNewLine
   .echo " <td align=center width=""43%"" class='splittd'>"
   .echo "<a href='" & KS.GetFolderPath(id) & "' target='_blank'>预览</a> | "
  If ClassType<>"1" Then
   .echo "<span disabled>添加" & KS.C_S(Node.SelectSingleNode("@ks12").text,3) & "</span>"
   .echo " | <span disabled>添加子栏目</span>"
  Else
   .echo "<a href=""#"" onclick=""javascript:AddInfo(" & KS.C_S(Node.SelectSingleNode("@ks12").text,6) & "," & Node.SelectSingleNode("@ks12").text & ",'" & ID & "');"">添加" & KS.C_S(Node.SelectSingleNode("@ks12").text,3) & "</a>"
   .echo " | <a href=""javascript:CreateClass('" & ID & "');"">添加子栏目</a>"
  End If
   .echo " | <a href=""javascript:EditClass('" & ID & "');"">编辑栏目</a>"
   .echo " | <a href=""KS.Class.asp?ChannelID=" & Node.SelectSingleNode("@ks12").text & "&Action=Del&Go=Class&ID=" & ID & """ onclick=""return(confirm('删除栏目操作将删除此栏目中的所有子栏目和文档，并且不能恢复！确定要删除此栏目吗?'))"">删除栏目</a>"
   .echo " | <a href=""javascript:DelInfo(" & Node.SelectSingleNode("@ks12").text & ",'" & ID & "');"">清空</a>"
   .echo " </td>" & vbNewLine
   .echo " <td align=center width=""9%"" class='splittd'>"
        .echo "  <input type='checkbox' name='id' id='c" & id & "' value='" & id & "'>" & id
   .echo " </td>" & vbNewLine
   .echo "</tr>" & vbNewLine
  
   .echo "<tr><td id='sub" & ID &"' colspan=4>"
   If KS.G("A")="extall" Then Call SubTreeList(ID)
  .echo "</td></tr>"
   .echo "</table>"
  End If
    End With
    'Call SubTreeList(ID)
  Next
 End Sub
 
 '一级栏目排序
 Sub OrderOne()
    With KS
  .echo " <table border='0' cellpadding='0' cellspacing='0'  width='100%' align='center'>"
  .echo " <tr class='sort'>"
  .echo " <td width=""35%"">栏目名称 </td>"
  .echo " <td>序号</td>"
  .echo " <td>一级栏目排序操作</td>"
  .echo "</tr>" & vbNewLine
  Dim SQLStr,ClassXml,Node,i,k
  SQLstr = "select ID,FolderName,FolderOrder,ClassType,ChannelID,tj,root from KS_Class Where TJ=1 Order BY root,folderorder"
  maxperpage=100
  Dim RS:Set Rs = Server.CreateObject("adodb.recordset")
  Rs.Open SQLstr, Conn, 1, 1
  If Not RS.Eof Then
    totalPut = rs.recordcount
    If CurrentPage < 1 Then CurrentPage = 1
    If CurrentPage > 1 and (CurrentPage - 1) * MaxPerPage < totalPut Then
     RS.Move (CurrentPage - 1) * MaxPerPage
    Else
     CurrentPage = 1
    End If
    i=(currentpage-1)*maxperpage
      Set ClassXML=KS.ArrayToXML(RS.GetRows(MaxPerPage),RS,"row","xmlroot")
      For Each Node In ClassXML.DocumentElement.SelectNodes("row")
       .echo "<tr>"
       .echo "<td class='splittd'><img src='Images/Folder/domain.gif' align='absmiddle'>" & Node.SelectSingleNode("@foldername").text & "</td>"
    .echo "<td class='splittd' align='center'>" & Node.SelectSingleNode("@root").text & "</td>"
    .echo "<td class='splittd'>"
    
    .echo "<table border='0' width='100%'><tr>"
    .echo "<form name='upform' action='KS.Class.asp?action=DoUpOrderSave' method='post'>"
    .echo "<input type='hidden' value='" & Node.SelectSingleNode("@root").text & "' name='croot'>"
    .echo "<td width='50%'>"
    if i<>0 then
     .echo "<select name='MoveNum'><option value=0>↑向上移动</option>"
     for k=1 to i
     .echo "<option value=" & k &">" & k &"</option>"
     next
     .echo "</select> <input type='submit' value='修改' class='button'>"
    end if
    .echo "</td></form>"
    .echo "<form name='downform' action='KS.Class.asp?action=DoDownOrderSave' method='post'>"
    .echo "<input type='hidden' value='" & Node.SelectSingleNode("@root").text & "' name='croot'>"
    .echo "<td widht='100%'>"
    
    if i<>totalput-1 then
     .echo "<select name='MoveNum'><option value=0>↓向下移动</option>"
     for k=1 to totalput-i-1
     .echo "<option value=" & k &">" & k &"</option>"
     next
     .echo "</select> <input type='submit' value='修改' class='button'>"
                end if
    .echo "</td></form>"
    .echo "</tr></table>"
    
    
    i=i+1
    
    .echo "</td>"
    .echo "</tr>"
      Next
  End If
  .echo "<tr><td colspan=4>"
  Call KS.ShowPage(totalput, MaxPerPage, "", CurrentPage,true,true)
  .echo "</td></tr>"
  .echo "</table>"
   End With
 End Sub
     
 Sub DoUpOrderSave()
  Dim TRoot,i,Croot:croot=KS.ChkClng(Request("croot"))
  Dim MoveNum:MoveNum=KS.ChkClng(Request("MoveNum"))
  If MoveNum=0 Then KS.AlertHintScript "对不起,您没有选择位移量!"
  Dim MaxRootID:MaxRootID=Conn.Execute("select max(Root) From KS_Class")(0)+1
  '先将当前栏目移至最后，包括子栏目
  Conn.Execute("Update KS_Class set Root=" & MaxRootID & " where Root=" & cRoot)
  '然后将位于当前栏目以上的栏目的RootID依次加一，范围为要提升的数字
  Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
  RS.Open "select * From KS_Class where tj=1 and Root<" & cRoot  &  " order by Root desc",conn,1,1
  If Not RS.Eof Then
      i=1
   Do While Not RS.Eof
    tRoot=rs("Root")       '得到要提升位置的RootID，包括子栏目
    Conn.Execute("Update KS_Class set Root=Root+1 where Root=" & tRoot)
    i=i+1
    if i>MoveNum Then Exit Do
    RS.MoveNext
   Loop
   '然后再将当前栏目从最后移到相应位置，包括子栏目
   Conn.Execute("Update KS_Class set Root=" & tRoot & " where Root=" & MaxRootID)
  End If
    RS.CLose
  Set RS=Nothing
      KS.AlertHintScript "恭喜,上移成功!"
 End Sub
 
 Sub DoDownOrderSave()
  Dim TRoot,i,Croot:croot=KS.ChkClng(Request("croot"))
  Dim MoveNum:MoveNum=KS.ChkClng(Request("MoveNum"))
  If MoveNum=0 Then KS.AlertHintScript "对不起,您没有选择位移量!"
      Dim MaxRootID: MaxRootID = KS.ChkClng(Conn.Execute("select max(Root) From KS_Class")(0)) + 1
   '先将当前栏目移至最后，包括子栏目
   Conn.Execute("Update KS_Class set Root=" & MaxRootID & " where Root=" & cRoot)
      '然后将位于当前栏目以上的栏目的RootID依次减一，范围为要提升的数字
   Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
   RS.Open "select * From KS_Class where tj=1 and Root>" & cRoot  &  " order by Root",conn,1,1
   If Not RS.Eof Then
        i=1
      Do While NOT rs.eOF
           tRoot = rs("Root") '得到要提升位置的RootID，包括子栏目
           Conn.Execute("Update KS_Class set Root=Root-1 where Root=" & tRoot)
     i = i + 1
           if (i > MoveNum) then exit do
     RS.MoveNext
   Loop
   '然后再将当前栏目从最后移到相应位置，包括子栏目
   Conn.Execute("Update KS_Class set Root=" & tRoot & " where Root=" & MaxRootID)
   End If
    RS.CLose
  Set RS=Nothing
      KS.AlertHintScript "恭喜,下移成功!"
 End Sub
 
 'N级栏目排序
 Sub OrderN()
      With KS
  .echo " <table border='0' cellpadding='0' cellspacing='0'  width='100%' align='center'>"
  .echo " <tr class='sort'>"
  .echo " <td width=""35%"">栏目名称 </td>"
  .echo " <td>序号</td>"
  .echo " <td>一级栏目排序操作</td>"
  .echo "</tr>" & vbNewLine
  Dim SQLStr,ClassXml,Node,i,k
  SQLstr = "select ID,FolderName,FolderOrder,ClassType,ChannelID,tj,root,tn from KS_Class Order BY root,folderorder"
  maxperpage=100
  Dim RS:Set Rs = Server.CreateObject("adodb.recordset")
  Rs.Open SQLstr, Conn, 1, 1
  If Not RS.Eof Then
    totalPut = rs.recordcount
    If CurrentPage < 1 Then CurrentPage = 1
    If CurrentPage > 1 and (CurrentPage - 1) * MaxPerPage < totalPut Then
     RS.Move (CurrentPage - 1) * MaxPerPage
    Else
     CurrentPage = 1
    End If
    i=(currentpage-1)*maxperpage
      Set ClassXML=KS.ArrayToXML(RS.GetRows(MaxPerPage),RS,"row","xmlroot")
      For Each Node In ClassXML.DocumentElement.SelectNodes("row")
       .echo "<tr>"
       .echo "<td class='splittd'>"
    if Node.SelectSingleNode("@tj").text="1" Then
     .echo "<img src='images/folder/Open.gif' align='absmiddle'>"
     .echo "<img src='Images/Folder/domain.gif' align='absmiddle'><strong>" & Node.SelectSingleNode("@foldername").text & "</strong>"
    Else
        Dim TJ,SpaceStr,Total
     SpaceStr=""
        TJ=Node.SelectSingleNode("@tj").text
     For k = 1 To TJ - 1
        SpaceStr = SpaceStr & "──"
     Next
     .echo "<img src='images/folder/HR.gif' align='absmiddle'>" & SpaceStr & "<img src='Images/Folder/SmallFolder.gif' align='absmiddle'>" & Node.SelectSingleNode("@foldername").text
    End If
    
    .echo "</td>"
    .echo "<td class='splittd' align='center'>" & Node.SelectSingleNode("@folderorder").text & "</td>"
    .echo "<td class='splittd'>"
    
    if Node.SelectSingleNode("@tj").text="1" Then
        .echo "&nbsp;"
    Else
     .echo "<table border='0' width='100%'><tr>"
     .echo "<form name='upform' action='KS.Class.asp?action=DoUpOrderNSave' method='post'>"
     .echo "<input type='hidden' value='" & Node.SelectSingleNode("@id").text & "' name='id'>"
     .echo "<td width='50%'>"
     
     '如果不是一级栏目，则算出相同深度的栏目数目，得到该栏目在相同深度的栏目中所处位置（之上或者之下的栏目数）
     '所能提升最大幅度应为For i=1 to 该版之上的版面数
     Dim Trs,UpMoveNum,DownMoveNum
     Set trs = Conn.Execute("select count(ID) from KS_Class where TN='" & Node.SelectSingleNode("@tn").text & "' and FolderOrder<" & Node.SelectSingleNode("@folderorder").text & "")
     UpMoveNum = trs(0)
     If KS.IsNul(UpMoveNum) Then UpMoveNum = 0
     
     
     if UpMoveNum>0 then
      .echo "<select name='MoveNum'><option value=0>↑向上移动</option>"
      for k=1 to UpMoveNum
      .echo "<option value=" & k &">" & k &"</option>"
      next
      .echo "</select> <input type='submit' value='修改' class='button'>"
     end if
     .echo "</td></form>"
     .echo "<form name='downform' action='KS.Class.asp?action=DoDownOrderNSave' method='post'>"
     .echo "<input type='hidden' value='" & Node.SelectSingleNode("@id").text & "' name='id'>"
     .echo "<td widht='100%'>"
     
     '所能降低最大幅度应为For i=1 to 该版之下的版面数
     Set trs = Conn.Execute("select count(ID) from KS_Class where tn='" & Node.SelectSingleNode("@tn").text & "' and Folderorder>" & Node.SelectSingleNode("@folderorder").text & "")
     DownMoveNum = trs(0)
     If KS.IsNul(DownMoveNum) Then DownMoveNum = 0
     
     if DownMoveNum>0 then
      .echo "<select name='MoveNum'><option value=0>↓向下移动</option>"
      for k=1 to DownMoveNum
      .echo "<option value=" & k &">" & k &"</option>"
      next
      .echo "</select> <input type='submit' value='修改' class='button'>"
     end if
     .echo "</td></form>"
        .echo "</tr></table>"
    End If
    
    i=i+1
    
    .echo "</td>"
    .echo "</tr>"
      Next
  End If
  .echo "<tr><td colspan=4>"
  Call KS.ShowPage(totalput, MaxPerPage, "", CurrentPage,true,true)
  .echo "</td></tr>"
  .echo "</table>"
   End With

 End Sub
 
 Sub DoUpOrderNSave()
  Dim ID:ID=KS.G("ID")
  Dim MoveNum:MoveNum=KS.ChkClng(Request.Form("MoveNum"))
  If ID="" Then KS.AlertHintScript "参数错误!"
  If MoveNum=0 Then KS.AlertHintScript "对不起,您没有选择位移量!"
 
 Dim parentID,OrderID,ParentPath,Child,sql, tOrderID,rs, trs, moveupnum, oldorders
   
    '要移动的栏目信息
    Set rs = Conn.Execute("select tn,folderOrder,ts,Child from KS_Class where ID='" & ID & "'")
 If RS.Eof Then
   RS.Close:Set RS=Nothing
   KS.AlertHintScript "对不起,参数传递出错啦!"
 End If
    ParentID = rs(0)
    OrderID = rs(1)
    ParentPath = rs(2)
    Child = rs(3)
    rs.Close
    Set rs = Nothing
 
    '获得要移动的栏目的所有子栏目数，然后加1（栏目本身），得到排序增加数（即其上栏目的OrderID增加数AddOrderNum）
    If Child > 0 Then
        Set rs = Conn.Execute("select count(*) from KS_Class where TS like '%" & ParentPath & "%'")
        oldorders = rs(0) +1
        rs.Close
        Set rs = Nothing
    Else
        oldorders = 1
    End If
   
    '和该栏目同级且排序在其之上的栏目------更新其排序，范围为要提升的数字oldorders
    sql = "select ID,FolderOrder,Child,ts from KS_Class where tn='" & ParentID & "' and FolderOrder<" & OrderID & " order by FolderOrder desc"
    Set rs = Server.CreateObject("adodb.recordset")
    rs.Open sql, Conn, 1, 3
    i = 0
    Do While Not rs.EOF
        tOrderID = rs(1)
        Conn.Execute ("update KS_Class set FolderOrder=FolderOrder+" & oldorders & " where id='" & rs(0) & "'")
        If rs(2) > 0 Then
            Set trs = Conn.Execute("select ID,FolderOrder from KS_Class where ts like '%" & rs(3) & "%' and id<>'" &rs(0) &"' order by FolderOrder")
            If Not (trs.BOF And trs.EOF) Then
                Do While Not trs.EOF
                    Conn.Execute ("update KS_Class set FolderOrder=FolderOrder+" & oldorders & " where ID='" & trs(0) &"'")
                    trs.MoveNext
                Loop
            End If
            trs.Close
            Set trs = Nothing
        End If
        i = i + 1
        If i >= MoveNum Then
            Exit Do
        End If
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing

    '更新所要排序的栏目的序号
    Conn.Execute ("update KS_Class set FolderOrder=" & tOrderID & " where ID='" &ID &"'")
    '如果有下属栏目，则更新其下属栏目排序
    If Child > 0 Then
        i = 1
        Set rs = Conn.Execute("select ID from KS_Class where ts like '%" & ParentPath & "%' and id<>'" & id & "' order by FolderOrder")
        Do While Not rs.EOF
            Conn.Execute ("update KS_Class set FolderOrder=" & tOrderID + i & " where ID='" & rs(0)&"'")
            i = i + 1
            rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
    End If
   
    KS.AlertHintScript "恭喜,上移成功!"
 End Sub
 
 Sub DoDownOrderNSave()
   Dim ID:ID=KS.G("ID")
   Dim MoveNum:MoveNum=KS.ChkClng(Request.Form("MoveNum"))
   If ID="" Then KS.AlertHintScript "参数错误!"
   If MoveNum=0 Then KS.AlertHintScript "对不起,您没有选择位移量!"
 
  Dim parentID,OrderID,ParentPath,Child,sql, tOrderID,rs, ii,trs, moveupnum, oldorders
  '要移动的栏目信息
  Set rs = Conn.Execute("select tn,folderOrder,ts,Child from KS_Class where ID='" & ID & "'")
  If RS.Eof Then
    RS.Close:Set RS=Nothing
    KS.AlertHintScript "对不起,参数传递出错啦!"
  End If
  ParentID = rs(0)
  OrderID = rs(1)
  ParentPath = rs(2)
  Child = rs(3)
  rs.Close
  Set rs = Nothing

  '和该栏目同级且排序在其之下的栏目------更新其排序，范围为要下降的数字
   sql = "select ID,FolderOrder,child,ts from KS_Class where tn='" & ParentID & "' and FolderOrder>" & OrderID & " order by FolderOrder"
   Set rs = Server.CreateObject("adodb.recordset")
   rs.Open sql, Conn, 1, 3
   i = 0    '同级栏目
   ii = 0   '同级栏目和子栏目
   Do While Not rs.EOF
    Conn.Execute ("update KS_Class set FolderOrder=" & OrderID + ii & " where ID='" & rs(0) &"'")
    If rs(2) > 0 Then
     Set trs = Conn.Execute("select ID,FolderOrder from KS_Class where ts like '%" & rs(3) & "%' and id<>'"&rs(0) &"' order by FolderOrder")
     If Not (trs.BOF And trs.EOF) Then
      Do While Not trs.EOF
       ii = ii + 1
       Conn.Execute ("update KS_Class set FolderOrder=" & OrderID + ii & " where ID='" & trs(0)&"'")
       trs.MoveNext
      Loop
     End If
     trs.Close
     Set trs = Nothing
    End If
    ii = ii + 1
    i = i + 1
    If i >= MoveNum Then
     Exit Do
    End If
    rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing
   
   '更新所要排序的栏目的序号
    Conn.Execute ("update KS_Class set FolderOrder=" & OrderID + ii & " where ID='" & ID &"'")
    '如果有下属栏目，则更新其下属栏目排序
    If Child > 0 Then
        i = 1
        Set rs = Conn.Execute("select ID from KS_Class where TS like '%" & ParentPath & "%' And ID<>'" & ID & "' order by FolderOrder")
        Do While Not rs.EOF
            Conn.Execute ("update KS_Class set FolderOrder=" & OrderID + ii + i & " where ID='" & rs(0)&"'")
            i = i + 1
            rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
    End If