asp+access实现站内搜索问题

asp+access实现站内搜索问题（一），首先利用access建立list.mdb的数据库，在里面建立一个名为list的表，然后在list表里面输入一些你想要被查询的文... asp+access实现站内搜索问题
（一），首先利用access建立list.mdb的数据库，在里面建立一个名为list的表，然后在list表里面输入一些你想要被查询的文件名字，关键的搜索词还有相对应的链接，下面建立了四个项目ID（编号），title（主题），word（关键词），url（链接地址）

******************第一步没问题会了******************没问题

（二），建立了数据库以后就可以建立你的asp搜索页面了，下面是一个文件名为search.htm的asp搜索页面的源程序，这个搜索引擎可以同时搜索title和word里面的内容，当然如果你有需要的话可以建立更多的搜索：

<!--#INCLUDE file="ADOVBS.inc"-->
<% "建立数据库的连接
con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
"建立CONNECTION对象并打开数据库
set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con %>
"创建Recordset对象的例程，打开Recordset对象传递SQL串以及所有的连接信息
<% set rs=server.createobject("ADODB.Recordset")
rs.open "SELECT*FORM list where title and word like '%'&request.form("word")&"%'",MyCon,adOpenStatie
%>
"建立查询后的显示信息和查询页面,你想取什么名字都可以
<html><head><title>查询结果</title></head>
<body bgcolor="#ffffff">
<p align="center"><br>
"统计查询共有<% Response.Write(RS.RecordCount) %>条纪录</p><br>
<div align="center"><center>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff">ID</td>
<td width="60%" align="center" bgcolor="#ffffff">主题</td>
<td width="20%" align="center" bgcolor="#ffffff">查看</td></table>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<!--从数据库提取信息-->
<% while not rs.eof %>
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td>
<td width="60%" align="center" bgcolor="#ffffff"><% =rs("title") %></td>
<td width="20%" align="center" bgcolor="#ffffff"><a href="<% =rs("url") %>">GO</a></td>
<% rs.movenext %></tr> <% wend %></table></center></div><% rs.close %>
<% mycon.close %>
"关闭链接
</body></html>
下面我们来建立搜索页面
<html><head><title>搜索页面</title></head>
<!--创建搜索表格-->
<from method="POST" action="search.asp">
<div align="center"><center><p><input type="text" name="word" size="30">
<input type="submit" value="提交" name="B1"><input type="reset" value="清除" name="B2"></p>
</center></div></form>
<hr width="600" align="center">
<html>

******************第二步这几段代码，到底哪些保存为什么名字搞不清楚，试了很多次都失败，请高人指点迷津啊******************
谢谢你们在我的问题上的回答，但是我照你们说的做了，保存了两个文件，建立了数据库，用IIS打开search.htm但是仍然搜索不出啊，麻烦大家帮我简单测试一下，好吗，谢谢了啊，不知道怎么回事 展开
 我来答
3个回答
#热议# 海关有哪些禁运商品？查到后怎么办？
roobie
2008-11-26 · TA获得超过1387个赞
知道小有建树答主
回答量：947
采纳率：0%
帮助的人：819万
我也去答题访问个人页
展开全部
你的代码有错误,我给你修改了,你保存我的用就好了,我试了,没问题
------------------下面保存为的search.asp-----------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<http-equiv="Content-Type" content="text/html; charset=gb2312" >
<%
'建立数据库的连接
con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'建立CONNECTION对象并打开数据库
set mycon=Server.CreateObject("ADODB.connection")
mycon.open con
%>

<%
'创建Recordset对象的例程，打开Recordset对象传递SQL串以及所有的连接信息
set rs=server.createobject("adodb.recordset")
'sql="select * from list where word like '%"&request.form("word")&"%'"
sql= "select * from list where title and word like '%"&request.form("word")&"%'"
rs.open sql,con,1,3

'建立查询后的显示信息和查询页面,你想取什么名字都可以
%>
<html><head><title>查询结果</title></head>
<body bgcolor="#ffffff">
<p align="center"><br>
统计查询共有<% Response.Write(RS.RecordCount) %>条纪录</p><br>
<div align="center"><center>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff">ID</td>
<td width="60%" align="center" bgcolor="#ffffff">主题</td>
<td width="20%" align="center" bgcolor="#ffffff">查看</td></table>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<!--从数据库提取信息-->
<% while not rs.eof %>
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td>
<td width="60%" align="center" bgcolor="#ffffff"><% =rs("title") %></td>
<td width="20%" align="center" bgcolor="#ffffff"><a href="<% =rs("url") %>">GO</a></td>
<% rs.movenext %></tr> <% wend %></table></center></div><% rs.close %>
<%mycon.close
'关闭链接 %>
</body></html>

---------------------------------------------
-------------------下面保存为search.htm-------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<http-equiv="Content-Type" content="text/html; charset=gb2312" >
<html><head><title>搜索页面</title></head>
<!--创建搜索表格-->
<form method="POST" id=form1 name=form1 action="search.asp">
<div align="center"><center><p><input type="text" name="word" size="30">
<input type="submit" value="提交" name="B1"><input type="reset" value="清除" name="B2"></p>
</center></div></form>
<hr width="600" align="center">
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
六十七返璞归真
2008-11-25 · TA获得超过1501个赞
知道大有可为答主
回答量：1854
采纳率：0%
帮助的人：1466万
我也去答题访问个人页
展开全部
楼上已经回答的很好了。
<html><head><title>搜索页面</title></head>
<from method="POST" action="search.asp">
<div align="center"><center><p><input type="text" name="word" size="30">
<input type="submit" value="提交" name="B1"><input type="reset" value="清除" name="B2"></p>
</center></div></form>
<hr width="600" align="center">
<html>
上面的代码保存为search.htm

<!--#INCLUDE file="ADOVBS.inc"-->
<%
con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con %>
<% set rs=server.createobject("ADODB.Recordset")
rs.open "SELECT * FORM list where title and word like '%'&request.form("word")&"%'",MyCon,adOpenStatie
%>
<html><head><title>查询结果</title></head>
<body bgcolor="#ffffff">
<p align="center"><br>
"统计查询共有<% Response.Write(RS.RecordCount) %>条纪录</p><br>
<div align="center"><center>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff">ID</td>
<td width="60%" align="center" bgcolor="#ffffff">主题</td>
<td width="20%" align="center" bgcolor="#ffffff">查看</td></table>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<% while not rs.eof %>
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td>
<td width="60%" align="center" bgcolor="#ffffff"><% =rs("title") %></td>
<td width="20%" align="center" bgcolor="#ffffff"><a href="<% =rs("url") %>">GO</a></td>
<% rs.movenext %></tr> <% wend %></table></center></div><% rs.close %>
<% mycon.close %>
</body></html>
这一段保存为search.asp
注意：search.htm和search.asp（还有list.mdb）要保存到同一个文件夹下，而且，不要直接打开search.htm，要从iis信息服务中浏览。直接打开的话，提交之后就会让你选择打开或者保存search.asp，这点很重要。
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
招投标CA数字证书
2008-11-27 · 超过44用户采纳过TA的回答
知道小有建树答主
回答量：93
采纳率：0%
帮助的人：113万
我也去答题访问个人页
展开全部
rs.open "SELECT*FORM list where title and word like '%'&request.form("word")&"%'",MyCon,adOpenStatie

title and word like 这有问题
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
收起 更多回答（1）
推荐律师服务： 若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

为你推荐：

下载百度知道APP，抢鲜体验
使用百度知道APP，立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

京ICP证030173号-1   京网文【2023】1034-029号     ©2024Baidu  使用百度前必读 | 知道协议 | 企业推广

辅 助

模 式