| ASP在结果中搜索__教程 |
|
| 日期：2007-5-15 21:09:36 人气：28 [大 中 小] |
|
|
|
|
|
我们经常用GOOGLE来搜索东东，也看到了它的在结果中搜索的功能。
在论坛中曾有人问到，如果用 ASP 在搜索结果中再次搜索的问题。
下面就是一个完整的解决方案。
设计思路：
把搜索的内容传递过来，中间用“,”号隔开，统计出搜索的关键字，然后用sql语法的“and”连接起来形成一个新的查询语句。
ASP代码，下面的代码不提供数据库下载，如果你要进行测试，可以新建一个ACCESS数据库，在里面新建一个“capital”字段就可以了。
代码:
在结果中再搜索
<%
u_search=request.form("u_search")
u_prev_search=request.form("u_prev_search")
u_search_within=request.form("u_search_within")
if u_search <> "" then
if u_prev_search = "" then
u_prev_search=u_search
else
u_prev_search=u_prev_search &","& u_search
g_prev_search=split(u_prev_search,",")
num_inputted=ubound(g_prev_search)
end if
sql= "select * from states where (capital like '%%"& u_search & "%%') "
if u_search_within = "Yes" then
for counter =0 to num_inputted-1
sql=sql& "and (capital like '%%"& g_prev_search(counter) & "%%') "
next
end if
accessdb="state_info"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn
' 如果没有找到相应的信息
if rs.eof then
%>
没有任何记录
<%' 有相应的信息就列出来
else
rs.movefirst
do while Not rs.eof
%>
<%= rs("capital") %>
<%
rs.movenext
loop
end if
end if
%>
<%= sql %> |
|
|
| 出处：本站原创 作者：佚名 |
|
|
