用ASP编写站内搜索

许汉平 · 2000年第12期

你是不是有你自己的网站!你网站的内容多吗?是不是有很多内容呀!浏览者是不是常常在你的网站里很难找到他想要的东西呀。现在好了！向大家介绍一个用ASP编写的搜索引擎，它可以搜索到你站内的任何一个东东和每一个字。
先用ACCESS建立一个名为list.mdb的数据库，在里面再建一个名为list的表，当然你可以用自己喜欢的名字。然后在list表里输入一些你想要被查询东西的名称、关键词和对应的链接！
　　这儿建立了四个项目ID （编号）、title （主题）、word （关键词）、url （链接地址），如（图1）表所示。现在你可以建立你自己的ASP搜索结果页了。下面是一个文件名为search.asp的ASP搜索页面的源程序。这个搜索引擎可以同时搜索title和word中的内容。如有需要可以做更多。

　　
　　<％ ′建立数据库的连接
　　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
　　％>
　　′建立查询后的显示信息和查询页
　　
　　
　　查询结果
　　
　　
　　

　　′统计查询结果发现共有<％Response.Write（RS.RecordCount）％>条记录

　　　　bordercolorlight=″＃000000″ bordercolordark=″＃000000″>
　　
　　
　　
　　
　　

主题
　　

查看
　　

　　　　bordercolorlight=″＃000000″ bordercolordark=″＃000000″>
　　
　　′
　　<％ while not rs.eof ％>
　　
　　
　　
　　
　　 <％ rs.movenext％>
　　
　　<％wend％>
　　

<％=rs（″id″）％>
　　

<％=rs（″title″）％>
　　

″>GO
　　

<％rs.close％>
　　<％mycon.close％>
　　′关闭连接
　　
　　
　　接下来建立搜索页：
　　
　　
　　搜索页
　　
　　
　　
　　

　　好了现在你要做的就是将你站内的资料输入数据库了！