ASP智慧搜尋的實現 (轉)
智慧搜尋的實現
用ASP實現搜擎的功能是一件很方便的事,可是,如何實現類似3721的智慧搜尋呢?比如,當在搜尋條件框內輸入“中國人民”時,自動從中提取“中國”、“人民”等關鍵字並在內進行搜尋。看完本文後,你就可以發現,這個功能實現起來竟然是如此的簡單。OK,Follow Me!
第一步,我們要建立一個名為_sample.mdb的資料庫(本文以資料庫為例),並在其中建立表T_Sample。表T_Sample包括如下欄位:
ID 自動編號
U_Name 文字
U_Info 備註
第二步,我們開始設計搜尋頁面Search.asp。該頁面包括一個表單(Frm_Search),表單內包括一個文字框和一個提交按鈕。並將表單的method屬性設為“get” ,action屬性設為“Search.asp",即提交給網頁自身。程式碼如下:
<!-- Search.asp -->
請輸入關鍵字:
下面,就進入了實現智慧搜尋的關鍵部分。
首先,建立資料庫連線。在Search.asp的開始處加入如下程式碼:
Dim strProvr,CNN
strProvider="Provider=.Jet.OLEDB.4.0;Data ="
strProvider=strProvider & Server.MapPath("") & "datadb_Sample.mdb" '假設資料庫存放在主頁根目錄下的data目錄下
Set CNN = Server.Create("ADODB.connection")
CNN.Open strProvider '開啟資料庫連線
%>
接下來,判斷 ASP頁所接收到的資料,並在資料庫中進行搜尋。
Dim S_Key,RST,Str
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
%>
搜尋名稱為“”的項,共找到 項:
While Not RST.EOF '遍歷整個記錄集,顯示搜尋到的資訊並設定連結
%>
<!-- 此處可設為你所需要的連結目標 -->
" target="_blank">
<!-- 顯示部分詳細內容 -->
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 or 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 or InStr(strKey,">")<>0 then
Response.Redirect "error.htm"
End If
lngLenKey=Len(strKey)
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
%>
至此,這個智慧搜尋引擎已經完成了。你還可以將其繼續完善,比如新增分頁、突出顯示等功能。好了,不耽誤大家時間了,趕快去試一試吧。 ^_^
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-991346/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 搜尋引擎關鍵字智慧提示的一種實現
- Elasticsearch搜尋功能的實現(五)-- 實戰Elasticsearch
- Laravel + Elasticsearch 實現中文搜尋LaravelElasticsearch
- Elasticsearch 實現簡單搜尋Elasticsearch
- Jquery + Bootstrap 實現搜尋框jQueryboot
- PHP實現搜尋附近的人PHP
- 實現延遲搜尋功能
- 海量資料搜尋---demo展示百度、谷歌搜尋引擎的實現谷歌
- vue2實現搜尋結果中的搜尋關鍵字高亮Vue
- GetX 實現類似微信轉發搜尋多選好友
- 實現站內百度搜尋跳轉效果
- 檔案智慧搜尋
- ASP編寫完整的一個IP所在地搜尋類 (轉)
- 如何用Redis實現搜尋介面Redis
- laravel8實現ES搜尋Laravel
- elasticsearch實現基於拼音搜尋Elasticsearch
- 原生javascript實現的選取搜尋元件JavaScript元件
- 圖的廣度優先搜尋和深度優先搜尋Python實現Python
- Redis 實戰 —— 10. 實現內容搜尋、定向廣告和職位搜尋Redis
- 相見恨晚!開源的傻瓜搜尋引擎,幫你快速實現搜尋功能
- 二叉搜尋樹的python實現Python
- 二分搜尋演算法的實現演算法
- 【Django】組合條件的搜尋功能實現Django
- Html5實現的語音搜尋功能HTML
- Android基礎 PopupWindow實現漂亮的搜尋Android
- Sunday搜尋演算法實現演算法
- BM搜尋演算法C實現演算法
- javascript實現二叉搜尋樹JavaScript
- Python如何實現窮舉搜尋?Python
- 基於Elasticsearch實現搜尋建議Elasticsearch
- CSS 實現搜尋相關互動CSS
- 使用 Laravel Scout + ElasticSearch 實現全文搜尋LaravelElasticsearch
- ionic2/ionic3 實現搜尋結果中的搜尋關鍵字高亮
- 【搜尋引擎】 PostgreSQL 10 實時全文檢索和分詞、相似搜尋、模糊匹配實現類似Google搜尋自動提示SQL分詞Go
- 轉:google搜尋聯盟與adsense搜尋廣告的區別Go
- Meteor+MongoDB 實現簡單的即時搜尋MongoDB
- Java實現利用搜尋引擎收集網址的程式Java
- DjangoRestFramework 實現分頁功能與搜尋功能DjangoRESTFramework