推薦：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