V6专题页放分页标签且不指定模型时出错

经用户反应V6版本在专题页放文章分页标签,并且标签里的所属模型属性不指定到具体模型时,会将不属于本专题下的文章也显示出来,经测试,现将解决方法提供如下:

请用dw等编辑工具打开ks_cls/kesion.commoncls.asp找到以下函数

'取得专题查询参数,应用于Sql条件
  Function GetSpecialPara(ChannelID,SpecialID)
      If SpecialID = "-1" Then
      If FCls.RefreshType = "Special" Then
        If ChannelID<>0 Then
      GetSpecialPara=" And ID in(select infoid from ks_specialr where ChannelID=" & ChannelID & " and  SpecialID=" & ChkClng(FCls.CurrSpecialID) & ") "
        Else
      GetSpecialPara=" And InfoID in(select infoid from ks_specialr where SpecialID=" & ChkClng(FCls.CurrSpecialID) & ") "
        End If
      Else
       GetSpecialPara = ""
      End If
     ElseIf (SpecialID = "" Or SpecialID = "0" Or IsNull(SpecialID))  Then
      GetSpecialPara = ""
     Else
         If ChannelID<>0 Then
         GetSpecialPara=" And InfoID in(select infoid from ks_specialr where SpecialID=" & ChkClng(SpecialID) & " and channelid=" & channelid & ") "
      Else
         GetSpecialPara=" And InfoID in(select infoid from ks_specialr where SpecialID=" & ChkClng(SpecialID) & ") "
      End If
     End If
  End Function

我们将其改成以下代码即可

'取得专题查询参数,应用于Sql条件
  Function GetSpecialPara(ChannelID,SpecialID)
      If SpecialID = "-1" Then
      If FCls.RefreshType = "Special" Then
        If ChannelID<>0 Then
      GetSpecialPara=" And ID in(select infoid from ks_specialr where ChannelID=" & ChannelID & " and  SpecialID=" & ChkClng(FCls.CurrSpecialID) & ") "
        Else
      GetSpecialPara=" And InfoID in(select infoid from ks_specialr r where SpecialID=" & ChkClng(FCls.CurrSpecialID) & " and i.channelid=r.channelid) "
        End If
      Else
       GetSpecialPara = ""
      End If
     ElseIf (SpecialID = "" Or SpecialID = "0" Or IsNull(SpecialID))  Then
      GetSpecialPara = ""
     Else
         If ChannelID<>0 Then
         GetSpecialPara=" And InfoID in(select infoid from ks_specialr where SpecialID=" & ChkClng(SpecialID) & " and channelid=" & channelid & ") "
      Else
         GetSpecialPara=" And InfoID in(select infoid from ks_specialr r where SpecialID=" & ChkClng(SpecialID) & " and i.channelid=r.channelid) "
      End If
     End If
  End Function

注意红色的代码为增加的