在做一個網站時，老闆讓實現像百度那樣的搜尋功能，以前asp實現的都是模糊搜索，匹配查詢。沒辦法。到網上搜搜看，我發現網上提供的方法有這幾種，一是建個詞庫，二是用分詞組件，三就是我說的這種，自動分詞技術，不過也不是智能的分詞，只是隔兩個字匹配。最好的是建個詞庫，根據使用者的輸入來擴充詞庫，但對於中小型網站，這可能不太需要。
這是我說的第三種分詞搜索，程式碼如下：使用方法就不說了。
＜%
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
%＞