50分再求答案，请注意拉

我想达到的要求是就是对多个要求的准确搜索……   
  比如   
  我输入“1   2”的时候，要求出来的结果既要包含1，也要包含2，而不是有1或有2的结果出来……   
  请问该如何实现呢？   
   
  dim   rs     
  dim   keyword     
  dim   keywordlist     
   
  keyword=Request.QueryString("keyword")     
  keyword=replace(keyword,"   ","   ")     
  keyword=replace(keyword,"'","")     
  keyword=replace(keyword,"[","")     
  keyword=replace(keyword,"]","")     
  keyword=ltrim(rtrim(keyword))     
  keywordlist=split(keyword,chr(32))     
   
  set   rs=server.createobject("adodb.recordset")     
  for   i=0   to   ubound(keywordlist)     
  sql=sql   &"   shenme.title   like   '%"   &   keywordlist(i)   &   "%'   or   "     
  sql=sql   &"   hehe.content   like   '%"   &   keywordlist(i)   &   "%'   or   "     
   
  next     
  sql=Left(SQL,(LEN(SQL)-3))     
   
  search_sql="   ("&sql&")   order   by   bartime   desc"     
   
  rs.open   "select   shenme.*,hehe.*   from   shenme,hehe   where     shenme.shenmeid=hehe.shenmeid   and     "&search_sql,conn,1,1     
   
  这个是搜索代码，但不能实现这个功能……   
  我该如何做呢？   
  请给出大概的代码   
  我把其中的or改成了and   
  但是出现的情况是如果我输入单个关键字，比如就输入1或2的时候，就搜索不到内容了……