ASP實(shí)現(xiàn)智能搜索實(shí)現(xiàn)代碼
更新時(shí)間：2008年06月25日 17:23:03 作者：
asp下智能搜索功能的實(shí)現(xiàn)，方便大家學(xué)習(xí)
<%
Function AutoKey(strKey)
Const lngSubKey=2
lngLenKey=Len(strKey)
Select Case lngLenKey
Case 0 '若為空串，轉(zhuǎn)到出錯(cuò)頁
Response.Redirect "Error.htm"
Case 1 '若長度為1，則不設(shè)任何值
strNew1=""
strNew2=""
Case Else '若長度大于1，則從字符串首字符開始，循環(huán)取長度為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
%>
Function AutoKey(strKey)
Const lngSubKey=2
lngLenKey=Len(strKey)
Select Case lngLenKey
Case 0 '若為空串，轉(zhuǎn)到出錯(cuò)頁
Response.Redirect "Error.htm"
Case 1 '若長度為1，則不設(shè)任何值
strNew1=""
strNew2=""
Case Else '若長度大于1，則從字符串首字符開始，循環(huán)取長度為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
%>
相關(guān)文章
今日，碰到一個(gè)問題：如何在網(wǎng)頁中高亮顯示不區(qū)分大小寫的關(guān)鍵字2010-01-01
ASP中實(shí)現(xiàn)定時(shí)發(fā)送郵件的代碼分享
這篇文章主要介紹了ASP中實(shí)現(xiàn)定時(shí)發(fā)送郵件的代碼分享,使用VBS的方式實(shí)現(xiàn),并運(yùn)行在數(shù)據(jù)庫中,需要的朋友可以參考下2014-07-07
【摘 要】本文詳細(xì)介紹關(guān)于asp代碼實(shí)例學(xué)習(xí)：注冊登陸代碼的文章專題。2008-05-05
一些論壇上面關(guān)于分頁的ASP程序依然有許多的關(guān)注者，但里面只有代碼，沒有詳細(xì)的解釋，對于初學(xué)者來說，這樣總是得不到真正的掌握，此次我將針對分頁技術(shù)進(jìn)行詳解，讓大家來理解ASP分頁！2008-06-06
PerlScript編寫ASP(轉(zhuǎn)載)...2007-01-01
ASP基礎(chǔ)入門第七篇（ASP內(nèi)建對象Response）
這篇文章主要介紹了ASP內(nèi)建對象Response的相關(guān)資料，需要的朋友可以參考下2015-10-10
ASP代碼的對象化...2006-10-10
用ASP實(shí)現(xiàn)寫IIS日志的代碼...2007-11-11
上一篇文章，我們將text中的數(shù)據(jù)插入到了textarea中，后臺(tái)就需要處理，在textarea中，回車符不是“\n”，應(yīng)該是chr(13)。2010-05-05
.Net core 的熱插拔機(jī)制的深入探索及卸載問題求救指南
這篇文章主要介紹了.Net core 的熱插拔機(jī)制的深入探索及卸載問題求救指南,本文給大家啊介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-11-11