数组列表

<script language="vb" runat="server">
sub page_load(sender as object,e as eventargs)
dim i as integer
dim arr as new arraylist()
 for i=0 to 20
  arr.add(i)
response.Write(arr(i) & "<br>") 
 next i
end sub
</script>