set rs=Server.CreateObject("ADODB.Recordset")
rs.open "Select order_list from 你的表 ",cn,3
bExist = false
do while rs.eof
arList = split(rs("order_list") & ""),",")
for(i=0;i<ubound(arList);i++)
if arList(i) = "3344" then
bExist = true
exit do
end if
next i
rs.movenext
loop