问题描述见

http://bbs.kesion.com/dispbbs.asp?boardid=44&Id=89517

3步即可解决:

这个在科汛的标签核心解释文件里 ks_cls/kesion.label.functioncls.asp

第一步:

找到

      If PrintType>=2 Then  FieldStr=FieldStr & ",I.PhotoUrl,I.Intro" : If PrintType=2 Then Param = Param & " And I.PicNews=1"

改成

         If PrintType>=2 Then  FieldStr=FieldStr & ",I.PhotoUrl,I.Intro" : If PrintType=2 or instr(LabelStyle,"{@photourl}")>0 Then Param = Param & " And I.PicNews=1"

第二步:

需要在本文件的头部定义一个全局变量

Private KS,DomainStr,CurrModelID,LabelStyle

加以上红色的变量

第三步:

最后找到

  '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  '函数名:GetLabel
  '作 用: 解释执行系统函数标签
  '参 数: Content标签内容,如{Tag:GetGenericList modelid="1"}<li>循环体</li>{/Tag}
  '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  Function GetLabel(Content)
   Dim LabelStyle
   LabelStyle     = KS.GetTagLoop(Content)
   LabelFunName   = Split(Content," ")(0)
      LabelParamStr  = Replace(Replace(Content, LabelFunName, ""),"}" & LabelStyle&"{/Tag}", "")
         LabelFunName   = Replace(LabelFunName,"{Tag:","")
   on error resume next
   Execute("GetLabel= " & LabelFunName & "(LabelStyle)")
   if err then err.clear
  End Function

把红色的删除

经过以上修改,调用文章的图片标签时,就不会再将没有设置成图片文章的文档也调用出来了.类似V5的图片文章列表标签.只调用有图片的文章.........