Странный Microsoft IIS или SSI своими руками
| Раздел Сокровищница |
Server Side Include (SSI) полезная и удобная вещь. Только вот почему-то ограничены ее возможности в IIS всего несколькими директивами. И тем более странно ведет себя #exec если в качестве выполнимого скрипта подставить ISAPI написанную на Delphi.
Ошибки выдаются разные, но смысл их один - Не могу выполнить скрипт, файл не найден :-( Данные мучения в связке IIS 5.0, Windows 2000 Prof, Delphi 6 Enterprise продолжались несколько дней, пока не родилась мысль написать свой SSI.
Задача:Написать свой SSI. Условия:Имеем Microsoft IIS 5.0, Delphi Решение: ШАГ 1. Создание DLL которая служит интерпретатором SSI. Для этого в Delphi меню File/New/Other... Выбираем <Web Server Application>. В появившемся окне выбираем жмем кнопку OK.
В созданном WebModule добавляем одну Action Устанавливаем ее свойство Default:=True.
Создаем обработчик события OnAction. Туда можно вставить например следующий код var i: TStringList; begin i:=TStringList.Create; i.LoadFromFile(Request.PathTranslated); Response.Content:= i.Text+ Request.PathTranslated; end; или такой var i: TStringList; begin Response.Content:= 'Пользователь запросил файл: ' + Request.PathTranslated; end; Компилируем модуль.
Полученную DLL можно уложить в директорий C:\WINNT\system32\inetsrv\ ШАГ 2. Настройка IIS.
- Запускаем Internet Service Manager (для IIS 5.0)
- Щелкаем правой клавишей мышки на Web-сервере, выбираем Properties.
- В появившимся окне переходим на закладку HomeDirectory. Смотрим на раздел Apllication Settings. Если там доступна только кнопка Create, то нажимаем на нее.
- В противном случае только сверяем установки и при несоответствии с ними изменяем на необходимые.
- Выбираем в поле со списком Execute Permissions значение Scripts and Executables.
- Нажимаем на кнопку Configuration.
- Появляется окно, где необходимо в закладке App Mappings нажать кнопку Add.
- В поле Executable прописываем имя и путь к созданной dll.
- В поле Extension указываем расширение .html (или любое другое например .aaa)
- Устанавливаем группу переключателей Verbs в значение All Verbs.
- Устанавливаем флажок Script engine.
- Жмем кнопку Ok.
С помощью свойств объекта Request можно получить локальное имя запрашиваемого файла: Request.PathTranslated (Например c:\winnt\demo.html).
Также в свойствам данного объекта доступна куча другой информации (см. Help).
А где же SSI спросит Читатель?
Так вот же! У Вас есть координаты запрашиваемого файла, с помощью средств Delphi обрабатывайте его и отсылайте клиенту.
Кстати используя данную технологию возможно создание очень интересной модели, когда файла самого на диске нет, а запрос пользователя используется только для поиска самого файла в базе данных.
А если взглянуть на это чуть шире - ведь это путь создания динамического WWW-сайта с помощью одной DLL... ;-)
Пащенко Андрей (Big Bibigon)
Архангельск, 2002.
