%@LANGUAGE="VBSCRIPT"%> <% If Session("Count") = "" then Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable strCountFileName = "D:/dsource02/counters/SlenderSolutionsSpa.com.cnt" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0 End If objCountFile.Close Set objCountFile = Nothing iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) objCountFile.Write iCount objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing Session("Count") = CStr(iCount) End If %>
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
|||||||||||||||
|
|||||||||||||||||||||