有哪位大侠帮忙注释一下下面这段代码~~小弟感谢不尽了！！
<%
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
%>
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息