Visual Basic 6. Руководство разработчика


         

Создание активных серверных страниц - часть 3


<BODY>

<%

If Time() >=#12:00:00 AM# And Time() < #12:00:00 PM# Then

greeting = "Good Morning!"

Else

greeting = "Good Afternoon!"

End If

%>

<H1> <% =greeting %> </H1>

<BR>

<H2>and welcome to the Active Server Pages.</H2>

<BR>

{Другие строки HTML-кода}

</BODY>

</HTML>

Операторы между первой парой тегов <% и %> не выполняют вывод на экран клиента. Они присваивают требуемое значение переменной greetings (приветствие). Значение этой переменной пересылается клиенту строкой <% =greeting %>. Выражение вида "=переменная" (разумеется, без кавычек) при выполнении сценария на сервере заменяется значением переменной. Остальное — обычный HTML-код, который отображается на экране клиента.

HTML-код и операторы серверного сценария могут сосуществовать в одной строке. Альтернативным вариантом последнего примера является следующий.

<HTML>

<BODY>

<% If Time() > = #12:00:00 АМ# And Time() < #12:00:00 PM# Then %

<Hl>Good Morning!</H1>

<» Else %>

<Hl>Good Afternoon!</H1>

<% End If %>

<BR>

<H2>and welcome to the Active Server Pages.</H2>

<BR>

{Другие строки HTML-кода}

</BODY>

</HTML>

Наряду со встроенными (например, Date() и Time()), серверный сценарий может вызывать процедуры, написанные вами. Предположим, вы написали функцию, которая получает в качестве параметра число и возвращает его строковое представление (для числа 96 она вернет строку "девяносто шесть"). Чтобы вызвать эту функцию из вашего сценария, заключите ее имя в пару тегов.

<% =NumToString(96) %>

При этом определение функции должно располагаться в этом же файле. Поскольку она выполняется на сервере и не содержит HTML-код, который нужно переслать клиенту, поместите ее в пару тегов <SCRIPT>, добавив модификатор RUNAT.

<SCRIPT RUNAT=SERVER LANGUAGE=VBScript>

function NumToString(Number)

{

операторы функции

}

</SCRIPT>

Строка, возвращаемая функцией, может использоваться в сценарии.




Содержание  Назад  Вперед