在数组中查找一个值

  Dim qx As New ArrayList      
  qx.AddRange(Split("aa,ss,dd,ff,gg,rr", ","))      
  If qx.IndexOf("aa") <> -1 Then          
    Response.Write("存在""aa""")      
  End If 
'补充一下，还可以用ARRAYLIST的contains属性，if qx.contains("aa")