Рекомендуется: как реализовать миниатюры без компонентов ASP Есть много компонентов ASP, которые генерируют миниатюры в Интернете. Если ваше виртуальное пространство не поддерживает регистрацию новых компонентов, вы можете почувствовать, что ваш веб -сайт теряет свой цвет. Синьцин не талантлив, и в сочетании с онлайн-ресурсами она написала не без компонентов миниатюр только для справки. Давайте сначала посмотрим на основы. Прежде всего, мы знаем, что на странице отображается следующий код: img src = pic.gif border = 0 ширина
Эта статья учит вам утверждение петли сценария ASP:
Характеристика среды страницы динамического сервера ASP заключается в том, что она записана на одном или нескольких языках сценариев. Язык сценариев можно рассматривать как упрощенную версию языка программирования. Это легко выучить и освоить, что обеспечивает значительное удобство для дизайнеров динамических веб -сайтов. Можно сказать, что правильное использование языка сценариев напрямую связано с преимуществами и недостатками приложений ASP. После изучения функций и условных утверждений языка сценариев VBScript в предыдущей статье, сегодня мы продолжим рассмотреть операторы цикла в VBScript.
Функция операторов цикла состоит в том, чтобы многократно выполнять код программы. Петли можно разделить на три категории: один тип повторяет оператор, прежде чем условие станет ложным, один тип повторяет оператор до того, как условие станет истинной, а другой тип повторяет оператор в соответствии с указанным количеством раз. Следующие операторы цикла можно использовать в VBScript:
Делайте ... Loop: цикл, когда (или до) условие верно.
В то время как ... Венд: петля, когда условие верно.
Для ... Далее: укажите количество петель и повторите оператор, используя счетчик.
Для каждого ... Далее: для каждого элемента в наборе или каждом элементе в массиве повторите набор операторов.
Давайте сначала посмотрим на Do ... Loop, который может запускать блоки операторов несколько раз (в разное время). Повторите блок оператора, когда условие истинно или до того, как условие станет истинным. Пожалуйста, смотрите следующий пример: <html> <Head>
<title> doloop.asp < /title> <body bgcolor =#fffff> < /head> <p> < /p>
<p> Пожалуйста, заполните записи о расчетах продаж за каждый месяц с этого года до этого месяца на этой странице. <p>
< %
счетчик = 1
этот месяц = месяц (теперь ())
Делай, пока счетчик <этомест
response.Write & Counter & Month:
Ответ.write _______________________________________ & <BR> <BR>
Если счет> 13, то тогда
Выход DO
конец, если
счетчик = счетчик+1
Петля
%>
<hr> < /body> < /html>
Эта программа ASP использует операторы цикла для создания таблицы записей об урегулировании продаж, закрепите приведенный выше код в блокноте и сохраните его как doloop.asp, и просмотрите его в браузере в HTTP. В зависимости от текущего месяца вы увидите результаты на рисунке ниже.
Давайте проанализируем эту программу. Наша цель - напечатать таблицу на основе текущего месяца. Сначала мы установили счетчик счетчиков и установили его значение на 1. Затем мы используем месяц функций () и теперь (), чтобы получить текущий месяц, и, наконец, установить цикл. Когда значение счета меньше, чем значение текущего месяца, отображаются значение месяца и горизонтальная линия, а значение подсчета увеличивается на 1. Оператор цикла повторяется до тех пор, пока вышеуказанные условия не станут ложными. Если счет больше 13, выход DO будет использоваться для немедленного выхода из петли.
Способны ли операторы цикла также использовать следующий синтаксис:
Делать
[Заявления] [Выход DO]
[Заявления] Loop [{while | До} условия]
В то время как ... WEND заявления предоставляются для пользователей, которые знакомы с их использованием. Однако, поскольку в то время как ... Уэнд не хватает гибкости, рекомендуется использовать оператор DO ... цикл. Давайте посмотрим на следующее заявление. Для ... следующего оператора используется для запуска блока операторов в течение указанного времени, используя счетчик счетчика в цикле, значение которого увеличивается или уменьшается с каждым циклом.
Следующий пример повторяет процедуру MyProc 50 раз. Оператор для операции указывает счетчик счетчики x и ее значения начала и конечного и конечного. Следующий оператор добавляет переменную счетчика на 1 каждый раз. Sub DomyProc50Times ()
Dim x
Для x = 1 до 50
Myproc
Следующий
Конец суб
Шаг ключевого слова используется для указания значения переменной счетчика каждого увеличения или уменьшения. В следующем примере счетчик счетчика j увеличивается на 2 каждый раз. После того, как петля закончилась, общее значение составляет 2, 4, 6, 8 и 10.
Sub Twostotal ()
Dim J, Total
Для j = от 2 до 10 шаг 2
Всего = Total + J
Следующий
Сумма MSGBOX IS & Total &.
Конец суб
Чтобы уменьшить переменную счетчика, установите шаг к отрицательному значению. В настоящее время значение завершения переменной счетчика должно быть меньше, чем исходное значение. В следующем примере счетчик счетчика mynum уменьшается на 2 каждый раз. После завершения петли общее значение - сумма 16, 14, 12, 10, 8, 6, 4 и 2. Sub Newtotal ()
DIM Mynum, Total
Для mynum = от 16 до 2 шага -2
Всего = общая + mynum
Следующий
Сумма MSGBOX IS & Total &.
Конец суб
Выход для оператора используется для выхода из ... следующего оператора до того, как счетчик достигнет своего значения завершения. Поскольку цикл обычно только для выхода в некоторых особых случаях (например, когда возникает ошибка), вы можете использовать выход для оператора в блоке истинного оператора оператора if ... затем ... else. Если условие неверно, петля будет работать как обычно.
Наконец, давайте посмотрим на каждое ... следующее утверждение, для каждого ... следующий цикл похож на ... следующий цикл. Для каждого ... Далее вместо того, чтобы запустить оператор, как указано, он повторяет набор операторов для каждого элемента в массиве или для каждого элемента в коллекции объектов. Это очень полезно, когда вы не знаете количество элементов в коллекции. Его синтаксис выглядит следующим образом: для каждого элемента в группе
[Заявления]
[Выход для]
[Заявления] Далее [Элемент]
Поделиться: ASP сохраняет удаленные файлы в локальные % Function saveremotefile (localfilename, remotefileurl) saveremotefile = true dim ads, поиск, getRemotedata set retlieval = server.createObject (microsoft.xmlhttp) с поиском.