Backup of Deleted Templates

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='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



Leave a Reply

Your email address will not be published. Required fields are marked *