站内搜索程序求助! - ASP技术论坛

问题点数：0 回复次数：9

站内搜索程序求助!

想按下面的程序设计一个搜索程序玩玩.可是老是没法正常运行!不知那里出错了.有那位高手能帮我搞好发个附件给我再慢慢研究吗?万分感谢了.实在没办法了.或者你们有些什么好点的带数据库的搜索程序发个给小弟研究一下.学习学习.

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

id title word url
1 cgi教程本地调试cgi cgi/testcgi.htm
2 下载中心聊天室，留言本 download/index.htm

　　（二），建立了数据库以后就可以建立你的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＞

搜索更多相关主题的帖子: 数据库　搜索　 list　title　

第 2 楼

得分:0

rs.open "select*form list where title and word like 　%&request.form("word")&"%",mycon,adopenstatie
改成：
rs.open "select*form list where title and word like 　%"&request.form("word")&"%",mycon,adopenstatie

另外你怎么都用全角的“<”和“>”呃……

第 3 楼

得分:0

楼上说的很正确，错的一塌糊涂
按你的意思，调整了一下。

搜索页面
<html>
<title>搜索页面</title>
<form 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>
</html>

搜索结果页面
<%

con="driver={Microsoft Access driver (*.mdb)};DBQ="&server.MapPath("database/db.mdb")
set mycon=Server.CreateObject("adodb.connection")
mycon.open con
%>
　
　<% set rs=server.createobject("adodb.recordset")
sql ="select * from list where title like '%" & request.form("word") & "%' or word like '%" & request.form("word") & "%'"
rs.open sql,mycon,1,1
%>
　
　<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>

第 4 楼

得分:0

能正常运行了吗? 我试试..

第 5 楼

得分:0

现在已经在把通过搜索页面把 Search.asp 调出来了.不过还是运行出错.可以SEARCH.ASP 的代码完整的贴出来吗?我实在太菜了呀! 数据库的名称是:list.mdb 就差一步了.

这是我搞的色情无聊网站!高手帮我试一下为什么不行呀! http://dreamhill.9126.com

[此贴子已经被作者于2007-8-11 13:05:19编辑过]

第 6 楼

得分:0

按照搂主的题目做的搜索网页例子

zl5w0TOz.zip (12.4 KB) 站内搜索程序求助!

第 7 楼

得分:0

多谢几位大哥的顶力支持呀!这里高手真多呀.找到组织了.以后有难来这里避了!

第 8 楼

得分:0

还有个小小的问题,就是在主页上输入数据后,按搜索后进入search.asp页面没有显示数据.还要重新输入一次才会有数据显示出来.是什么问题呢?

第 9 楼

得分:0

你的 search.asp，和主页的 form 代码这么写的？

第 10 楼

得分:0

主页的代码是这样的:
<form 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>

search.asp的程序是6楼的版主先生帮我写的.附件在6楼可以下载看.