推荐：ASP整合一个SQL语句类我们在写asp数据库程序的时候，通常都会用到SQL语句，而在增加数据和更新数据的时候，通常会使用一下方式：insert into message (incept,sender,title,content,sendtime,flag,issend) values ('incept(i)','membername','title','message',Now(),0,1) 当字段比较多的时
假如你拥有一个庞大的网站，内容又多，那么来访者往往很难找到自己所需要的东东，这时候你就需要一个站内搜索来帮助来访者更快的找到索要的资料了！现在你就可以用asp轻易的实现这种功能，何况现在支持asp的站点这么多，利用这个搜索引擎可以搜索到你的主页里面任何一个文件或者软件资料，它可以精确到每个字！说了这么多你是不是怦然心动了啊，那就按照下面的步骤来建立自己的搜索引擎吧：
（一），首先利用access97建立一个名为list.mdb的数据库，在里面建立一个名为list的表，然后在list表里面输入一些你想要被查询的文件名字，关键的搜索词还有相对应的链接，下面建立了四个项目ID（编号），title（主题），Word（关键词），url（链接地址），如下表所示：
（二），建立了数据库以后就可以建立你的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>
好了，这个站内搜索引擎到这里就算完成了，你接下来要做的就是吧东西输入数据库了！
本文由沙滩小子整理，您可以转载，但请务必注明其出处及保持其完整性，谢谢！
分享：ASP模板类代码Class Template Private m_FileName, m_Root, m_Unknowns, m_LastError, m_HaltOnErr Private m_ValueList, m_BlockList Private m_RegExp Private Sub Class_Initialize Set m_ValueList = CreateObject(Scripting.Dictionary) Set m_BlockList = CreateObject(Script