V6添加/编辑栏目取消自动生成搜索表单JS的简易步骤

默认情况下科汛V6系统会在后台添加/编辑栏目时,自动生成频道的搜索表单JS,以便更新相应的栏目名称等

但部分用户是不需要这个功能的,比如用户将js目录设置了不允许写入,或是这个搜索表单自己手工做了修改,这里就希望不要有这个功能,

如果你不要这个功能,请打开ks_cls/kesion.administratorcls.asp

找到文件最后的如下代码

 Sub ClassAction(ChannelID)
    'KS.Echo "<iframe src=""KS.ClassMenu.asp?action=Create"" frameborder=""0"" width=""0"" height=""0""></iframe>"
'exit sub
    
     Dim KSR:Set KSR=New Refresh
                 Call KS.CreateListFolder(KS.Setting(3) & KS.Setting(93))
     Dim SearchJS,FsoPath
      FsoPath=KS.Setting(3) & KS.Setting(93) & "S_" & KS.C_S(ChannelID,10) & ".js"
      SearchJS = "<table width=""98%"" border=""0"" align=""center"">" & vbCrLf
      SearchJS = SearchJS & "<form id=""SearchForm"" name=""SearchForm"" method=""get"" action=""" & KS.Setting(3) & "plus/Search.asp"">" & vbCrLf
      SearchJS = SearchJS & "  <tr>" & vbCrLf
      SearchJS = SearchJS & "    <td align=""center""><select name=""SearchType"">" & vbCrLf
     
      select case ks.c_s(channelid,6)
       case 1
      SearchJS = SearchJS & "        <option value=""1"">标 题</option>" & vbCrLf
      SearchJS = SearchJS & "        <option value=""2"">内 容</option>" & vbCrLf
      SearchJS = SearchJS & "        <option value=""3"">作 者</option>" & vbCrLf
      SearchJS = SearchJS & "        <option value=""4"">录入者</option>" & vbCrLf
      SearchJS = SearchJS & "        <option value=""5"">关键字</option>" & vbCrLf
       case 2
      SearchJS = SearchJS & "          <option value=""1"">名 称</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""2"">简 介</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""3"">作 者</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""4"">录入者</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""5"">关键字</option>" & vbCrLf
       case 3
      SearchJS = SearchJS & "          <option value=""1"">名 称</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""2"">简 介</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""3"">开发商</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""4"">录入者</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""5"">关键字</option>" & vbCrLf
       case 4
      SearchJS = SearchJS & "          <option value=""1"">名 称</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""2"">简 介</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""3"">作 者</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""4"">录入者</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""5"">关键字</option>" & vbCrLf
       case 5
      SearchJS = SearchJS & "          <option value=""1"">商品名称</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""2"">生 产 商</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""3"">商品介绍</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""5"">商品Tags</option>" & vbCrLf
       case 7
      SearchJS = SearchJS & "          <option value=""1"">影片名称</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""2"">影片主演</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""3"">影片介绍</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""5"">影片Tags</option>" & vbCrLf
       case 8
      SearchJS = SearchJS & "          <option value=""1"">信息主题</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""2"">发布者</option>" & vbCrLf
      SearchJS = SearchJS & "          <option value=""3"">信息介绍</option>" & vbCrLf
      end select
      SearchJS = SearchJS & "      </select>" & vbCrLf
      SearchJS = SearchJS & "        <select name=""ClassID"" style=""width:150"">" & vbCrLf
      SearchJS = SearchJS & "          <option value=""0"" selected=""selected"">所有栏目</option>" & vbCrLf
      SearchJS = SearchJS & KS.LoadClassOption(ChannelID)
      SearchJS = SearchJS & "        </select>" & vbCrLf
      SearchJS = SearchJS & "        <input name=""KeyWord"" type=""text"" class=""textbox""  value=""关键字"" onfocus=""this.select();""/>" & vbCrLf
      SearchJS = SearchJS & "        <input name=""ChannelID"" value=""" & channelid & """ type=""hidden"" />" & vbCrLf
      SearchJS = SearchJS & "        <input type=""submit"" class=""inputButton"" name=""Submit"" value=""搜 索"" /></td>" & vbCrLf
      SearchJS = SearchJS & "  </tr>" & vbCrLf
      SearchJS = SearchJS & "</form>" & vbCrLf
      SearchJS = SearchJS & "</table>"
     
      SearchJS = Replace(Replace(SearchJS,"'","\'"),"""","\""")
      SearchJS = KSR.ReplaceJsBr(SearchJS)
      
      Call KSR.FsoSaveFile(SearchJS,FsoPath)
                  Set KSR=Nothing
   End Sub

将上面红色的那句代码删除就可以了