Добро пожаловать!

Downloads
Windows
Soft
тестеры
Разгон

Программирование
Delphi
C++
Java

ASPляндия

Скорее всего, данная статья не представляет никакого интереса специалистам в ASP, т.к. в ней я хочу рассказать начинающим интернет-программистам о такой замечательной технологии, как ASP (Active Server Pages - Активные Серверные Страницы). Хочу выразить благодарность Авдееву Михаилу - моему учителю и наставнику в ASP.

Начнём с определения что же всё-таки такое "Активные Серверные Страницы" ? Наверное, все мои читатели встречали страницы с использованием VBScript (Visual Basic Scripting Edition). Для непосвященных: VBScript - вариация Visual Basic, локализованная для web-страничек, которая абсолютно не умеет записывать на диск и поэтому может помнить данные только во время текущей сессии. Этот минус делает VBScript весьма непривлекательным для использования, а ситуацию ещё усугубляет отказ Netscape поддерживать его в своём интернет-пакете Netscape Communicator. Т.е. VBScript поддерживает лишь Internet Explorer, начиная с третьей версии (VBScript SDK 1.0).

Но в 1997-ом году Microsoft решила исправить эту несправедливость и создала нечто новое - технологию Active Server Pages. ASP поддерживает как и синтаксис VBScript, так и JScript (Microsoft'овская реализация JavaScript). По умолчанию всё-таки стоит VBScript (и это радует!). Основная идея новой технологии: сценарий выполняется на сервере, а пользователю выдаётся уже готовый HTML-файл. Естественно, что проблема поддержки разными браузерами отпадает. Кроме того, в новый язык добавлены некоторые серверные функции, в том числе функции для работы с файлами (текстовыми, базами данных), которые располагаются на сервере.

Хоть технология и сравнительно молодая, но её уже используют такие гиганты, как @Rus, Ёпрст!, ЦАБ, ну и про наш сайт не надо забывать ;) Для работы ASP требуется сервер на базе Internet Information Server (IIS) для Windows NT и 2000 или Personal Web Server (PWS) для Windows 95 и 98. Всё это чудо Microsoft раздаёт бесплатно. Достаточно лишь ввести "Personal Web Server" или "Internet Information Server" в графе поиска. Но сразу предупреждаю, что это чудо весит 25-30 мегабайт и не всем пользователям подсилу, хотя канал у Microsoft'а хороший. Вместе с данными программными продуктами (в полной комплектации) вы также можете скачать немаловажные примеры, которые пригодятся вам при работе с ASP, Если же Вы не хотите использовать ваш компьютер в качестве места для размещения Вашей web-странички - всё равно скачайте данные программные продукты, т.к. программирование в online может влететь вам в копеечку :)

Теперь же обратимся к синтаксису ASP. Вы можете очень гибко комбинировать ASP и HTML код на ваших страничках. Замечу, что начало ASP-сценария знаменуется символами <% , а конец символами %>.

<html>
<head><title>Тестовая страница</title></head>
<body>
<%for i = 1 to 5%>
"><%="ASP rulez forever!"%>
<%next%>
</body>
</html>

Причём сохранять файлы надо с расширением .asp! А парадным входод будет уже не index.html, а default.asp.

Разберёмся: что же делает этот код? Сначала идёт знакомый вам всем цикл for ... next. Далее: "=i". В ASP есть объект Response и его функция Write, т.е. записывается всё это как Response.Write, но для пущего удобства Microsoft предлагает писать "=" вместо "Response.Write", что мы и делаем. Фактически Response.Write просто добавляет в HTML-код строку или содержание переменной, что делает страницы более интерактивными. Теперь в общем: Мы выводим пять раз размером i слово ASP rulez forever. Весь приведённый ниже код равен следующему:

<html>
<head><title>Тестовая страница</title></head>
<body>

ASP rulez forever!

ASP rulez forever!

ASP rulez forever!

ASP rulez forever!

ASP rulez forever!

</body>
</html>

Этот код вы могли получить и сами, нажав в Internet Explorer правую кнопку мышки и выбрав из всплывающего меню пункт "Просмотр в виде HTML". Вот и ещё один плюс для разработчика сценария на ASP: пользователь не может подсмотреть ваш ASP-код.

Также стоит заметить, что ASP очень удобен при работе с базами данных. Словом всё, что вы делаете с применением описанной выше технологии превращается в какой-то праздник. Стоит ли раздумывать? Сегодня же поставьте себе PWS или IIS и начните изучение этого интереснейшего мира. В нагрузку могу Вам предложить ещё и книгу про Active Server Pages - Программирование Active Server Pages от Microsoft Press. К сожалению единственная книга на русском по ASP (пока), но я надеюсь, что в скором времени ситуация исправится коренным образом. Из WWW-ресурсов могу порекомендовать Вам сайт www.activeserverpages.ru - неоффициальный сайт поддержки ASP в России с большим количеством статей и примеров.

Знакомство с ASP: счетчик для IIS за 5 минут

Евгений Кондратов (aka Udjin)

В данной статье будут рассмотрены варианты создания счетчиков для сайтов построенных на базе IIS 3, 4, 5, PWS, GoAhead. Для некоторых счетчиков - любой сервер поддерживающий работу со скрипт - машинами Windows с помощью различных расширений и модулей.(Chili-ASP, ActivePerl). При написании статьи использованы материалы с сайтов:

· Microsoft

· www.activeserverpages.ru

· Документация к IIS

Примечание: данный материал рассчитан на начинающих скриптеров, по сему код максимально упрощен с целью облегчения восприятия. Код размещен по принципу "от простого - к сложному"

