|
<%
MyFile = Server.MapPath( "Counter_bira.txt" )
Set FileObject = CreateObject("Scripting.FileSystemObject")
'Read hits number
Set InStream = FileObject.OpenTextFile(MyFile, 1, true)
'If file exists
If not InStream.atEndOfStream Then
total = CInt(Instream.ReadLine) + 1
else
total = 1
end if
Instream.Close
set instream = Nothing
'Update number of hits
Set OutStream = FileObject.OpenTextFile(MyFile, 2, true)
Outstream.WriteLine total
Outstream.Close
set OutStream= Nothing
set FileObject = Nothing
Response.Write("İzlenme Adedi: " & total)
%>
Aktif Kişi Sayısı:
<% = application("active")+1 %>
| |
|
|
