用ASP编写站内搜索

Author: 许汉平 Date: 2000年 第12期
　　你是不是有你自己的网站!你网站的内容多吗?是不是有很多内容呀!浏览者是不是常常在你的网站里很难找到他想要的东西呀。现在好了！向大家介绍一个用ASP编写的搜索引擎，它可以搜索到你站内的任何一个东东和每一个字。
    先用ACCESS建立一个名为list.mdb的数据库，在里面再建一个名为list的表，当然你可以用自己喜欢的名字。然后在list表里输入一些你想要被查询东西的名称、关键词和对应的链接！
　　这儿建立了四个项目ID （编号）、title （主题）、word （关键词）、url （链接地址），如^12040201a^表所示。现在你可以建立你自己的ASP搜索结果页了。下面是一个文件名为search.asp的ASP搜索页面的源程序。这个搜索引擎可以同时搜索title和word中的内容。如有需要可以做更多。
　　<!－－＃INCLUDE file=″ADOVBS.inc″－－>
　　<％ ′建立数据库的连接
　　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″）
　　RS.Open ″SELECT ＊ FROM list where title and word like ′％″＆ request.form（″word″） ＆″％′″，MyCon，adOpenStatic
　　％>
　　′建立查询后的显示信息和查询页
　　<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″
　　bordercolorlight=″＃000000″ bordercolordark=″＃000000″>
　　  <tr align=″center″>
　　    <td width=″20％″ align=″center″ bgcolor=″＃C0C0C0″>ID
　　</td>
　　    <td width=″60％″ align=″center″ bgcolor=″＃C0C0C0″>主题
　　</td>
　　<td width=″20％″ align=″center″ bgcolor=″＃C0C0C0″>查看
　　</td>
　　   </table>
　　<table border=″1″ align=″center″ bordercolor=″＃000000″
　　bordercolorlight=″＃000000″ bordercolordark=″＃000000″>
　　  <tr align=″center″>
　　′<!－从数据库提取信息 －－>
　　<％ while not rs.eof ％>
　　  <tr>
　　<td width=″20％″ align=″center″ bgcolor=″＃C0C0C0″><％=rs（″id″）％>
　　</td>
　　    <td width=″60％″ align=″center″ bgcolor=″＃C0C0C0″><％=rs（″title″）％>
　　</td>
　　    <td width=″20％″ align=″center″ bgcolor=″＃C0C0C0″><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>
　　<!－创建搜索表格 －－>
　　<form method=″POST″ action=″Search.asp″>
　　  <div align=″center″><center><p><input type=″text″ name=″word″
　　  size=″20″>  <input type=″submit″ value=″提交″ name=″B1″>  <input type=″reset″ value=″复原″
　　  name=″B2″></p>
　　  </center></div>
　　</form>
　　<hr width=″600″ align=″center″>
　　好了现在你要做的就是将你站内的资料输入数据库了！