用split实现多关键字的搜索

最新推荐文章于 2024-05-08 15:30:08 发布

转载最新推荐文章于 2024-05-08 15:30:08 发布 · 1.3k 阅读

文章标签：

#search #action #数据库 #sql #go

ASP 专栏收录该内容

176 篇文章

订阅专栏

本文介绍了一种使用VBS脚本实现的多关键字搜索方法，通过解析用户输入的关键字，并利用SQL查询语句进行数据库检索。该方法支持使用“|”符号分隔多个关键字，能够灵活地在指定字段中进行匹配搜索。

<HTML> 
<HEAD> 
<TITLE>用split实现多关键字的搜索</TITLE> 
<style type="text/css"> 
BODY { 
SCROLLBAR-FACE-COLOR: #293863; 
FONT-SIZE: 9pt; 
SCROLLBAR-HIGHLIGHT-COLOR: #e4eaf1; 
SCROLLBAR-SHADOW-COLOR: #000000; 
SCROLLBAR-3DLIGHT-COLOR: #293863; 
SCROLLBAR-ARROW-COLOR: #000000; 
SCROLLBAR-TRACK-COLOR: #e4e4e4; 
SCROLLBAR-DARKSHADOW-COLOR: #293863 
} 
</style> 
</HEAD> 
<BODY> 
<% 
if request.querystring("action") = "search" then '判断接收到的action值是否为search,如果是的,则开始搜索 
dim strsql 
dim strconn 
dim objrs 
dim strkeyword 
'定义数据库链接串 
strconn = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("**.mdb") 
set objconn = server.createobject("adodb.connection") 
objconn.open strconn 
strkeyword = request.form("keyword") '取得表单中的关键字 
keywords=Split(strkeyword,"|") '开始提取并键字 
i=0 
strsql="select * from 这里填写字段名 where" 
for each key in keywords 
strsqlstrsql=strsql+" or title like '%"&keywords(i)&"%'" 
ii=i+1 
next 
strsql=Replace(strsql, "where or", "where") '把SQL语句里的where or 替换成where 
set objrs = server.createobject("adodb.recordset") 
objrs.open strsql, objconn,1,3 
if not rs.eof then '判断是否有记录,如果有则循环显示 
while not objrs.eof 
response.write "<b>" &objrs("字段名") &"</b><br>" '这里要改成想要显示的字段 
objrs.movenext 
wend 
else '如果指针到末尾,则表示没有记录 
response.write "没有记录" 
end if 
end if 
%> 
<form action="ceshi.asp?action=search" method="post"> 
请输入关键字，如果有多个请用"|"分隔: 
查找标题含有<input type="text" name="keyword"><input type="submit" value=" GO "> 
</form> 
</BODY> 
</HTML> 