%@ Language=VBScript %> <% dim fsoObject dim tsObject dim filObject dim lngVisitorNumber dim intWriteDigitLoopCount set fsoObject=Server.CreateObject("Scripting.FileSystemObject") set filObject = fsoObject.Getfile(Server.MapPath("hit_count.txt")) set tsObject = filObject.OpenAsTextStream lngVisitorNumber= CLng(tsObject.ReadAll) if isEmpty(session("blnCounterSet"))= true Then lngVisitorNumber=lngVisitorNumber + 1 Session("blnCounterSet")=True end if Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) tsObject.write CStr(lngVisitorNumber) set fsoObject = Nothing set tsObject = Nothing set filObject = Nothing %>
|
|