Z-Blog 1.8 Walle 下载Dutory 0.3 Gromit 发布PJBlog2 to Z-Blog数据库转换程序Wordpress数据导入插件 for 1.8
Z-BLOG使用小贴士收集如何配置Z-Blog高阶学习手册Windows Live Writer支持插件 
12
返回列表 回复 发帖
debugger

中级会员

Rank: 3

金钱
670 ZB 

2007年主题大赛 [最佳技术奖章]
1#
打印
tT
发表于 2007-2-7 02:54 | 只看该作者

better feeds 修改方案 for 1.7 Laputa

关于什么是better feeds 以及 better feeds 的1.6版本可参考这里:
http://bbs.rainbowsoft.org/viewthread.php?tid=845&highlight=feed
不过1.7版本下不能使用了,可行的修改方法如下:

打开c_system_event.asp文件，找到Function ExportRSS（）函数，如果是全文RSS，就将objArticle.HtmlContent替换为objArticle.HtmlContent +getRelateList(objArticle.ID,objArticle.Tag)，如果是摘要输出，则替换 objArticle.HtmlIntro。最后，在c_system_event.asp文件尾部加入以下代码即可。
  1. '*********************************************************
  2. ' 目的：相关文章的生成，用于优化Feed
  3. '*********************************************************
  4. Function getRelateList(intID,strTag)
  5. If (intID=0) Then Exit Function
  6. If strTag<>"" Then

  8.    Dim strCC_Count,strCC_ID,strCC_Name,strCC_Url,strCC_PostTime,strCC_Title
  9.    Dim strCC
  10.    Dim i
  11.    Dim j
  12.    Dim objRS
  13.    Dim strSQL

  15.    Dim strOutput
  16.    strOutput=""

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

  20. 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 &" "

  22.    strSQL = strSQL & " AND ("

  24.    Dim aryTAGs
  25.    strTag=Replace(strTag,"}","")
  26.    aryTAGs=Split(strTag,"{")

  28.                         For j = LBound(aryTAGs) To UBound(aryTAGs)
  29.                                 If aryTAGs(j)<>"" Then
  30.                                         strSQL = strSQL & "([log_Tag] Like '%{"&aryTAGs(j)&"}%')"
  31.                                         If j=UBound(aryTAGs) Then Exit For
  32.                                         If aryTAGs(j)<>"" Then strSQL = strSQL & " OR "
  33.                                 End If
  34.                         Next

  36.    strSQL = strSQL & ")"
  37.    strSQL = strSQL + " ORDER BY [log_PostTime] DESC "

  39.    Set objRS=Server.CreateObject("ADODB.Recordset")
  40.    objRS.CursorType = adOpenKeyset
  41.    objRS.LockType = adLockReadOnly
  42.    objRS.ActiveConnection=objConn
  43.    objRS.Source=strSQL
  44.    objRS.Open()
  45.    If (Not objRS.bof) And (Not objRS.eof) Then
  46.   
  47.     For i=1 To 5 '相关文章数目，可自行设定
  48. Dim objArticle
  49. Set objArticle=New TArticle

  51. If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),"","",objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),"","","",objRS("log_Url"),"")) Then

  53.                                                 strCC_Count=strCC_Count+1
  54.                                                 strCC_ID=objArticle.ID
  55.                                                 strCC_Url=objArticle.Url
  56.                                                 strCC_PostTime=objArticle.PostTime
  57.                                                 strCC_Title=objArticle.Title

  59.                                                 Application.Lock
  60.                                                 strCC=Application(ZC_BLOG_CLSID & "TEMPLATE_B_ARTICLE_Mutuality")
  61.                                                 Application.UnLock

  63.                                                 strCC=Replace(strCC,"<#article/mutuality/id#>",strCC_ID)
  64.                                                 strCC=Replace(strCC,"<#article/mutuality/url#>",strCC_Url)
  65.                                                 strCC=Replace(strCC,"<#article/mutuality/posttime#>",strCC_PostTime)
  66.                                                 strCC=Replace(strCC,"<#article/mutuality/name#>",strCC_Title)
  67.       strOutput=strOutput & strCC
  68.           
  69.           end if
  70.       Set objArticle=nothing
  71.      objRS.MoveNext
  72.      If objRS.eof Then Exit For
  73.     Next

  75.    End if

  77.    objRS.Close()
  78.    Set objRS=Nothing
  79.   End If

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

  84. End Function
  85. %>
