有关asp站点统计的问题~~~

有哪位大侠帮忙注释一下下面这段代码~~小弟感谢不尽了！！

<%
Function Counts(CounterFile)
Dim objFSO, objTS
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then '检查是否到达文件结尾
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts + 1
objTS.Close

Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
End Function

If Session("Counter") = Empty Then
Session("Counter") = Counts("jishu.txt")
End If

%>

<%
Function Counts(CounterFile) '函数名 counts 参数 counterfile
Dim objFSO, objTS
Application.Lock '锁定 application 对象
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") '建立fso 对象
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True) '打开文间，不存在就建立
If Not objTS.AtEndOfStream Then '检查是否到达文件结尾 '如果文件有内容就读取
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts + 1
objTS.Close

Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)' 从新打开文件以写入的方式
objTS.WriteLine(Counts) '写入文件
objTS.Close '关闭
Application.Unlock '解锁
End Function '函数结束

If Session("Counter") = Empty Then
Session("Counter") = Counts("jishu.txt") '读写 jishu.txt 文件
End If

%>