ASP智能搜索的实现 - MsSql数据库 - 软件开发资源站

ASP智能搜索的实现
类别：MsSql数据库作者：码皇来源：互联网点击：

用ASP实现搜索引擎的功能是一件很方便的事，可是，如何实现类似3721的智能搜索呢？比如，当在搜索条件框内输入“中国人民”时，自动从中提取“中国”、 “人民”等关键字并在数据库内进行搜索。看完本文后，你就可以 ,魔客吧

用ASP实现搜索引擎的功能是一件很方便的事，可是，如何实现类似3721的智能搜
索呢？比如，当在搜索条件框内输入“中国人民”时，自动从中提取“中国”、
“人民”等关键字并在数据库内进行搜索。看完本文后，你就可以发现，这个功
能实现起来竟然是如此的简单。OK，Follow Me！
第一步，我们要建立一个名为db_sample.mdb的数据库（本文以Access2000数
据库为例），并在其中建立表T_Sample。表T_Sample包括如下字段：
ID 自动编号
U_Name 文本
U_Info 备注
第二步，我们开始设计搜索页面Search.asp。该页面包括一个表单
（Frm_Search），表单内包括一个文本框和一个提交按钮。并将表单的method属
性设为“get” ，action属性设为“Search.asp"，即提交给网页自身。代码如下
：

下面，就进入了实现智能搜索的关键部分。
首先，建立数据库连接。在Search.asp的开始处加入如下代码：
<%
Dim strProvider,CNN
strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strProvider=strProvider & Server.MapPath("") &
"datadb_Sample.mdb" '假设数据库存放在主页根目录下的data目录下
Set CNN = Server.CreateObject("ADODB.connection")
CNN.Open strProvider '打开数据库连接
%>
接下来，判断 ASP页所接收到的数据，并在数据库中进行搜索。
<%
Dim S_Key,RST,StrSQL
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
%>
搜索名称为“<%= S_Key %
>”的项，共找到 <%= RST.RecordCount %
> 项：

<%
While Not RST.EOF '遍历整个记录集，显示搜索到的信
息并设置链接
%>

href="info.asp?ID=<%= RST("ID") %>" target="_blank"><%= RST("U_Name")
%>

<%= Left(RST
("U_Info"),150) %>

<%
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)
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
%>
要实现智能搜索，其核心就是将搜索关键字进行自动分组。在此处，我们使
用了循环取长度为2的子串的方法。为什么不将子串长度定为1、3、4或其他呢？
这是因为若子串长度小于2即为1时，会失去将关键字分组的功能，而若子串长度
大于2，则会丢失一些词组。大家可以将 CONST lngSubKey=2改为其他数字试一试
，孰优孰劣自见分晓。
最后，别忘了将数据连接关闭，以释放资源。
<%
CNN.Close
Set CNN=Nothing
%>
至此，这个智能搜索引擎已经完成了。你还可以将其继续完善，比如添加分
页、突出显示等功能。好了，不耽误大家时间了，赶快去试一试吧。 ^_^

魔客吧温馨提示：如果正在寻找登门户网站模板，那么到魔客吧的门户网站模板频道看看吧，这里有很多的门户网站模板哦！

分享到 更多 <script type="text/javascript" id="bdshell_js"></script><script type="text/javascript">document.getElementById("bdshell_js").src = "http://share.baidu.com/static/js/shell_v2.js?cdnversion=" + new Date().getHours();</script> 本文地址：http://www.moke8.com/article-21961-1.html
文章标题：ASP智能搜索的实现收藏邀请 最新分享资源

包装材料生产线设备织梦模板

dedecms模板 by moke

响应式淘宝美工摄影类织梦模板

dedecms模板 by moke

响应式金属制品dedecms模板

dedecms模板 by moke

响应式无人机电子产品dede模板

dedecms模板 by moke

最新评论

相关分类

PHP编程
ASP编程
NET编程
JSP编程
MSSQL教程
MYSQL教程

精品推荐

精华中英双语响应式电子企业织梦模板

dedecms模板 by moke

极品资源

极品高端建筑装饰带手机版十配色织梦模板

dedecms模板 by moke

原创模板

魔币多配色创意metro风格企业

下载排行

01包装材料生产线设备织梦模板

资源分类

企业网站模板企业网站源码个人网站模板个人网页模板手机wap网站门户网站模板商业源码淘宝客程序 html5网站网站后台模板 html网页模板学校网站模板 <script type="text/javascript">var cookieLogin = Ajax("TEXT");cookieLogin.get("connect.php?mod=check&op=cookie", function() {});</script><script type="text/javascript">_attachEvent(window, 'load', getForbiddenFormula, document);function getForbiddenFormula() {var toGetForbiddenFormulaFIds = function () {ajaxget('plugin.php?id=cloudsearch&formhash=86fc5186');};var a = document.body.getElementsByTagName('a');for(var i = 0;i < a.length;i++){if(a[i].getAttribute('sc')) {a[i].setAttribute('mid', hash(a[i].href));a[i].onmousedown = function() {toGetForbiddenFormulaFIds();};}}var btn = document.body.getElementsByTagName('button');for(var i = 0;i < btn.length;i++){if(btn[i].getAttribute('sc')) {btn[i].setAttribute('mid', hash(btn[i].id));btn[i].onmousedown = function() {toGetForbiddenFormulaFIds();};}}}</script>

欢迎浏览魔客吧提供的 ASP智能搜索的实现信息，若本站中的信息侵犯了您的权益，请与本站管理员联系

Copyright @ 2010-2015 魔客吧版权所有蜀ICP备09014119号川公网安备51050202000165号 <script type="text/javascript" src="http://tcss.qq.com/ping.js?v=1VERHASH" charset="utf-8"></script><script type="text/javascript" reload="1">pgvMain({"discuzParams":{"r2":"5238379","ui":0,"rt":"portal","pn":1,"qq":"000"},"extraParams":""});</script>

积分 0, 距离下一级还需积分 <script type="text/javascript">_attachEvent(window, 'scroll', function(){showTopLink();});</script><script>(function(){ var bp = document.createElement('script'); var curProtocol = window.location.protocol.split(':')[0]; if (curProtocol === 'https'){ bp.src = 'https://zz.bdstatic.com/linksubmit/push.js'; } else{ bp.src = 'http://push.zhanzhang.baidu.com/push.js'; } var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(bp, s);})();</script> <script type="text/javascript"> var tipsinfo = '5238379|X2.5|0.6||0||0|7|1526822183|ba506a51334b9556c578a4d8be1da06d|2'; </script> <script src="http://discuz.gtimg.cn/cloud/scripts/discuz_tips.js?v=1" type="text/javascript" charset="UTF-8"></script><script type="text/javascript" src="https://idm-su.baidu.com/su.js"></script>

相关热词搜索： ASP智能搜索的实现

上一篇：简单分页函数一常用
下一篇：pjblog2的参数第1/2页

ASP智能搜索的实现 类别：MsSql数据库 作者：码皇 来源：互联网 点击：

最新评论

ASP智能搜索的实现
类别：MsSql数据库作者：码皇来源：互联网点击：