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

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

  (一),首先利用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 08:34
快速回复:站内搜索程序求助!
数据加载中...
 
   



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

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