ASP实现智能搜索实现代码
更新时间：2008年06月25日 17:23:03 作者：
asp下智能搜索功能的实现，方便大家学习
<%
Function AutoKey(strKey)
Const lngSubKey=2
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
%>
Function AutoKey(strKey)
Const lngSubKey=2
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
%>
相关文章
今日，碰到一个问题：如何在网页中高亮显示不区分大小写的关键字2010-01-01
这篇文章主要介绍了ASP中实现定时发送邮件的代码分享,使用VBS的方式实现,并运行在数据库中,需要的朋友可以参考下2014-07-07
【摘 要】本文详细介绍关于asp代码实例学习：注册登陆代码的文章专题。2008-05-05
一些论坛上面关于分页的ASP程序依然有许多的关注者，但里面只有代码，没有详细的解释，对于初学者来说，这样总是得不到真正的掌握，此次我将针对分页技术进行详解，让大家来理解ASP分页！2008-06-06
PerlScript编写ASP(转载)...2007-01-01
这篇文章主要介绍了ASP内建对象Response的相关资料，需要的朋友可以参考下2015-10-10
ASP代码的对象化...2006-10-10
用ASP实现写IIS日志的代码...2007-11-11
上一篇文章，我们将text中的数据插入到了textarea中，后台就需要处理，在textarea中，回车符不是“\n”，应该是chr(13)。2010-05-05
.Net core 的热插拔机制的深入探索及卸载问题求救指南
这篇文章主要介绍了.Net core 的热插拔机制的深入探索及卸载问题求救指南,本文给大家啊介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下2020-11-11
最新评论