4.5关键字关联搜索现在是这样，搜索两个词，有其中之一的、两者都有的，都搜索出来。

我想改成只有两者都有的，请问怎么改？

[此贴子已经被作者于2007-12-24 14:32:27编辑过]

给楼主两个函数，自己修改搜索代码吧。这是我开发的一个系统中用到的。用空格模糊匹配多个关键词，用+号同时匹配多个关键词。两个可以同时使用。

function keyword(str)
arrstr=split(str," ") '将输入的字符串根据空格分开，获得一个数组
max=ubound(arrstr) '得出这个数组的维数，即输入的关键字个数

if max=0 then '如果max等于0说明只输入了一个关键字，那么就不需要循环处理
sql1=sql1&" 节目名称 like '%" & replace(arrstr(i),"+","%") & "%' " '节目名称模糊搜索
else '如果含有多个关键字，采用循环处理sql语句
for i=0 to max '如果关键字很多，我们要求每一个搜索都要匹配每一个关键字，通过循环来实现
if i=0 then '写入下面sql语句作为开头，仔细研究一下下面的代码
sql1=sql1&" 节目名称 like '%" & replace(arrstr(i),"+","%") & "%' or " '节目名称模糊搜索

else
if i=max then '如果循环到最后一个关键字，写入下面sql语句作为结尾

sql1=sql1&" 节目名称 like '%" & replace(arrstr(i),"+","%") & "%' " '节目名称模糊搜索

else '如果关键自己不是开头的也不是结尾的，那么循坏写入下面的sql语句

sql1=sql1&" 节目名称 like '%" & replace(arrstr(i),"+","%") & "%' or " '节目名称模糊搜索
end if
end if
next '循环结束
end if
sql=sql&" and ("&sql1&")"
keyword=sql
end function
function redword(str,vt) '将查询的关键字红色输出
if str="" then
redword=vt
exit function
end if
str=replace(str,"+"," ")
arrstr1=split(str," ") '将输入的字符串根据空格分开，获得一个数组
max=ubound(arrstr1) '得出这个数组的维数，即输入的关键字个数
for i=0 to max
vt=replace(vt,arrstr1(i),"<font color=red>"&arrstr1(i)&"</font>")
next
redword=vt
end function

好东西，收藏先。多谢楼上朋友！

暂时简单改了一下，也算成，就这个效果：

[此贴子已经被作者于2007-12-24 16:52:15编辑过]

开发可以 加符号如引号，让要准确搜索的内容方在符号内。“搜索内容”这样

原来没想那么多，实际使用发现，现在4.5这种关联需要改一下，因为关联了之后结果不是更精确了而是更宽泛了，难以准确定位到要找的文章。比如单个关键词搜索出来100条，关联之后出来可能是300条，更难找了。

4.5搜索和4.0及以前版本有相同也有不同，相同的就是只搜索一个词，这个就不说了。

只说不同之处，就是两个词（三个及以上没试过）中间加空格，这样关联搜索，比如搜索“海尔 空调”，包含海尔这一个词的、空调这一个词的、两个词都有的，都搜索出来。

我发现这样关联结果出来太多了，想改成只搜索出来两个词都有的。

再换句话说：只要两个词都有的关联搜索结果，只有其中一个词的不要。

不明白你说啥。

是不是一个模糊搜索。

一个精确搜索。？