for each 元素名 in 数组/集合 循环体 next
<html> <body> <% dim array(5) '声明一个含有 5 各元素的数组 for i = 0 to 5 array(i) = i next for each val in array response.Write (val & " ") next %> </body> </html>