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

by Jian Shuo Wang on July 4, 2007 under Backstage

1. How Many of My Readers Use FaceBook? December 5, 2008
2. Google AdSense for Feed September 3, 2008
3. Experiment on Natural Search September 2, 2008
4. Improving User Portal on Wangjianshuo.com March 15, 2008
5. Analysis of Links and Ways to Improve March 14, 2008
6. How Translate Tool on this Site Works February 12, 2008
7. Recovery of Fanfan's Blog December 2, 2007
8. My Readers are Primarily Older, more Asian, and Male... November 7, 2007
9. AdSense Color Schema Change October 14, 2007