复制代码
如果想要加入评论也可以,可参考1.6版本下zx.mys的跟贴,最好其本人能补充一下,hoho

[ 本帖最后由 debugger 于 2007-3-3 00:00 编辑 ]
收藏 分享 评分
http://www.winshome.com
回复 引用

订阅 TOP

Zx.MYS

开发组

Rank: 27Rank: 27Rank: 27

金钱
17407 ZB 

2007年论坛霸主 [月度人气奖章]
2#
发表于 2007-2-7 16:12 | 只看该作者
-_- 晕~"其本人在此"...还是不幸给你点到名了~
加评论链接的代码在此:
  1. '*********************************************************
  2. ' 目的：优化Feed
  3. '*********************************************************
  4. Function getRelateList(intID,strTag,strTitle,strURL)
  5. If (intID=0) Then Exit Function
  6. If strTag<>"" Then

  8.    Dim strCC_Count,strCC_ID,strCC_Name,strCC_Url,strCC_PostTime,strCC_Title
  9.    Dim strCC
  10.    Dim i
  11.    Dim j
  12.    Dim objRS
  13.    Dim strSQL

  15.    Dim strOutput
  16.    strOutput=""

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

  20. 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 &" "

  22.    strSQL = strSQL & " AND ("

  24.    Dim aryTAGs
  25.    strTag=Replace(strTag,"}","")
  26.    aryTAGs=Split(strTag,"{")

  28.                         For j = LBound(aryTAGs) To UBound(aryTAGs)
  29.                                 If aryTAGs(j)<>"" Then
  30.                                         strSQL = strSQL & "([log_Tag] Like '%{"&aryTAGs(j)&"}%')"
  31.                                         If j=UBound(aryTAGs) Then Exit For
  32.                                         If aryTAGs(j)<>"" Then strSQL = strSQL & " OR "
  33.                                 End If
  34.                         Next

  36.    strSQL = strSQL & ")"
  37.    strSQL = strSQL + " ORDER BY [log_PostTime] DESC "

  39.    Set objRS=Server.CreateObject("ADODB.Recordset")
  40.    objRS.CursorType = adOpenKeyset
  41.    objRS.LockType = adLockReadOnly
  42.    objRS.ActiveConnection=objConn
  43.    objRS.Source=strSQL
  44.    objRS.Open()
  45.    If (Not objRS.bof) And (Not objRS.eof) Then
  46.   
  47.     For i=1 To 5 '相关文章数目，可自行设定
  48. Dim objArticle
  49. Set objArticle=New TArticle

  51. If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),"","",objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),"","","",objRS("log_Url"),"")) Then

  53.                                                 strCC_Count=strCC_Count+1
  54.                                                 strCC_ID=objArticle.ID
  55.                                                 strCC_Url=objArticle.Url
  56.                                                 strCC_PostTime=objArticle.PostTime
  57.                                                 strCC_Title=objArticle.Title

  59.                                                 Application.Lock
  60.                                                 strCC=Application(ZC_BLOG_CLSID & "TEMPLATE_B_ARTICLE_Mutuality")
  61.                                                 Application.UnLock

  63.                                                 strCC=Replace(strCC,"<#article/mutuality/id#>",strCC_ID)
  64.                                                 strCC=Replace(strCC,"<#article/mutuality/url#>",strCC_Url)
  65.                                                 strCC=Replace(strCC,"<#article/mutuality/posttime#>",strCC_PostTime)
  66.                                                 strCC=Replace(strCC,"<#article/mutuality/name#>",strCC_Title)
  67.       strOutput=strOutput & strCC
  68.          
  69.           end if
  70.       Set objArticle=nothing
  71.      objRS.MoveNext
  72.      If objRS.eof Then Exit For
  73.     Next

  75.    End if

  77.    objRS.Close()
  78.    Set objRS=Nothing
  79.   End If
  80. strOutput=Replace(strOutput,vbCrlf,"")
  81. getRelateList= "<br/><br/><br/><a href="""+strURL+"#comment"" target=""_blank"">《"+strTitle+"》这篇文章挺有意思的，我也想来评论两句</a>"
  82. IF strOutput<>"" then
  83. getRelateList=  getRelateList+"<br/>----<br/>相关文章：<ul>" + strOutput + "</ul>  "
  84. end if
  85. End Function
