2006年10月14日星期六

将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