WELCOME
HOŞGELDİNİZ
<%
' Create a map to the text file
strCount = Server.Mappath("/kth2/tmp/thecounter.txt")
' Create the object
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Open the file as a text stream (1 = ForReading, True = Create)
Set objCount = objFSO.OpenTextFile(strCount, 1, True)
' Read the current count from the text file
If Not objCount.AtEndOfStream Then
Count = CLng(objCount.ReadAll)
Else
' If no file exists or it's empty start at 0
Count = 0
End If
' Close the file
objCount.Close
Set objCount = Nothing
' Increment the count
Count = Count + 1
' Overwrite existing file and get the text stream to a new one
Set objCount = objFSO.CreateTextFile(strCount, True)
' Write updated count
objCount.Write Count
' Close the file
objCount.Close
Set objCount = Nothing
' Destroy the FSO object
Set objFSO = Nothing
' Create the output
%>
You are user number: <% response.write Count %>
Siz <% response.write Count %> . Ziyaretçimizsiniz
