Лістинг 4.11. Визначення характеристик програми перегляду Web.

<%@LANGUAGE="VBScript"%>

<%Response.Expires=-1%>

<TITLE>Browser Capabilities by Mikle</TITLE> </HEAD> <BODY> <CENTER>

' Створюємо компонент Browser Capabilities

Dim objBrowser

Set objBrowser = Server.CreateObject("MSWC.BrowserType")

' З'ясовуємо, які можливості підтримуються

If objBrowser.ActiveXControls Then

<H1>Элементы управління ActiveX</H1>

<OBJECT ID="mylabel" WIDTH="300" HEIGHT="51"

CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0"

CODEBASE="http://www.microsoft.com/activex/controls/FM20.DLL">

</OBJECT>

<%ElseIf objBrowser.JavaApplets Then%>

<H1>Апплет Java</H1>

</APPLET>

<%Else%>

<H1>Никакие компоненты не підтримуються!</Н1>

<%End If%>

</CENTER> </BODY> </HTML>

Компонент Ad Rotator.Компонент Ad Rotator (ротація рекламних оголошень) спеціально призначений для вузлів, що продають рекламну площу. Він дозволяє управляти ротацією рекламних картинок на вузлі. Ad Rotator прочитує інформацію про рекламні оголошення із спеціального текстового файлу і вказує, яке оголошення слід показувати і як довго. Використання даного компонента зводиться до його створення і читання текстового файлу, як в наступному фрагменті коду:

Dim Ad

Set Ad = Server.CreateObject("MSWC.AdRotator")

Response.Write Ad.GetAdvertisement("ADS.TXT")

Файл, що прочитується компонентом Ad Rotator, має чітко задану структуру, яка визначає, яке зображення виводити і яку частину часу його показувати, а також забезпечує гіпертекстове посилання, що активізується при клацанні даного оголошення. От Вас потрібно лише скласти текстовий файл певного формату, а компонент зробить все інше.

Компонент Content Linking.Компонент Content Linking (компонент скріплення вмісту) призначений для публікацій електронних журналів і газет. Він зв'язує разом декілька Web-сторінок, дозволяючи їх прокручувати. Як і Ad Rotator, компонент Content Linking для створення публікації використовує текстовий файл. Цей файл, відомий як список інформаційних заслань (Content Linking List), містить список зв'язаних Web-сторінок і їх описів. Використання даного компонента зводиться до його створення і подальшого прочитування асоційованого текстового файлу, як в наступному фрагменті коду:

<%Set objLinker = Server.CreateObject("MSWC.NextLink")%>

Коли публікація скомпонована, для переміщення по сторінках використовуються методи GetNextURL і GetPreviousURL, а описи кожної конкретної сторінки можна отримати, викликавши методи GetNextDescription і GetPreviousDescription. Набутих значень служать для генерації заслань на інші сторінки публікації. Приклад такого посилання:

<А HREF="<%=objLinker.GetNextURL%>">

<%=objLinker.GetNextDescriptiion%> </A>

Використання інших компонентів ACTIVEX.Окрім використання компонентів, що поставляються з Visual InterDev, Ви можете створювати свої власні компоненты ACTIVEX для ASP. Коли такий компонент розроблений, працювати з ним можна за допомогою методу CreateObject об'єкту Server. Все, що потрібне - це вказати його PROGID.

Написання власних компонентів дозволяє розширити можливості ASP.

Доступ до баз даних.

Хоча доступ до баз даних засобами ADO вже обговорювався, приділимо ще деякий час цьому питанню. Річ у тому, що наведені раніше приклади працездатні, лише якщо на сервері створено джерело даних ODBC. Його створення зазвичай проводиться аплетом Панелі управління Windows, який при видаленій роботі з сервером виявляється недоступний. Для виходу з цієї ситуації застосовують файлові DSN (Data Source Name), створивши який, можна скопіювати файл з розширенням .dsn у той же каталог, що і сценарій, що звертається до бази даних. У лістингу 4.12 наведений приклад файлу для доступу до бази даних MS Access, а в лістингу 4.13 - для доступу до БД MYSQL.

<16 17 181920 21 22 >

Дата добавления: 2016-04-02; просмотров: 951;