养生

将Feed和delicious结合在一起

2019-04-11 06:28:26来源:励志吧0次阅读

这又是一个Z-Blog的插件代码。

这个代码是在上次介绍的RSS优化插件Better Feed For Z-Blog的基础上,增加的一个美味书签的插件。在每一个文章后面星力摇钱树捕鱼
,显示个人在美味书签上收录的相关文章。

使用这个插件前,需要对Blog和的Tag进行一些同步或者修改,使得两者的Tag名称基本相同,这样,根据名称可以获取到文章在于上的同Tag文章,使得Feed的显示的内容量更多,而且都是相关的内容。

同步完Tag之后,在RSS优化插件的后面加入以下代码,即可得到strDeliciousTag为美味书签的相关文章列表。

Dim strDeliciousTag

strDeliciousTag = GetDeliciousTag (Trim(strTagName))

If strDeliciousTag then

strDeliciousTag= br/ br/ a href=' + Trim(strTagName) + ' 相关摘 /a : + strDeliciousTag

End If

Function GetDeliciousTag(strTag)

Dim Retrieval

Set Retrieval = eateObject( LHTTP )

With Retrieval

.Open GET , + strTag + 乙醚价格
?count=5 tags=no rssbutton=no , False爬坡轨道车
, ,

.Send

GetDeliciousTag = .ResponseText

End With

Set Retrieval = Nothing

End Function

(*)

验证(*)

分享到: