asp搜索怎么实现

产品、新闻、留言对应3个表productsnewsboard.第一个表单提交页，就一个下拉表单和个提交按钮。第二个搜索页面怎么做，就是一般的搜索，根据你输入的关键字搜索对... 产品、新闻、留言对应3个表products news board.
第一个表单提交页，就一个下拉表单和个提交按钮。
第二个搜索页面怎么做，就是一般的搜索，根据你输入的关键字搜索对应的表，没有找到就返回没有信息。找到就输出相关的信息，如新闻就输出标题（title）、主题(contens)，表里面的数据你可以随便写，我看得懂就行。。要具体的代码阿，我不会写只会看。(连接文件是conn.asp)
conn.asp中代码是：
Dim conn,connstr
VotePath="data" '本程序路径,例如目录为:根目录/InkooVote,那么应填写:/InkooVote
DbPath="/data.mdb" '数据库路径
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(VotePath & DbPath)
Set conn=server.CreateObject("adodb.connection")
conn.open connstr
不是要连接代码，我是说我的连接文件是conn.asp
一楼的回答不详细。我要的是完整的搜索页面（连<html>什么的也写进去）；只有关键的那个搜索语句我早就知道了

--------------------------------------

3楼的只是搜索了一个表呢，我是要3个下拉栏对应搜索3个表。那3个表你可以自己取列名，我看得懂就行。

谢谢啦

----------------------------
我没说清楚，是3个菜单，选哪个就从哪个表搜索展开

 我来答

5个回答

#热议# 不吃早饭真的会得胆结石吗？

百度网友c81899f
2007-12-20 · 超过29用户采纳过TA的回答

知道答主

回答量：67

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

一楼的说得很清楚的,其实搜索把传递的值搞清楚就行了,楼主要一次性搜索三个表,那不如再加一个下拉框选择产品、新闻、留言,要不然一个下拉框里还需要分析哪个是产品的,哪个是新闻的.借三楼的代码改一下


<form id="form1" name="form1" method="post" action="">
<label>关键字
<input type="text" name="keywords" />
</label>
<label>
搜索类型<select name="lb">
<option value="title">标题</option>
<option value="content">内容</option>
</select>
<select name="dbselect">
<option value="products">产品</option>
<option value="news">新闻</option>
<option value="board">留言</option>
</select>
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>
<table width="90%">
<% dim j
j=0
if request.Form("keywords")<>"" then
'假如你表里标题字段为title 内容为content 不是的话就换成表里字段
select case request("dbselect") '这里因为搜索每个表的字段不同所以分开写
case "products"
sql="select title,content from biao where "&request.Form("lb")&" like '%"&request.Form("keywords")&"%' "
case "news"
'加入搜索SQL语句
case "board"
'加入搜索SQL语句
end select

set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.Write "no"
else'----分页及显示
if not isempty(request.QueryString("page")) then '判断当前要显示的页面
pagecount=cint(request.QueryString("page"))
else 'r如果为空
pagecount=1
end if
rs.pagesize=12
rs.absolutepage=pagecount
end if
do while not rs.eof and j<rs.pagesize
j=j+1
%>
<tr>
<td><%=rs("title")%><br />内容<%=left(rs("content"),20)%></td></tr>
<%
rs.movenext
loop
end if
end if
'--其它的自己完善了..再不会那就....
%>
</table>
<%
if rs.pagecount>1 then
if pagecount<>1 then
%>
<a href="./picsearch.asp?page=1&<%=str%>">首页</a>
<a href="./picsearch.asp?page=<%=pagecount-1%>&<%=str%>">上一页</a>
<%end if
if pagecount<>rs.pagecount then
%>
<a href="./picsearch.asp?page=<%=pagecount+1%>&<%=str%>">下一页</a>
<a href="./picsearch.asp?page=<%=pagecount%>&<%=str%>">尾页</a>
<%
end if
end if%>

已赞过 已踩过<

评论收起

上海秘塔网络科技有限公司

广告2024-12-25

没有广告的搜索引擎大全，快速筛选信息，整合优质结果，一键体验极简搜索，满足你的所有需求。

www.metaso.cn

帐号已注销
2007-12-20 · TA获得超过1232个赞

知道大有可为答主

回答量：1245

采纳率：0%

帮助的人：1428万

我也去答题访问个人页

关注

展开全部

<form id="form1" name="form1" method="post" action="">
<label>关键字
<input type="text" name="keywords" />
</label>
<label>
搜索类型<select name="lb">
<option value="title">标题</option>
<option value="content">内容</option>
</select>
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>
<table width="90%">
<% dim j
j=0
if request.Form("keywords")<>"" then
'假如你表里标题字段为title 内容为content 不是的话就换成表里字段
sql="select title,content from biao where "&request.Form("lb")&" like '%"&request.Form("keywords")&"%' "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
response.Write "no"
else'----分页及显示
if not isempty(request.QueryString("page")) then '判断当前要显示的页面
pagecount=cint(request.QueryString("page"))
else 'r如果为空
pagecount=1
end if
rs.pagesize=12
rs.absolutepage=pagecount
end if
do while not rs.eof and j<rs.pagesize
j=j+1
%>
<tr>
<td><%=rs("title")%><br />内容<%=left(rs("content"),20)%></td></tr>
<%
rs.movenext
loop
end if
end if
'--其它的自己完善了..再不会那就....
%>
</table>
<%
if rs.pagecount>1 then
if pagecount<>1 then
%>
<a href="./picsearch.asp?page=1&<%=str%>">首页</a>
<a href="./picsearch.asp?page=<%=pagecount-1%>&<%=str%>">上一页</a>
<%end if
if pagecount<>rs.pagecount then
%>
<a href="./picsearch.asp?page=<%=pagecount+1%>&<%=str%>">下一页</a>
<a href="./picsearch.asp?page=<%=pagecount%>&<%=str%>">尾页</a>
<%
end if
end if%>

已赞过 已踩过<

评论收起

厚王
2007-12-21 · TA获得超过191个赞

知道小有建树答主

回答量：309

采纳率：0%

帮助的人：248万

我也去答题访问个人页

关注

展开全部

获取请求的关键字
key=request("key")

set rs=conn.execute("select * from news where title like '%"&key&"%'")   '模糊搜索news表的title字段包含key值的记录

if not rs.bof and not rs.eof then   ‘不为空
do while not rs.eof    ’循环
response.write rs("title")
rs.movenext
loop
else    '否则为空
response.write "搜索不到"
end if
rs.close
set rs=nothing

--------
唉，这年头，回答问题还要连HTML也写进去。。。。。。。。

看问题答案更多的应该从中吸取经验和技巧，而不是拿来主义。


本回答被提问者和网友采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起