asp-classic
looping

För slinga

I klassisk ASP kan vi ange en for-loop med för sökord. Med för uttalandet behöver vi nästa uttalande som kommer att öka räknaren.

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

Steget nyckelord kan användas för att förändrat hur nästa uttalande kommer att ändra disken.

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

För att avsluta en för-loop använder du Exit For- uttalandet

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

Vi kan också använda en For...Each slinga för att utföra en slinga genom en serie definierade element i en samling. Till exempel:

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

Gör slingan

Do while är mycket likt för för loop men detta används vanligtvis om våra looprepetitioner är okända.

Göra medan:

'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

Gör tills:

'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

Att lämna en Do-loop liknar en for loop men bara använda Exit Do- sats.

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