| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1069 人关注过本帖
标题:站内搜索程序求助!
只看楼主 加入收藏
HITMANLEE
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-8-11
收藏
 问题点数: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 
2007-08-11 09:04
愿望
Rank: 1
等 级:新手上路
威 望:1
帖 子:111
专家分:0
注 册:2007-7-28
收藏
得分: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

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

2007-08-11 10:02
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分: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>
2007-08-11 10:43
HITMANLEE
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-8-11
收藏
得分:0 
  能正常运行了吗? 我试试..
2007-08-11 12:43
HITMANLEE
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-8-11
收藏
得分:0 
现在已经在把通过搜索页面把 Search.asp 调出来了.不过还是运行出错.可以SEARCH.ASP 的代码完整的贴出来吗?我实在太菜了呀! 数据库的名称是:list.mdb 就差一步了.

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

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

2007-08-11 12:55
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
按照搂主的题目做的搜索网页例子
zl5w0TOz.zip (12.4 KB) 站内搜索程序求助!


2007-08-11 13:21
HITMANLEE
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-8-11
收藏
得分:0 
  多谢几位大哥的顶力支持呀!这里高手真多呀.找到组织了.以后有难来这里避了!
2007-08-11 13:37
HITMANLEE
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-8-11
收藏
得分:0 
  还有个小小的问题,就是在主页上输入数据后,按搜索后进入search.asp页面没有显示数据.还要重新输入一次才会有数据显示出来.是什么问题呢?
2007-08-11 13:52
愿望
Rank: 1
等 级:新手上路
威 望:1
帖 子:111
专家分:0
注 册:2007-7-28
收藏
得分:0 
你的 search.asp,和主页的 form 代码这么写的?

2007-08-11 13:56
HITMANLEE
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-8-11
收藏
得分: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楼可以下载看.
2007-08-11 17:21
快速回复:站内搜索程序求助!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018700 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved