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