可以举出一个最简单的计数器吗？

简单计数器代码如下所示：

<％ 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set a = fs.OpenTextFile("d:\shanliangrizi\aspcounter.txt") 
counter= Clng(a.ReadLine) 
counter = counter + 1 
a.close 
Set a = fs.OpenTextFile("d:\shanliangrizi\aspcounter.txt") 
a.WriteLine(counter) 
a.Close 
Set a=nothing 
Set fs=nothing 
％>

 现已点击: <％ =ct ％> 次