站内搜索的搜寻多个关键词代码怎样写

站内搜索的搜索多个关键词代码怎样写？
当搜索“关键词”空格“关键词”，或者“关键词”豆号“关键词”的代码怎么写？
还有我想将这个表sql="select * from shop where title like '%"&key&"%' order by id desc"也插进去应该怎样修改？

我不熟悉ASP这东东，请各大侠帮帮忙，谢谢了！

以下是小站search.asp完整代码：




<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=request("key")%></title>
<meta name="description" content="<%=config("description")%>" />
<meta name="keywords" content="<%=config("keywords")%>" />
<link href="images/style.css" type="text/css" rel="stylesheet" />
</head>
<body bgcolor="<%=config("bg")%>">

<tr>
<td height="20"> <table width="660" border="0" align="center" cellpadding="3" cellspacing="0">
</tr>
<form id="form1" name="form1" method="get" action="/search.asp ">
<tr>
<td>
<div align="center">
<input name="key" id="key" type="text" size="60" />
<input type="submit" name="button" id="button" value="搜索" />
</div>
</td>
</tr> </form>
<table width="920" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td colspan="2"><table width="100%" border="0" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#EBEBEB"><table width="98%" border="0" cellpadding="0" cellspacing="2">
<tr>
<td> <b>关于“<font color="#FF0000"><%=request("key")%></font>”的搜索结果：</b></td>
<td><div align="right"></div></td>
</tr>
</table></td>
</tr>
<tr>

<td bgcolor="#FFFFFF">
<%
key=Request("key")
if key="" then
Response.Write("<script>alert('请输入关键词!');history.back();</script>")
Response.End()
end if
set rs=server.createobject("adodb.recordset")
sql="select * from news where title like '%"&key&"%' order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.Write " 暂无内容！"
else
rs.PageSize =12 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%For i=1 To x%>
<div class="box14">
<ul>
<li> <a href="shownews.asp?id=<%=rs("id")%>"><%=replace(rs("title"),Request("key"),"<font color=red>"&Request("key")&"</font>")%></a> <%=rs("data")%></li>
</ul>
</div>
<%rs.movenext
next
%>
<%
end if
%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
rs.close
set rs=nothing
%></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
</tr>

</body>
</html>
[解决办法]
把
<%
key=Request("key")
if key="" then
Response.Write("<script>alert('请输入关键词!');history.back();</script>")
Response.End()
end if
set rs=server.createobject("adodb.recordset")
sql="select * from news where title like '%"&key&"%' order by id desc"
rs.open sql,conn,1,1
改成
<%
key=Request("key")
if key="" then

Response.Write("<script>alert('请输入关键词!');history.back();</script>")
Response.End()
end if

key=replace(key," ",",")
keyArr=split(key,",")

sql="select * from news where 1=1"
for i=0 to ubound(keyArr)
sql=sql&" and title like '%"&keyArr(i)&"%'"
next
sql=sql&" order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
[解决办法]
sql=sql&" and title like '%"&keyArr(i)&"%'"
应该是
sql=sql&" or title like '%"&keyArr(i)&"%'"

站内搜索的搜寻多个关键词代码怎样写

热点推荐