复制代码
打开c_system_event.asp文件
找到Function ExportRSS函数
(摘要输出)把原有objArticle.HtmlIntro改为
objArticle.HtmlIntro+getRelateList(objArticle.ID,objArticle.Tag,objArticle.Title,objArticle.URL)
(全文输出)把原有objArticle.HtmlContent改为
objArticle.HtmlContent+getRelateList(objArticle.ID,objArticle.Tag,objArticle.Title,objArticle.URL)

还有哦,我觉得把这种BETTER FEED叫做插件不太好,应该叫做源码修改.~

[ 本帖最后由 Zx.MYS 于 2007-3-10 00:20 编辑 ]
[AD]:个人BLOG：思想碎片@Zx.MYS
[说明]:1.有事请发帖，论坛短消息已禁用。2.写Z-Blog程序的不是我，是另外一个zx。
回复 引用

TOP

hotsky

注册会员

Rank: 2Rank: 2

金钱
1400 ZB 
3#
发表于 2007-2-28 23:07 | 只看该作者

有疑问

感谢二位老大的辛勤劳动 只是我在使用过程中遇到了一点小小的麻烦，就是在RSS阅读器里ｆｅｅｄ的相关文章是显示出来了，但生成的地址比如　http://www.gandalf2006.com/post/13，后面就少了．ｈｔｍｌ，真是让人百思不得其解
回复 引用

TOP

debugger

中级会员

Rank: 3

金钱
670 ZB 

2007年主题大赛 [最佳技术奖章]
4#
发表于 2007-3-3 00:01 | 只看该作者

回复 #3 hotsky 的帖子

的确是这样，原文程序有点问题，现在已经修正，已经支持自定义目录和匿名路径下的相关文章生成，多谢提醒。
http://www.winshome.com
回复 引用

TOP

hotsky

注册会员

Rank: 2Rank: 2

金钱
1400 ZB 
5#
发表于 2007-3-9 17:45 | 只看该作者
谢谢老大
回复 引用

TOP

asongzhang

注册会员

Rank: 2Rank: 2

金钱
1066 ZB 
6#
发表于 2007-3-30 19:02 | 只看该作者
好，谢谢
回复 引用

TOP

liujinzhou

注册会员

Rank: 2Rank: 2

金钱
991 ZB 
7#
发表于 2007-4-1 21:04 | 只看该作者
十分感谢！
回复 引用

TOP

liujinzhou

注册会员

Rank: 2Rank: 2

金钱
991 ZB 
8#
发表于 2007-4-1 21:18 | 只看该作者
管理页面
HTTP 500 - 内部服务器错误

怎么回事啊？？
回复 引用

TOP

liujinzhou

注册会员

Rank: 2Rank: 2

金钱
991 ZB 
9#
发表于 2007-4-1 21:33 | 只看该作者
从网页复制代码有空格，问题已解决，再次感谢楼主！
回复 引用

TOP

sanren

注册会员

Rank: 2Rank: 2

金钱
937 ZB 
10#
发表于 2007-5-25 17:52 | 只看该作者
用这段代码在rss 中显示的相关文章如何加入“只会在当前文章中列出比当前文章要早的文章链接”的机制？
回复 引用

TOP

Zx.MYS

开发组

Rank: 27Rank: 27Rank: 27

金钱
17407 ZB 

2007年论坛霸主 [月度人气奖章]
11#
发表于 2007-5-25 18:03 | 只看该作者
LS：本来就是这样的
[AD]:个人BLOG：思想碎片@Zx.MYS
[说明]:1.有事请发帖，论坛短消息已禁用。2.写Z-Blog程序的不是我，是另外一个zx。
回复 引用

TOP

sanren

注册会员

Rank: 2Rank: 2

金钱
937 ZB 
12#
发表于 2007-5-25 18:22 | 只看该作者
但我测试的时候，旧的文章下面，还是会显示比它更新的相关文章。
PS：刚刚看了一下MYS 的blog，也是同样的情况。

[ 本帖最后由 sanren 于 2007-5-25 19:26 编辑 ]
回复 引用

TOP

12
返回列表