Более точный текст борьбе

Опубликовано 4 марта 2009 в ASP к администратору

Это более точный, чем борьбе с нашего предыдущего примера, в данном примере рассчитывать только получает приращение раз за сессию. Это означает, что ваш кол будут более точными, если вы хотите быть, что есть.

Создайте текстовый файл и положить начало ваш номер в ней. Затем скопируйте код ниже, где Вы хотите счетчик для отображения на вашей странице.

В примере, приведенном ниже counter.txt помещают в ту же директорию, как на этой странице, если вы поставите текстовый файл в другом месте помнить и изменить Server.MapPath часть кода.

Посетитель

<%
'Создание FileSystemObject
Установить objFSO = CreateObject ( "Scripting.FileSystemObject")
"Это путь к нашей борьбе файл
CounterFile = Server.MapPath ( "counter.txt")
Установить objCount = objFSO.OpenTextFile (CounterFile)
visitorcount = CLng (objCount.ReadLine)
если сессия ( "visitorcount") = "", а затем
Сессия ( "visitorcount") = visitorcount
visitorcount = visitorcount + 1
objCount.close
Установить objCount = objFSO.CreateTextFile ( "counter.txt", True)
objCount.WriteLine (visitorcount)
End If
objCount.Close
"Показывать кол -
Response.Write visitorcount
%>

Похожие должности:

  1. Текст Счетчик Теперь создайте папку с именем счетчиков или вы можете позвонить ...
  2. Дисплей CSV файл Отображать файла CSV файлов общие форматы для ...
  3. Активных пользователей в ASP Этот фрагмент кода показывает, как показать, как много активных ...
  4. aspactiveusers Этот фрагмент кода показывает, как показать, как много активных ...
  5. Сохранение файла для базы данных Создание базы данных в отношении доступа призвал stock.mdb. Теперь создаем ...

Похожие должности привлечены к вам еще один Похожие Сообщений плагина.

Добавить комментарий