看了此贴，我们今后做网站，就全用sql标签了！！

我用sql标签实现了如下功能：

 
此主题相关图片如下：

上图中，没有最新，和字体颜色，等，这就是，sql标签的唯一缺点:

不能显示字体颜色  和最新标志   

我想实现原理，应当很简单，  在标签replace完后，再根据时间判断　　加上最新标志即可．

看到版主如此赏识在下，我就写出来．

《有关sql标签的改进》

Modify by wlll  qq：58503239    2007.3.3

请放心使用代码，已经过严格测试！！！做出的效果，如下：

 
此主题相关图片如下：

Sql标签的唯一缺点是，写出来的标签缺少了：

Rs(“titletype”)

Rs(“titlefontcolor”)

Rs(“titefonttype”)

Rs(“showcomment”)

Rs(“coment”)

Rs(“popular”)

Rs(“adddate”)

上述七个字段。也即，缺少了这七个字段，将导致：

[图文]  [组图]  [推荐]  [注意]  新闻标题颜色，加粗，斜体

标题后显示评论二字    如果是本日加的显示new.gif图片，以及hot.gif图片

这些属性丢失。

本文将这些属性加进来，使作出来的标签有这些特性。

打开：KS_Cls/KS_RefreshCls.asp文件，找到：（大约在288行左右）

              '替换循环部分内容
   

              Function GetCirLabelContent(CirLabelContent,ByRef KS_RS_Obj,LoopTimes)

这个函数，我们便在里面作手术：

在314行左右：

        Case "text"
          ReturnFieldValue=Get_Text_Field(DB_FieldValue,FieldParamArr(2),FieldParamArr(3),FieldParamArr(4),FieldParamArr(5))

'Modify by wll 2007.3.3 ====================================================
if lcase(FieldName) = "title" then        '如果当前字段名为title，即文章标题,这里没考滤到别的表是不是也用了title作为字段名
 on error resume next         '如果你在建立sql标签里,没有选titletype,titlefontcolor,titlefonttype字段,定要出错,这里用这句解决
 ReturnFieldValue = KMRFObj.GetArticleTitle(ReturnFieldValue, Len(ReturnFieldValue), True, KS_RS_Obj("TitleType"), KS_RS_Obj("TitleFontColor"), KS_RS_Obj("TitleFontType"))
 
 on error resume next         '还用到了tid和newsid字段
 If KS_RS_Obj("ShowComment") = 1 And KS_RS_Obj("Comment") = 1 Then
      ReturnFieldValue = ReturnFieldValue & " <a href=""" & DomainStr & "Comment.asp?ChannelID=1&Classid=" & Trim(KS_RS_Obj("Tid")) & "&InfoID=" & KS_RS_Obj("NewsID") & """ target=""_blank"">评论</a>"
 Else
      ReturnFieldValue = ReturnFieldValue & ""
 End If
 on error resume next
 If  (Year(KS_RS_Obj("AddDate"))&Month(KS_RS_Obj("AddDate"))&Day(KS_RS_Obj("AddDate")) = Year(Now)&Month(Now)&Day(Now)) Then
 
      ReturnFieldValue = ReturnFieldValue & "<img src=""" & DomainStr &"images/new.gif"" border=""0""/>"
 
 Else
 
      ReturnFieldValue = ReturnFieldValue & ""
 End if   
 
 '由于showhotflag不是ks_article表格里的字段,所以,我也加不进热门标志了
 'If Cbool(ShowHotFlag)=True And RS("Popular")=1 Then HotImgStr="<img src=""" & DomainStr & "images/hot.gif"" border=""0""/>" Else HotImgStr=""

end if
'Modify by wll 2007.3.3 ====================================================         
        Case "num"
          ReturnFieldValue=Get_Num_Field(DB_FieldValue,FieldParamArr(2),FieldParamArr(3))

====================================================================

showcomment

showcomment

showcomment

coment 

popular

adddate

还有：

tid和newsid

字段。总之共9个字段,不要忘记加在sql语句里!!

例如:

select ID,Tid,Title,Picurl,Author,Adddate,Comment,NewsID,PicNews,Popular,Recommend,ShowComment,TitleFontColor,TitleFontType,TitleType,Hits from KS_Article  where tid in({$CurrClassChildID})  order by id desc

 便是一个完好的语句.

========================================

问题1:如果,我在构造sql语句时,没有选上述9个字段或其一,会不会,出错?

答:不会,和原来一样.因为有on error resume next

问题2:采用上述后,做出的效果:

此主题相关图片如下：

问题3：我在添加新闻时，标注了 推荐二字，为什么显示不出来？

答：这是官方系统的一个bug，问题出在：(KS_RefreshFunctionCls.asp文件里）

此主题相关图片如下：

下载此处：

[此贴子已经被作者于2007-3-3 17:00:40编辑过]

good只能收藏了！

sql 标签的第二个缺点是：

不能应用于blog,留言，这些表，目前，只支持ks_article，官方可考虑吗？

其他的表也是可以的，只是实际用途上没有if之类的判断，不过也是够用的！  如果能增加判断，那就相当强大了！

我测试  除了new的功能实现外 其他的功能均没有成功！