asp-classic
перекручивание

Для цикла

В классическом ASP мы можем указать цикл for с ключевым словом for . С помощью оператора for нам понадобится следующая инструкция, которая будет увеличивать счетчик.

For i = 0 To 10
    Response.Write("Index: " & i)
Next

Ключевое слово шага может использоваться для изменения того, как следующий оператор будет изменять счетчик.

For i = 10 To 1 Step -1
    'VBS Comment
Next

Чтобы выйти из цикла for, используйте оператор Exit For

For i = 0 To 10
    Response.Write("Index: " & i)
    If i=7 Then Exit For 'Exit loop after we write index 7
Next

Мы также можем использовать For...Each цикл для выполнения цикла через ряд определенных элементов в коллекции. Например:

Dim farm, animal
farm = New Array("Dog", "Cat", "Horse", "Cow")
Response.Write("Old MacDonald had a Farm, ")
For Each animal In farm
    Response.Write("and on that farm he had a " & animal & ".<br />")
Next

Do Loop

В то время как очень похоже на цикл, это обычно используется, если наши повторы цикла неизвестны.

Делать пока:

'Continues until i is greater than 10
Do While i <= 10
    i = i + 1
Loop

'Or we can write it so the first loop always executes unconditionally:
'Ends after our first loop as we failed this condition on our previous loop
Do
    i = i + 1
Loop While i <= 10

До:

'Ends once i equates to 10
Do Until i = 10
    i = i + 1
Loop

'Or we can write it so the first loop always executes unconditionally:
'Ends after our first loop as we failed this condition on our previous loop
Do
    i = i + 1
Loop Until i=10

Выход из цикла Do аналогичен циклу for, но просто используется оператор Exit Do.

'Exits after i equates to 10
Do Until i = 10
    i = i + 1
    If i = 7 Then Exit Do
Loop