williamlong

　　这又是一个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://feeds.feedburner.com/williamlong

[ 本帖最后由 williamlong 于 2006-10-14 15:18 编辑 ]