dim Arr
sql1="select id from [aaa] where reader not like '%"&userid&"%'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,0,1
Arr=""
do while not rs1.eof
If Arr="" Then
Arr=Rs1("id")
Else
Arr=Arr&","&Rs1("id")
End If
rs1.movenext
loop
rs1.close
Set rs1 = Nothing
'response.write Arr
===========================
bb = "小黄,小李,小赵" '可以当成数组
AA="小赵"
if instr(bb,AA) > 0 then
response.Write "aa"
end if
来源：https://www.cnblogs.com/apolloren/p/11098442.html