reversearraylist.aspx

来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 20 行

<%
Dim colArrayList As ArrayList
Dim objRanNumber As Random
Dim intCounter As Integer
Dim intItem As Integer

colArrayList = New ArrayList
objRanNumber = New Random
For intCounter = 1 to 10
  colArrayList.Add( objRanNumber.Next( 100 ) )
Next

colArrayList.Sort
colArrayList.Reverse

For Each intItem in colArrayList
  Response.Write( "<li>" & intItem.ToString() )
Next
%>