|
KONGREMİZ BAŞARI İLE
|
|
|
|
<% pgeNme = Request.ServerVariables("PATH_INFO") LogTo = ("sayac") 'LogTo = ("/site/sayac/" + pgeNme) CounterFile = Server.MapPath(LogTo + ".txt") Set xFS = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set xMC = xFS.OpenTextFile(CounterFile, 1, 0, 0) usercnt = xMC.Readline set xFS = Nothing usercnt = usercnt + 1 Set xFS = CreateObject("Scripting.FileSystemObject") set xRC = xFS.CreateTextFile (CounterFile, 1, 0) xRC.WriteLine usercnt Set xRC = Nothing SayacGoster = usercnt %> | |
|||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
||||||||||||||||
|
|
|
|
|
|
|
|||||||||||
|
|
|
|||||||||||||||
|
|
|
|
|||||||||||||||
|
|||||||||||||||||
|
|||||||||||||||||
|
|||||||||||||||||
|
|
|
|||||||||||||||
|
|
||||||||||||||||
|
|
|
|||||||||||||||
|
|||||||||||||||||
|
|||||||||||||||||
|
|
||||||||||||||||
|
|||||||||||||||||
|
|||||||||||||||||
|
|||||||||||||||||
|
|
||||||||||||||||
|
|||||||||||||||||
|
|||||||||||||||||
|
|||||||||||||||||
|
|
||||||||||||||||
|
|||||||||||||||||
|
|||||||||||||||||
|
|
||||||||||||||||
|
|
|
|
|
|
|
|
||||||||||
|
|
|
|
||||||||||||||
|
|
||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|