Классификация.

По признаку своей функциональности счетчики можно подразделить на счетчики:

· с накоплением;

· в рамках сессии;

· ементами персонификации;

· с возможностью дальнейшего анализа информации о клиенте;

По способу хранения информации:

· хранение в переменных сессии (приложения);

· хранение в файле на стороне сервера;

· хранение в файле на стороне клиента;

· хранение в базе данных;

· комбинированные;

По способу визуализации:

· текстовые;

· графические;

· информеры ( как комбинация первых двух );

Cчетчик от Microsoft

Возможности: счетчик с накоплением, поддержка "виртуальных" сайтов, отдельных asp-страниц.

Для создания данного счетчика необходимо с сайта Microsoft скачать серверный компонент PageCounter и установить его. Весь код счетчика оформлен в виде ISAPI-dll (распространяется вместе с исходными текстами) и число обращений к конкретной странице или инициалиазация/сброс счетчика вызываются как метод серверного объекта PageCounter.

Для установки счетчика на сервер необходимо скопировать PageCnt.dll в каталог \InetPub\ASPSamp\Components\PageCnt\DLL\i386 и зарегистрировать его: regsvr32 PageCnt.dll В случае, если Вы планируете подсчитывать обращения к нескольким виртуальным сайтам, Вам необходимо конфигурировать их как приложения.

Счетчик поддерживает 2 метода HITS и RESET

Код инициализации счетчика для конкретного сайта:
Распологать его лучше всего в верхней части страницы, в первых строках.

<%

 Set MyPageCounter =

 Server.CreateObject("IISSample.PageCounter")

 HitMe = MyPageCounter.Hits

%>

Отображение количества заходов:
Данный фрагмент размещайте сообразуясь с дизайном своего сайта.

<% =HitMe %>

Для подсчета на конкретной странице сайта код несколько изменится:

<%

Set MyPageCount =

 Server.CreateObject("IISSample.PageCounter")

MyPageCount.PageHit

HitMe = MyPageCount.Hits

%> <%    =HitMe %>

или

<% Set MyPageCounter =

 Server.CreateObject("IISSample.PageCounter")

%>

This Web page has been viewed

 <%= MyPageCount.Hits %> times.

<P>

Page Myscript.asp has been viewed

<%= MyPageCounter.Hits("/VirtualDir1/Myscript.asp")

 %> times.

Для того, чтобы запустить счетчик с какого-либо начального значения (12345) используйте следующий код:

<%

   =HitMe + 12345

%>

Сброс счетчика (RESET).

<%

Set MyPageCounter =

 Server.CreateObject("IISSample.PageCounter")

MyPageCounter.Reset

MyPageCounter.Reset("/VirtualDir1/Mypage.asp")

%>

Простейшиe счетчики

Возможности: счетчик с накоплением. Хранит информацию о количестве обращений в текстовом файле.

Используется объект VBScript (WSH) FileSystemObject.

Порядок действий.

1. Создайте текстовый файл c:\mycount.txt

2. Для инициализации счетчика укажите в текстовом файле начальное значение. На пример 0.

3. В тело вашей страницы впишите следующий код:

4.                                 <%

5.                                 'Декларирование переменных

6.                                    Const ForReading = 1, ForWriting = 2, ForAppending = 8

7.                                    Dim fso, f, myCounter

8.                                 'Создаем объект

9.                                    Set fso = CreateObject("Scripting.FileSystemObject")

10.                             'открываем файл на чтение, и считываем из него ВСЕ содержимое

11.                             'если файл отсутствует, то создаем его (Trye).

12.                                Set f = fso.OpenTextFile("c:\mycount.txt", ForReading, True)

13.                             'отключаем обработку ошибок

14.                                On error resume next

15.                             'считываем содержимое, в случае пустого (Empty)значения

16.                             'присваиваем значение 0 переменной myCounter

17.                                myCounter = f.readAll

18.                                If myCounter = Empty  Then

19.                             myCounter = 0

20.                             'если все в порядке, то увеличиваем

значение переменной myCounter на 1

21.                                Else

22.                             myCounter = myCounter + 1

23.                                End If

24.                             'открываем файл на запись и обновляем значение счетчика

25.                              Set f = fso.OpenTextFile("c:\mycount.txt",

 ForWriting, True)

26.                              f.Write myCounter

27.                             'закрываем файл

28.                                f.Close

29.                             'очищаем память

30.                                Set f = nothing

31.                                Set fso = nothing

%>

32. В соответствии с дизайном разместите счетчик.

33.                             <%

34.                                = myCounter

%>

Счетчик с накоплением. Хранит данные в переменных сесии ( приложения ), отображает количество пользователей, находящихся в данный момент на сайте.

В рут - каталоге сайта создайте файл global.asa

Код:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

SUB Session_OnStart

   Session.Timeout = 5

   Application.lock

   Application("myCounter") = Application("myCounter") + 1

   Application("visitors") = Application("visitors") + 1

   Application.unlock

END SUB

</script>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

SUB Session_OnEnd

   Application.lock

   Application("visitors") = Application("visitors") - 1

   Application.unlock

END SUB

</script>

В теле asp-страницы разместите код:

<%

   Dim vist, currentcount

   visit = Application("visitors")

   currentcount =   Application("myCounter")

%>

В соответствии с дизайном поместите счетчик общего числа обращений/текущего количества пользователей

<%

   = currentcount & "/" & visit

%>

В следующих статьях будут рассмотрены способы создания более сложных счетчиков с использованием баз данных и информеров.

Статьи из журнала
I2R Web Creation

Новости

Design by:

Lord

Point_3d