VBScript Comment IP

Filed as archives/commentip.vbs

On Error Resume Next

Set vis = CreateObject("Scripting.Dictionary")

<MTComments lastn="600" sort_order="descend">
vis("<$MTCommentIP$>") = "<$MTCommentAuthor$>::<$MTCommentID$>"
</MTComments>

For Each e in Document.all
	If UCase(e.TagName) = "A" Then
		If vis(e.innerText) <> "" Then
 			e.insertAdjacentHTML "AfterEnd", " &nbsp;<a href='http://home.wangjianshuo.com/archives/comments.htm#" & vis(e.innerText) & "'><font color=red>" & vis(e.innerText) & "</font>"
		End If
	End If
Next

Category News Feeding VBScript

Filed as 

On Error Resume Next
Sub PrintCategoryNews(strCategory)
   s = ""

  <MTCategories>

  If LCase(strCategory) = LCase("<$MTCategoryLabel$>") Then
    <MTEntries lastn="1000">
     s= s + "<a href=<$MTEntryLink$>><$MTEntryTitle$></a> <span class=posted><$MTEntryDate format="%B %d"$></span><br />"
     </MTEntries>
   End If
   </MTCategories>

   Document.Write s
End Sub