Z-Blog的RSS优化插件Better Feed

我开发的这个Z-Blog的Better Feed插件的主要功能是扩展现有Z-Blog生成的Feed的内容。

开发这个插件的起因很偶然，因为前几天我在网上看到Wordpress的Better Feed插件，非常羡慕这个功能（Wordpress的好用插件可真多啊），于是手开始发痒，也做一个类似的插件，应用到我目前使用的Z-Blog系统上。

目前主要做的功能是在Feed上增加“相关文章”功能。由于我的Feed是使用全文RSS输出，因此损失了不少Web流量，不过，如果在Feed的功能上进行一些扩展和优化，不但可以有利于读者更全面了解文章内容，还可以弥补损失的流量，做到了双赢。

首先的功能是根据文章的内容，在Feed底部增加一个“相关文章”的功能，这样有兴趣的读者可以很方便地阅读相关内容的文章。

其次的功能是在Feed底部增加“发表评论”的链接，这样，如果读者看到这篇文章，并且想要发表自己的意见的时候，可以点这个链接进去留言。（为了方便FeedBurner统计点击数，这个链接我暂时没加，有兴趣的可以自己添加一下）

再次，做为预留功能，我还可以在Feed里面增加广告功能，显示和内容相关的匹配文字广告。

因此我相信，实现了这些功能之后，做为全文RSS输出的不少缺点就都解决了，这样，很多人就更愿意使用全文RSS输出，方便读者，也不会对自己造成太大冲击。

具体的修改方法是，对于Z-Blog 1.6，打开c_system_event.asp文件，找到Function ExportRSS（）函数，如果是全文RSS，就将objArticle.HtmlContent替换为objArticle.HtmlContent+getRelateList(objArticle.ID,objArticle.Tag)，如果是摘要输出，则替换objArticle.HtmlIntro。最后，在c_system_event.asp文件尾部加入以下代码即可。

'*********************************************************
' 目的：相关文章的生成，用于优化Feed
'*********************************************************
Function getRelateList(intID,strTag)

If (intID=0) Then Exit Function
If strTag<>"" Then

 Dim strCC_Count,strCC_ID,strCC_Name,strCC_Url,strCC_PostTime,strCC_Title
 Dim strCC
 Dim i
 Dim j
 Dim objRS
 Dim strSQL
 Dim strOutput

 strOutput=""
 Set objRS=Server.CreateObject("ADODB.Recordset")

 strSQL="SELECT top 10  [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Level],[log_AuthorID],[log_PostTime],[log_Url] FROM [blog_Article] WHERE ([log_Level]>2) AND [log_ID]<>"& intID &" "

 Dim aryTAGs
 If InStr(strTag,"}{") > 0 Then
  aryTAGs = Split(strTag,"}{")
 Else
  ReDim aryTAGs(0)
  aryTAGs(0) = strTag
 End If
 strSQL = strSQL & " AND ("
 For j = 0 To UBound(aryTAGs)
  If Not (IsNull(aryTAGs(j)) Or IsEmpty(aryTAGs(j)) Or aryTAGs(j) = "" Or Len(aryTAGs(j)) < 1) Then
   aryTAGs(j) = Replace(Replace(aryTAGs(j),"}",""),"{","")
   If IsNumeric(aryTAGs(j)) Then
    If j > 0 Then strSQL = strSQL & " OR "
    strSQL = strSQL & "([log_Tag] Like '%{"&aryTAGs(j)&"}%')"
   End If
  End If
 Next
 strSQL = strSQL & ")"
 strSQL = strSQL + " ORDER BY [log_PostTime] DESC "

 Set objRS=Server.CreateObject("ADODB.Recordset")
 objRS.CursorType = adOpenKeyset
 objRS.LockType = adLockReadOnly
 objRS.ActiveConnection=objConn
 objRS.Source=strSQL
 objRS.Open()
 If (not objRS.bof) And (not objRS.eof) Then

   For i=1 To 5 '相关文章数目，可自行设定

    strCC_Count=strCC_Count+1
    strCC_ID=objRS("log_ID")
    strCC_Url=objRS("log_Url")
    strCC_PostTime=objRS("log_PostTime")
    strCC_Title=objRS("log_Title")

    Application.Lock
    strCC=Application(ZC_BLOG_CLSID & "TEMPLATE_ARTICLE_Mutuality")
    Application.UnLock

    If IsNull(strCC_Url) Or IsEmpty(strCC_Url) Or strCC_Url="" Then
    strCC_Url=strCC_ID
    end if

    strCC=Replace(strCC,"<#article/mutuality/id#>",strCC_ID)
    strCC=Replace(strCC,"<#article/mutuality/url#>",ZC_BLOG_HOST & ZC_STATIC_DIRECTORY & "/" & CStr(strCC_Url))
    strCC=Replace(strCC,"<#article/mutuality/posttime#>",strCC_PostTime)
    strCC=Replace(strCC,"<#article/mutuality/name#>",strCC_Title)

    strOutput=strOutput & strCC

  objRS.MoveNext
  If objRS.eof Then Exit For
   Next

 End if

 objRS.Close()
 Set objRS=Nothing

End If

strOutput=Replace(strOutput,vbCrlf,"")
getRelateList="<br/>----<br/><br/>相关文章：<ul>" + strOutput + "</ul>  "

End Function