关于多关键词搜索的问题,比如搜索关键词“程序 Csdn”我要怎么把它折成两个关键词 程序和Csdn ？

关于多关键词搜索的问题,比如搜索关键词“程序   Csdn”我要怎么把它折成两个关键词   程序和Csdn   ？  
  谢谢 问题点数：50、回复次数：15Top

1 楼jamila8（曾）回复于 2006-03-15 17:37:56 得分 5

split(变量,空格)  
   
  就是以空格切出字符.然后循环读出数据.  
   
  Top

2 楼jamila8（曾）回复于 2006-03-15 17:42:50 得分 10

返回值数组   =   Split("字符串","分割符")  
  Top

3 楼shanxing（*努力奋斗每一天（因为我是中专生）*）回复于 2006-03-15 17:48:16 得分 0

还要怎么把分析出来的关键词组合成sql查询语句  
  比如:  
  sqlstr="select   a.*,b.*   from   newsTab   as   a,SmallClass   as   b   where   a.Sid=b.Sid   and   (a.Title   like   '%程序%'   or   a.Title   like   '%Csdn%')   order   by   Indate   desc"  
  谢谢Top

4 楼shanxing（*努力奋斗每一天（因为我是中专生）*）回复于 2006-03-15 18:08:34 得分 0

顶上去Top

5 楼xeonwell（XeonWell）回复于 2006-03-15 19:03:15 得分 20

Dim   a   :   a   =   split("程序   Csdn","   ")  
  Dim   str,i  
  For   i=0   to   uBound(a)  
        str   =   str   &   "   a.title   like   '"   &   a(i)   &   "'   or   "  
  Next  
  str   =   Left(str,(Len(str)-3))  
  sqlstr="select   a.*,b.*   from   newsTab   as   a,SmallClass   as   b   where   a.Sid=b.Sid   and   ("   &   str   &")   order   by   Indate   desc"  
  Top

6 楼shanxing（*努力奋斗每一天（因为我是中专生）*）回复于 2006-03-15 19:17:31 得分 0

现在这个问题解决了  
  但出现新问题了，希望大家帮忙解决     ^_^  
  比如在下面这样一段话：如果搜索关键字为“CSDN   中国”，怎样实现对“CSDN”还有“中国”这两个关键字变为红色（也就是对关键字进行着色）。  
   
  在这里发贴，表示您接受了CSDN社区的   用户行为准则。  
  请您对您的言行负责，并遵守中华人民共和国有关法律、法规,尊重网上道德。Top

7 楼eglic（圪圪) (理由永远是谎言，信仰永远是自慰）回复于 2006-03-15 19:23:16 得分 5

用Replace就搞定了Top

8 楼yutian130（骑着布什好歹的萨达姆猪，漫步在小巷的尽头）回复于 2006-03-15 19:24:09 得分 5

我觉得这样不行。。。。  
   
  像CSDN的搜索一样，就算中间没有分割符，却也可以   以词分开，这怎么做到？？Top

9 楼shanxing（*努力奋斗每一天（因为我是中专生）*）回复于 2006-03-15 19:25:42 得分 0

eglic(圪圪)   (错过的，还能找回来么？)   :  
  具体的代码怎么写呢?  
  谢谢Top

10 楼shanxing（*努力奋斗每一天（因为我是中专生）*）回复于 2006-03-15 20:04:49 得分 0

顶上去   不要沉Top

11 楼shanxing（*努力奋斗每一天（因为我是中专生）*）回复于 2006-03-15 20:42:04 得分 0

郁闷啊  
  顶上去Top

12 楼fl99（笨笨(QQ:250009333)）回复于 2006-03-15 20:51:39 得分 5

用%代替空格Top

13 楼shanxing（*努力奋斗每一天（因为我是中专生）*）回复于 2006-03-15 22:03:04 得分 0

问题己解决,谢谢  
  Top

14 楼yutian130（骑着布什好歹的萨达姆猪，漫步在小巷的尽头）回复于 2006-03-16 18:35:39 得分 0

能贴出源码么？？很想知道。。。Top

15 楼shanxing（*努力奋斗每一天（因为我是中专生）*）回复于 2006-04-10 17:34:16 得分 0

set   rs=server.CreateObject("adodb.recordset")  
  dim   Keyword  
  Keyword=trim(request("Keyword"))  
  aa=trim(request("Keyword"))  
  Keyword=split(Keyword,"   ")  
  sqlstr="select   a.*,b.*   from   newsTab   as   a,SmallClass   as   b   where   a.Sid=b.Sid   and   ("  
  for   i   =0   to   ubound(Keyword)  
  sqlstr=sqlstr&"a.Title   like   '%"&   Keyword(i)&"%'   or   "  
  next  
  sqlstr=left(sqlnew,len(sqlnew)-4)  
  sqlstr=sqlnew&")   order   by   Indate   desc"  
  rs.open   sqlstr,newsconn,1,1Top

相关问题

• csdn
• 解决
• 关键词
• 程序
• sqlnew
• sqlstr
• 搜索
• 比如
• smallclass
• 关键字

• 帖主：shanxing
• jamila8
• jamila8
• xeonwell
• eglic
• yutian130
• fl99

• Web开发类图书