ASP智慧型搜尋的實現

用asp實現搜尋引擎的功能是一件很方便的事，可是，如何實現類似3721的智慧型搜尋呢？比如，當在搜尋條件框內輸入「中國人民」時，自動從中提取「中國」、「人民」等關鍵字並在資料庫內進行搜尋。看完本文後，你就可以發現，這個功能實現起來竟然是如此的簡單。ok，follow me！

id 自動編號

u_name 文字

u_info 備註

第二步，我們開始設計搜尋頁面search.asp。該頁面包括乙個表單（frm_search），表單內包括乙個文字框和乙個提交按鈕。並將表單的method屬性設為「get」，action屬性設為「search.asp"，即提交給網頁自身。**如下：

下面，就進入了實現智慧型搜尋的關鍵部分。

首先，建立資料庫連線。在search.asp的開始處加入如下**：

dim strprovider,cnn

strprovider="provider=microsoft.jet.oledb.4.0;data source="

set cnn = server.createobject("adodb.connection")

cnn.open strprovider '開啟資料庫連線

接下來，判斷 asp頁所接收到的資料，並在資料庫中進行搜尋。

dim s_key,rst,strsql

s_key = trim(request("key")) '得到搜尋關鍵字的值

if s_key <　　dim s_key,rst,strsql

s_key = trim(request("key")) '得到搜尋關鍵字的值

if s_key <>"" then

set rst=server.createobject("adodb.recordset")

strsql=autokey(s_key) '此處使用自定義函式 autokey()，該函式為實現智慧型搜尋的核心

rst.open strsql,cnn,3,2 '得到搜尋後的記錄

if rst.bof and rst.eof then

未找到任何結果！！！

else

搜尋名稱為「

<%= s_key %>」的項，共找到

<%= rst.recordcount %> 項：

while not rst.eof '遍歷整個記錄集，顯示搜尋到的資訊並設定鏈結

" target="_blank"><%= rst("u_name") %>

<%= left(rst("u_info"),150) %>