asp-classic
looping

For loop

In klassieke ASP kunnen we een for-lus opgeven met het for- sleutelwoord. Met de for-instructie hebben we de volgende instructie nodig die de teller verhoogt.

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

Het stap- sleutelwoord kan worden gebruikt om de manier te wijzigen waarop de volgende instructie de teller zal wijzigen.

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

Gebruik de instructie Exit For om een for-lus af te sluiten

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

We kunnen ook een For...Each lus gebruiken om een lus door een reeks gedefinieerde elementen in een verzameling uit te voeren. Bijvoorbeeld:

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

Doe Loop

Do while lijkt erg op for for, maar dit wordt meestal gebruikt als onze loopherhalingen onbekend zijn.

Doen terwijl:

'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

Doen tot:

'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

Het verlaten van een Do-lus lijkt op een for-lus, maar alleen met de opdracht Exit Do.

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