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")