Zero #4
Меню
  Главная
  Авторам
  Разделы
  Команда Zero
  Ссылки
  Чат
HiTech
  Процессор охладят микромолнии.
  Внешний автономный TV тюнер GoTView TV BOX.
  Веб-браузер обретет слух.
  Армейский нож со встроенной флэш-памятью.
Моддинг
  Блок питания спереди и с подсветкой.
  Блок питания спереди и с подсветкой 2.
  Руководство по установке оконного комплекта.
  Руководство по установке оконного комплекта 2.
Mobile
  Asus A620Bt – самый долгоиграющий и один из самых быстрых КПК
  NOKIA 6600.
  Набирать SMS станет проще.
  Сотовая связь в России может подешеветь.
  Сеть «Би Лайн»: новый серьезный сбой.
Windows
  Как продолжить установку Windows 98/Me при появлении сообщения об ошибке в системных файлах.
  Полезные программы из папки Windows.
  Как уменьшить занимаемый объем установленной Windows XP.
Интернет - программинг
  Введение в ASP.
  ASP - Короткий оператор If.
  ASP - Кеширование страниц
Интернет - design
  Создание реалистичных печатей (штампов).
  Сфера применения фильтра Lens Flare.
  Фото в стиле Поп-Арт.
Софт
  M-Агент v2.5 (beta)
Чтиво
  Анастасия: "Лица".
  Анастасия: "Ночь".
Games
  Driv3r.
  Lord of the Rings: The Battle for Middle-Earth.
  Сфера.
  Cheats.
Музыка
  Blur: время и творчество.
  Смотрелка.
Здоровье
  Дуэт для пышного бюста и Бюстгальтера.
  Гомеопатическая косметология .
  Капилляротерапия, или живительная сила скипидарной ванны.
www.mzero.by.ru
Содержание

ASP - Короткий оператор If

Соболев Сергей
   
    Конструкция If Then при частом выполнении простых выборов значений в коде программы делает текст растянутым, а следовательно плохо читаемым.
    Для повышения наглядности кода можно применить следующую функцию:
   


   ' Короткий опереатор If =============================================
   ' Value1 - Первое значение для сравнения
   ' Value2 - Второе значение для сравнения
   ' sTrue - Строка возврата при равенстве
   ' sFalse - Строка возврата при неравенстве
   Function IfThen(Value1,Value2,sTrue,sFalse)
    If Trim(Value1)=Trim(Value2) Then IfThen=sTrue Else IfThen=sFalse
   End Function
   

   
    Пример применения.
   

   Dim n,aValue(10)
    aValue(0)=...
    ...
    aValue(3)="Value3"
    ...
    aValue(9)=...
   <SELECT>
   <%For n=0 To 9%>
    <OPTION VALUE="<%=aValue(n)%>"
   
   <%=IfThen(aValue(n),"Value3","SELECTED","")%>><%=aValue(n)%></OPTION>
   <%NEXT%<
   </SELECT>
   

    Кстати, не все знакомы со следующей формой записи оператора сравнения:
   

   Dim sA,sB,b
    sA="Value1"
    sB="Value2"
    b=(sA=sB) ' False
    sB=sA
    b=(sA=sB) ' True
   
    If (sA=sB)=True Then ... ' Тоже рабочий вариант
   

   Оператор If-Then-Else можно полностью записывать в одной строке:
   
   If a=b Then a=c Else a=d

Источник: http://prosto.pp.ru


Copyright by ZERO
Копирование и использование данных материалов разрешается
только в случае указания на журнал "
ZERO", как на источник получения информации.
При этом во всех ссылках обязательно явное указание адреса вэб-сайта
www.mzero.by.ru.
Журнал тестировался на IE 5.0/6.0.