月光博客 » 编程开发 » 将Feed和del.icio.us结合在一起

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

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

  这个代码是在上次介绍的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="<br/><br/><a href='http://del.icio.us/williamlong/" + Trim(strTagName) + "'>相关网摘</a>:" + 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

顶一下 ▲()   踩一下 ▼()

相关文章

  1. 1
    fuxutian   说道:
    感觉挺好的,就是不会用
    支持(19反对(20回复
  1. 2
    archiless   说道:
    作为业余人士用feedsky合烧就行了。
    支持(19反对(22回复
  1. 3
    marion   说道:
    很好的一个插件代码 先收藏一下 ,正在准备搞个Zblog 统统收藏 ^_^
    支持(15反对(19回复
  1. 4
    lklg   说道:
    这可是高难度动作
    支持(16反对(22回复

发表留言