经测试你的方法有效.加精处理

另我我补充下,后台全部移除相关信息无效的解决方法

打开admin/ks.article.asp

找到

      If SelectInfoList<>"" Then
       Conn.Execute("Delete From KS_ItemInfoR Where InfoID=" & NewsID & " and channelid=" & ChannelID)
       SelectInfoList=Split(SelectInfoList,",")
       For I=0 To Ubound(SelectInfoList)
        If KS.FoundInArr(HasInRelativeID,SelectInfoList(i),",")=false Then
            Conn.Execute("Insert Into KS_ItemInfoR(ChannelID,InfoID,RelativeChannelID,RelativeID) values(" & ChannelID &"," & RS("ID") & "," & Split(SelectInfoList(i),"|")(0) & "," & Split(SelectInfoList(i),"|")(1) & ")")
         HasInRelativeID=HasInRelativeID & SelectInfoList(i) & ","
        End If
       Next
      End If

修改成

      Conn.Execute("Delete From KS_ItemInfoR Where InfoID=" & NewsID & " and channelid=" & ChannelID)

      If SelectInfoList<>"" Then
         SelectInfoList=Split(SelectInfoList,",")
       For I=0 To Ubound(SelectInfoList)
        If KS.FoundInArr(HasInRelativeID,SelectInfoList(i),",")=false Then
            Conn.Execute("Insert Into KS_ItemInfoR(ChannelID,InfoID,RelativeChannelID,RelativeID) values(" & ChannelID &"," & RS("ID") & "," & Split(SelectInfoList(i),"|")(0) & "," & Split(SelectInfoList(i),"|")(1) & ")")
         HasInRelativeID=HasInRelativeID & SelectInfoList(i) & ","
        End If
       Next
      End If

即把删除语句提前.这样就可以移除了,其它模型类似.图片在KS.Picture.asp,下载ks.down.asp ,商城KS.Shop.asp