名客技术网

简体
繁体
×警告!请输入搜索关键词(仅提示一次)
网站建设电话:15927179345(资深程序)

如何将Feed和del.icio.us结合在一起

作者:网站小编时间:2018-11-27 08:11:38

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

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

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

Dim strDeliciousTag

strDeliciousTag = GetDeliciousTag (Trim(strTagName))

If strDeliciousTag<>"" then

strDeliciousTag="
相关网摘:" + strDeliciousTag

End If

Function GetDeliciousTag(strTag)

Dim Retrieval

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "GET", "http://del.icio.us/html/williamlong/" + strTag + "?count=5&tags=no&rssbutton=no", False, "", ""

.Send

GetDeliciousTag = .ResponseText

End With

Set Retrieval = Nothing

End Function

名客技术网如果无意之中侵犯了您的版权,请联系站长,本站将在3个工作日内删除 QQ:175352796
Copyright 2011-2020 Powered by 121ASK.COM, All Rights Reserved.
备案号:鄂ICP备11013833号-3