تعداد بازدیدکنندگان

• <% 'This declares all the variables Dim Counter Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits 'Sets location of the Counter File. CounterFile = Server.MapPath ("counter-fa.txt") Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") 'Opens the file for Read Access Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then 'Loads the stored value of the counter into CounterHits CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing 'Adds 1 to the value of the CounterHits CounterHits = CounterHits 'Opens the file for Writing Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing %>
  <% =CounterHits %>

صفحات ما

• سایت جدید
• صفحه اصلی
• فروشگاه
• تولیدات
• تماس با ما