用ASP實現搜尋引擎的功能是一件很方便的事，可是，如何實現類似3721的智慧搜尋呢？例如，在搜尋條件框內輸入「中國人民」時，自動從中提取「中國」、「人民」等關鍵字並在資料庫內進行搜尋。看完本文後，你可以發現，這個功能實現起來竟然是如此的簡單。
第一步，我們要建立一個名為db_sample.mdb的資料庫（本文以Access2000資料庫為例），並在其中建立表格T_Sample。表T_Sample包含下列欄位：
ID 自動編號U_Name 文字U_Info 備註
第二步，我們開始設計搜尋頁面Search.asp。此頁麵包括一個表單（Frm_Search），表單內包括一個文字方塊和一個提交按鈕。並將表單的method屬性設為「get」 ，action屬性設為「Search.asp"，即提交給網頁本身。程式碼如下：
以下是程式碼片段：
＜!-- Search.asp --＞
＜form name="frm_Search" method="get" action="Search.asp"＞
請輸入關鍵字：
＜input type="text" name="key" size="10"＞
＜input type="submit" value="搜尋"＞
＜/form＞
下面，就進入了實現智慧搜尋的關鍵部分。
首先，建立資料庫連線。在Search.asp的開始處加入如下程式碼：
以下是程式碼片段：
＜%
Dim strProvider,CNN
strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strProvider=strProvider & Server.MapPath("") & "datadb_Sample.mdb" 假設資料庫存放在首頁根目錄下的data目錄下
Set CNN = Server.CreateObject("ADODB.connection")
CNN.Open strProvider 開啟資料庫連接
%＞
接下來，判斷ASP頁所接收到的數據，並在資料庫中進行搜尋。
以下是程式碼片段：
＜font color="#FF0000"＞未找到任何結果！ ！ ！ ＜/font＞
＜%
Else
%＞
搜尋名稱為「＜font color="#FF0000"＞＜%= S_Key %＞＜/font＞」的項，共找到＜font color="#FF0000"＞＜%= RST.RecordCount %＞＜/font＞＜/font＞＜/font＞＜/font＞＜/font＞＜/font＞＜/font＞＜/font＞＜/font＞＜/font＞＜/font＞＜項：＜p＞
＜%
While Not RST.EOF 遍歷整個記錄集，顯示搜尋到的資訊並設定連結
%＞
＜!-- 此處可設為你所需要的連結目標--＞
＜font style="font: 12pt 宋體"＞＜a href="info.asp?ID=＜%= RST("ID") %＞" target="_blank"＞＜%= RST("U_Name") % ＞＜/a＞＜/font＞
＜!-- 顯示部分詳細內容--＞
＜font style="font: 9pt 宋體"＞＜%= Left(RST("U_Info"),150) %＞＜/font＞＜p＞
＜%
RST.MoveNext
Wend
RST.Close
Set RST=Nothing
End If
End If
%＞
在上面的程式碼中，有一個自訂函數AutoKey ，該函數是實現智慧搜尋的核心所在。程式碼如下：
以下是程式碼片段：
＜%
Function AutoKey(strKey)
CONST lngSubKey=2
Dim lngLenKey, strNew1, strNew2, i, strSubKey
'偵測字串的合法性，若不合法則就轉到出錯頁。出錯頁你可以根據需要進行設定。
if InStr(strKey,"=")＜＞0 or InStr(strKey,"`")＜＞0 or InStr(strKey,"")＜＞0 or InStr(strKey," ")＜＞0 或 InStr(strKey ," ")＜＞0 or InStr(strKey,"")＜＞0 or InStr(strKey,chr(34))＜＞0 or InStr(strKey,"")＜＞0 or InStr(strKey,", ")＜＞0 or InStr(strKey,"＜")＜＞0 或 InStr(strKey,"＞")＜＞0 then
Response.Redirect "error.htm"
End If
lngLenKey=Len(strKey)
Select Case lngLenKey
Case 0 若為空串，請前往出錯頁
Response.Redirect "error.htm"
Case 1 若長度為1，則不設任何值
strNew1=""
strNew2=""
'Case Else 若長度大於1，則從字串首字元開始，循環取長度為2的子字串作為查詢條件
For i=1 To lngLenKey-(lngSubKey-1)
strSubKey=Mid(strKey,i,lngSubKey)
strNew1=strNew1 & " or U_Name like %" & strSubKey & "%"
strNew2=strNew2 & " or U_Info like %" & strSubKey & "%"
Next
End Select
'得到完整的SQL語句
AutoKey="Select * from T_Sample where U_Name like %" & strKey & "% or U_Info like %" & strKey & "%" & strNew1 & strNew2
End Function
%＞
要實現智慧搜索，其核心就是將搜尋關鍵字進行自動分組。在此處，我們使用了循環取長度為2的子字串的方法。為什麼不將子串長度定為1、3、4或其他呢？這是因為若子字串長度小於2即為1時，會失去將關鍵字分組的功能，而若子字串長度大於2，則會遺失一些詞組。大家可以將CONST lngSubKey=2改為其他數字試一試，孰優孰劣自見分曉。
最後，別忘了將資料連線關閉，以釋放資源。
以下是程式碼片段：
＜%
CNN.Close
Set CNN=Nothing
%＞
至此，這個智慧搜尋引擎已經完成了。你也可以將其持續完善，例如新增分頁、反白等功能。好了，不耽誤大家時間了，趕快去試試吧。