KesionCMS V7.0x批量加入专题，不删除原来已所属专题的修改-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2226 查看	2 回复

主题：[分享]KesionCMS V7.0x批量加入专题，不删除原来已所属专题的修改 [收藏主题]

科汛官方当前离线

47268 主题	145 广播	405 粉丝

级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
创始人

科汛官方发表于：2011/1/26 16:35:39 | 只看该作者查看该作者主题楼主

做考试题库就用#科汛在线考试系统!

现在版本如果在后台管理列表里批量加入专题，会将之前该文章已所属的专题删除，但很我时候我们只是希望此文章新归属其它专题并不希望删除原来已加入的专题。解决方法如下：

打开admin/ks.iteminfo.asp

找到700多行

If Request.Form("Flag") = "Add" Then

   Dim SpecialID, NewsIDArr, K,I

   SpecialID = Replace(Request.Form("SpecialID")," ","")



   NewsID=KS.FilterIDs(NewsID)

If NewsID<>"" Then

   Dim NArr:Narr=Split(NewsID,",")

   SpecialID= Split(SpecialID,",")

   For K=0 To Ubound(NArr)

   Conn.Execute("Delete From KS_SpecialR Where InfoID=" & NArr(K) & " and channelid=" & ChannelID)

For I=0 To Ubound(SpecialID)

      Conn.Execute("Insert Into KS_SpecialR(SpecialID,InfoID,ChannelID) values(" & SpecialID(I) & "," & NArr(K) & "," & ChannelID & ")")

      Next

   Next

End If

改成

If Request.Form("Flag") = "Add" Then

   Dim SpecialID, NewsIDArr, K,I

   SpecialID = Replace(Request.Form("SpecialID")," ","")



   NewsID=KS.FilterIDs(NewsID)

If NewsID<>"" Then

   Dim NArr:Narr=Split(NewsID,",")

   SpecialID= Split(SpecialID,",")

   For K=0 To Ubound(NArr)

      For I=0 To Ubound(SpecialID)

   If Conn.Execute("select top 1 * from KS_SpecialR Where SpecialID=" & SpecialID(I) &" And InfoID=" & NArr(K) & " And ChannelID=" & ChannelID).eof Then

Conn.Execute("Insert Into KS_SpecialR(SpecialID,InfoID,ChannelID) values(" & SpecialID(I) & "," & NArr(K) & "," & ChannelID & ")")

   End If

Next

   Next

End If