在9.05下建的标签，模板，升级成9.5后发现标签内容切成栏目一就是怎么也显不出内容来，换成别的位目就能显示内容。而这个栏目一确实是存在内容的，这是怎么回事呢？？？？？奇怪

重大bug，也奇了怪了，就这一个栏目，新加文章可以出来数据，但若对这个文章最下面的图片处，加上图片地址，就出不来信息了，也太奇怪了吧？？

打开ks_cls/Kesion.Label.BaseFunCls

找到

'后台修改数据表数据

  Sub UpdateItemInfo(ChannelID,InfoID,Title,Tid,Intro,KeyWords,PhotoUrl,AddDate,Hits,HitsByDay,HitsByWeek,HitsByMonth,Recommend,Rolls,Strip,Popular,Slide,IsTop,Comment,Verific)

   Gcls.Execute("Update [KS_ItemInfo] Set Title='" & replace(Title,"'","''") & "',Tid='" & Tid & "',Intro='" & Replace(left(KS.LoseHtml(Intro),255),"'","''")  & "',KeyWords='" & Replace(KeyWords,"'","''") & "',PhotoUrl='" & PhotoUrl & "',AddDate='" & AddDate & "',ModifyDate=" & SQLNowString & ",Hits=" & KS.ChkClng(Hits) & ",HitsByDay=" & KS.ChkClng(HitsByDay) & ",HitsByWeek=" & KS.ChkClng(HitsByWeek) & ",HitsByMonth=" & KS.ChkClng(HitsByMonth) & ",Recommend=" & KS.ChkClng(Recommend) & ",Rolls=" & KS.ChkClng(Rolls) & ",Strip=" & KS.CHkClng(Strip) & ",Popular=" & KS.ChkClng(Popular) & ",Slide=" & KS.ChkClng(Slide) & ",IsTop=" & KS.ChkClng(IsTop)  &",Comment=" & KS.ChkClng(Comment) & ",Verific=" & KS.CHkClng(Verific) & " Where  ChannelID=" & KS.ChkClng(ChannelID) & " and InfoID=" & KS.ChkClng(InfoID))

  End Sub  

修改成

'后台修改数据表数据

  Sub UpdateItemInfo(ChannelID,InfoID,Title,Tid,Intro,KeyWords,PhotoUrl,AddDate,Hits,HitsByDay,HitsByWeek,HitsByMonth,Recommend,Rolls,Strip,Popular,Slide,IsTop,Comment,Verific)

   Dim SqlStr:SqlStr="Update [KS_ItemInfo] Set Title='" & replace(Title,"'","''") & "',Tid='" & Tid & "',Intro='" & Replace(left(KS.LoseHtml(Intro),255),"'","''")  & "',KeyWords='" & Replace(KeyWords,"'","''") & "',PhotoUrl='" & PhotoUrl & "',AddDate='" & AddDate & "',ModifyDate=" & SQLNowString & ",Hits=" & KS.ChkClng(Hits) & ",HitsByDay=" & KS.ChkClng(HitsByDay) & ",HitsByWeek=" & KS.ChkClng(HitsByWeek) & ",HitsByMonth=" & KS.ChkClng(HitsByMonth) & ",Recommend=" & KS.ChkClng(Recommend) & ",Rolls=" & KS.ChkClng(Rolls) & ",Strip=" & KS.CHkClng(Strip) & ",Popular=" & KS.ChkClng(Popular) & ",Slide=" & KS.ChkClng(Slide) & ",IsTop=" & KS.ChkClng(IsTop)  &",Comment=" & KS.ChkClng(Comment)

   if Verific<>100 Then SqlStr=SqlStr &",Verific=" & KS.CHkClng(Verific)

   SqlStr=SqlStr & " Where ChannelID=" & KS.ChkClng(ChannelID) & " and InfoID=" & KS.ChkClng(InfoID)

   Gcls.Execute(SqlStr)

  End Sub

经测试不管用

经查证修改时，若变更了属性是改了这个表的

KS_iteminfo 表的 verific(数字)属性全改为100了，

处理方法
update KS_iteminfo set verific=1 where verific=100