Kesion.Label.FunctionCls.asp  190行左右：

 If ModelID<>"0" Then
      Param = " Inner Join KS_ItemInfoR R On I.ID=R.RelativeID Where I.Verific=1 And I.DelTF=0 And R.InfoID=" & FCls.RefreshInfoID & " And R.RelativeChannelID=" & ModelID 

    Else
      Param = " Inner Join KS_ItemInfoR R On I.InfoID=R.RelativeID Where I.Verific=1 And I.DelTF=0 And R.InfoID=" & FCls.RefreshInfoID

改为：

 If ModelID<>"0" Then
      Param = " Inner Join KS_ItemInfoR R On I.ID=R.RelativeID Where I.Verific=1 And I.DelTF=0 And R.InfoID=" & FCls.RefreshInfoID & " And R.RelativeChannelID=" & ModelID &" and R.RelativeChannelID=I.ChannelID"
    Else
      Param = " Inner Join KS_ItemInfoR R On I.InfoID=R.RelativeID Where I.Verific=1 And I.DelTF=0 And R.InfoID=" & FCls.RefreshInfoID &" and R.RelativeChannelID=I.ChannelID"

Kesion.AdministratorCls.asp  817 行左右

 SQLStr="Select TOP 200 I.ChannelID,I.InfoID,I.Title From KS_ItemInfo I Inner Join KS_ItemInfoR R On I.InfoID=R.RelativeID Where R.ChannelID=" & ChannelID &"  and R.InfoID=" & ID

改为：

 SQLStr="Select TOP 200 I.ChannelID,I.InfoID,I.Title From KS_ItemInfo I Inner Join KS_ItemInfoR R On I.InfoID=R.RelativeID Where R.ChannelID=" & ChannelID &"  and R.InfoID=" & ID &" and R.RelativeChannelID=I.ChannelID"

来顶个    

         3D字谜

留个印记

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

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

打开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