V6后台专题查看时会显示无关文章的解决方法

经用户反映,在后台的专题管理点击显示时,会出现一些没有加入这个专题的文章,经过我们测试发现,这是因为缺少模型ID关联的原因,解决方法为打开

admin/ks.special.asp找到以下代码  '显示专题下的信息
  Sub ShowInfo()
      MaxPerPage=10
    With KS
    .echo ("<table width=""100%"" align='center' border=""0"" cellpadding=""0"" cellspacing=""0"">")
    .echo ("<form name='myform' id='myform' action='KS.Special.asp' method='post'>")
    .echo ("<input type='hidden' name='action' value='SpecialInfoDel'>")
       .echo ("<tr class='sort'>")
    .echo ("<td>选择</td><td>文档名称</td><td>分类</td><td>添加时间</td><td>管理操作</td>")
    .echo ("</tr>")

    Dim SQLStr
    Dim RS:Set RS=Server.CreateoBject("ADODB.RECORDSET")
    SQLStr="Select R.ID,I.ChannelID,I.InfoID,I.Title,I.Tid,I.AddDate From KS_ItemInfo I Inner Join KS_SpecialR R On I.InfoID=R.InfoID Where R.SpecialID=" & SpecialID & " Order by i.id Desc"
    RS.Open SQLStr,Conn,1,1

修改成

  '显示专题下的信息
  Sub ShowInfo()
      MaxPerPage=10
    With KS
    .echo ("<table width=""100%"" align='center' border=""0"" cellpadding=""0"" cellspacing=""0"">")
    .echo ("<form name='myform' id='myform' action='KS.Special.asp' method='post'>")
    .echo ("<input type='hidden' name='action' value='SpecialInfoDel'>")
       .echo ("<tr class='sort'>")
    .echo ("<td>选择</td><td>文档名称</td><td>分类</td><td>添加时间</td><td>管理操作</td>")
    .echo ("</tr>")

    Dim SQLStr
    Dim RS:Set RS=Server.CreateoBject("ADODB.RECORDSET")
    SQLStr="Select R.ID,I.ChannelID,I.InfoID,I.Title,I.Tid,I.AddDate From KS_ItemInfo I Inner Join KS_SpecialR R On I.InfoID=R.InfoID Where R.SpecialID=" & SpecialID & "and i.channelid=r.channelid Order by i.id Desc"
    RS.Open SQLStr,Conn,1,1
 

注意红色的为加上的代码