| <%
If IsEmpty(Session("TotalCount")) Then
Call CountThisUser
End If
Dim objFSO
Dim objTS
Dim strFileName
Dim intOldCount
Dim intNewCount
strFileName = Server.MapPath("Counter.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFileName) Then
Set objTS = objFSO.OpenTextFile(strFileName, 1)
Else
Set objTS = objFSO.CreateTextFile(strFileName, True)
End If
If Not objTS.AtEndOfStream Then
intoldCount = objTS.ReadAll
Else
intoldCount = 0
End If
objTS.Close
intNewCount = intOldCount + 1
Session("TotalCount")= intNewCount
Set objTS = objFSO.CreateTextFile(strFileName, True)
objTS.Write intNewCount
objTS.Close
Set objFSO = Nothing
Set objTS = Nothing
%>
|
