这又是一个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
