北京赛车单双技巧 北京赛车pk10黑客软件 北京pk10计划免费软件 pk10前二做号工具 pk10专业预测 pk10民间高手 北京pk10挂机选号经验分享模式 pk10冠军3码倍投计划 北京赛车计划app手机版 北京赛车开奖软件 pk10最牛稳赚模式最新 pk10全天免费计划 易算北京pk10准不准 pk10赛车7码技巧 pk10八码滚雪球3期一收

中文分詞搜索,asp拆詞搜索,asp智能分詞搜索

4/21/2008來源:ASP實例人氣:16271

在做一個網站時,老板讓實現像百度那樣的搜索功能,以前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 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)  
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  
%>



pk10有什么方法平刷
北京赛车单双技巧 北京赛车pk10黑客软件 北京pk10计划免费软件 pk10前二做号工具 pk10专业预测 pk10民间高手 北京pk10挂机选号经验分享模式 pk10冠军3码倍投计划 北京赛车计划app手机版 北京赛车开奖软件 pk10最牛稳赚模式最新 pk10全天免费计划 易算北京pk10准不准 pk10赛车7码技巧 pk10八码滚雪球3期一收
后二复式规律 手机二人斗地主 快乐十分任选2技巧大全 pc蛋蛋各种玩法 地下赌博怎么压稳赚 时时彩玩法 怎么用凯利公式赌大小 老虎机app自助领取彩金38 11选5胆拖奖金对照表