containsarraylist.aspx

asp.net技术内幕的书配源码

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

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

If colArrayList.Contains( 53 ) Then
  Response.Write( "Found 53!" )
Else
  Response.Write( "Couldn't Find 53!" )
End If
%>