标题:ASP+access搜索条输入多个关键词查询的问题
只看楼主
cwang2100
Rank: 2
等 级:论坛游民
帖 子:12
专家分:12
注 册:2010-3-16
结帖率:100%
已结贴  问题点数:10 回复次数:2 
ASP+access搜索条输入多个关键词查询的问题
下面的代码,没法获取同一文本框多个用空格分格的关键词,为什么没起作用啊?谁能帮忙,谢谢!!

cxsj=request("cxsj")
cxsj=Rtrim(LTrim(cxsj))
bb=request("bb")
dd=request("dd")
SearchUC=request("SearchUC")
dim pageCount
page = cint(request("page"))

set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("SpiderResult1.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

sql="select * from xodntad where 1=1 "

sql="select * from xodntad where feng like '%%' "

Dim SearchStr

if instr(cxsj,"+")<>0 then ’这里同一文本框获取多个空格分开的关键词,没法获取什么原因,那里错了。
str = split(cxsj,"+")
for i=0 to ubound(str)
sql = sql&" and minqing like'%"&str(i)&"%'"
next
end if

if bb<>"" then
sql=sql&"and dindi like '%"&bb&"%'"
end if

if dd<>"" then

sql=sql&"and xodntad like '%"&dd&"%'"

end if

if SearchUC="" then

sql=sql&"  order by id desc"

end if

if SearchUC="1" then
sql=sql&" and ping between 0.01 and 100.00 order by ping asc"
end if

rs.open sql,conn,1,1
搜索更多相关主题的帖子: 输入 搜索 ASP access 关键词 
2010-03-24 10:20
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
得分:10 
去掉+改为空格
if instr(cxsj,"+")<>0 then  '是用"+"分隔还是空格啊?
str = split(cxsj,"+")

★★★★★为人民服务★★★★★
2010-03-24 10:47
cwang2100
Rank: 2
等 级:论坛游民
帖 子:12
专家分:12
注 册:2010-3-16
得分:0 
表达错误,那是+号和空格获取了几个关键词,但当单个关键词时就没法获取搜索桔果了。
2010-03-24 12:04



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-300378-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.978844 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved