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", " <a href='https://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