|
знакомство с asp: счетчик для iis за 5 минутДля того, чтобы запустить счетчик с какого-либо начального значения (12345) используйте следующий код: <% =HitMe + 12345 %> Сброс счетчика (RESET). <% Set MyPageCounter = Server.CreateObject("IISSample.PageCounter") MyPageCounter.Reset MyPageCounter.Reset("/VirtualDir1/Mypage.asp") %> Простейшиe счетчики Возможности: счетчик с накоплением. Хранит информацию о количестве обращений в текстовом файле. Используется объект VBScript (WSH) FileSystemObject. Порядок действий. Создайте текстовый файл c:mycount.txt Для инициализации счетчика укажите в текстовом файле начальное значение. На пример 0. В тело вашей страницы впишите следующий код: <% 'Декларирование переменных Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f, myCounter 'Создаем объект Set fso = CreateObject("Scripting.FileSystemObject") 'открываем файл на чтение, и считываем из него ВСЕ содержимое 'если файл отсутствует, то создаем его (Trye). Set f = fso.OpenTextFile("c:mycount.txt", ForReading, True) 'отключаем обработку ошибок On error resume next 'считываем содержимое, в случае пустого (Empty)значения 'присваиваем значение 0 переменной myCounter myCounter = f.readAll If myCounter = Empty Then myCounter = 0 'если все в порядке, то увеличиваем значение переменной myCounter на 1 Else myCounter = myCounter + 1 End If 'открываем файл на запись и обновляем значение счетчика Set f = fso.OpenTextFile("c:mycount.txt", ForWriting, True) f.Write myCounter 'закрываем файл f.Close 'очищаем память Set f = nothing Set fso = nothing %> В соответствии с дизайном разместите счетчик. <% = myCounter %> Другие статьи по теме: - азы ado и asp- ставим пароль на asp страницу - знакомство с asp: счетчик для iis за 5 минут - несколько рекомендаций по программированию active server pages - как совместить высокую производительтность приложения с простотой его применения |
|
2006-2024 © SMTI.RU Главная страница | Связаться с нами |