strKey=“计算机,扫描仪,打印机”
set aKey = split(strKey,",")
strWhere=""
for i=0 to akey.length
strWhere = strWhere & "pName liek '%"&aKey[i]&"%' or "
next
if strWhere<>"" then
strWhere = substr(strWhere,strWhere.length-3)
end if
strSql = "select * from table where "&strWhere
........