青青子衿, 悠悠我心, 但为君故, 沉吟至今
« 纽约小飞机撞楼事故的Google Earth地标文件使用Google进行时间管理 »

将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



  除非注明,月光博客文章均为原创,转载请以链接形式标明本文地址

  本文地址:http://www.williamlong.info/archives/660.html
  • 相关文章:
    • 文章排行:
    • 1.fuxutian
    • 感觉挺好的,就是不会用
    • 2006/10/14 22:29:43   支持(19)反对(20) 回复
    • 2.archiless
    • 作为业余人士用feedsky合烧就行了。
    • 2006/10/15 19:57:06   支持(19)反对(22) 回复
    • 3.marion
    • 很好的一个插件代码 先收藏一下 ,正在准备搞个Zblog 统统收藏 ^_^
    • 2006/10/24 10:41:48   支持(15)反对(19) 回复

    发表评论:

     请勿发送垃圾信息、广告、推广信息或链接,这样的信息将会被直接删除。

    订阅博客

    • 订阅我的博客:订阅我的博客
    • 关注新浪微博:关注新浪微博
    • 关注腾讯微博:关注腾讯微博
    • 关注认证空间:关注QQ空间
    • 通过电子邮件订阅
    • 通过QQ邮件订阅

    站内搜索

    相关文章

    热文排行


    月度排行

    本站采用创作共用版权协议, 要求署名、非商业用途和相同方式共享. 转载本站内容必须也遵循“署名-非商业用途-相同方式共享”的创作共用协议.
    This site is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License.