<%
Function Counts(CounterFile)
Dim objFSO,objTs
Application.Lock
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
set objTs=objFSO.OpenTextFile(Server.MapPath(counterFile),1,Ture)
If Not objTS.AtEndOfStream Then
Counts=CLng(objTS.ReadLine)
End if
Counts=counts+1
objTS.Close
set objTs=objFSO.OpenTextFile(Server.MapPath(counterFile),2,Ture)
objTS.WriteLine(counts)
objTS.Close
Application.UnLock
End Function
If Session("Counter")=Empty then
Session("Counter")=Counts("counter.txt")
end if
%>东方伟业
