asp智能搜索的实现--

《asp智能搜索的实现--》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

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

2、文本框和一个提交按钮。并将表单的method属性设为“get”，action属性设为“Search.asp，即提交给网页自身。代码如下：<!--Search.asp--><formname=frm_Searchmethod=getaction=Search.asp>请输入关键字：<inputtype=textname=keysize=10><inputtype=submitvalue=搜索></form>下面，就进入了实现智能搜索的关键部分。首先，建立数据库连接。在Search.asp的开始处加入如下

3、代码：<%DimstrProvider,NstrProvider=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=strProvider=strProviderServer.MapPath()datadb_Sample.mdb'假设数据库存放在主页根目录下的data目录下SetN=Server.CreateObject(ADODB.connection)N.OpenstrProvider'打开数据库连接%>接下来，判断ASP页所接收到的数据，并在数据库中进行搜索。<%DimS_Key,RST,St

4、rSQLS_Key=Trim(Request(key))'得到搜索关键字的值IfS_Key<>thenSetRST=Server.CreateObject(ADODB.RecordSet)StrSQL=AutoKey(S_Key)'此处使用自定义函数AutoKey()，该函数为实现智能搜索的核心RST.OpenStrSQL,N,3,2'得到搜索后的记录IfRST.BOFAndRST.EOFThen%><fontcolor=#FF0000>未找到任何结果！！！</font><%Else%>搜索名称为“<

5、fontcolor=#FF0000><%=S_Key%></font>”的项，共找到<fontcolor=#FF0000><%=RST.RecordCount%></font>项：<p><%oveNextWendRST.CloseSetRST=NothingEndIfEndIf%>在上12下一页>>>>这篇文章来自..，。面的代码中，有一个自定义函数AutoKey，该函数是实现智能搜索的核心所在。代码如下：<%FunctionAutoKey(strKey)CONST

6、lngSubKey=2DimlngLenKey,strNeEndIflngLenKey=Len(strKey)SelectCaselngLenKeyCase0'若为空串，转到出错页Response.Redirecterror.htmCase1'若长度为1，则不设任何值strNep;orU_Namelike'%strSubKey%'strNep;orU_Infolike'%strSubKey%'NextEndSelect'得到完整的SQL语句AutoKey=Select*fromT_Sampleelike'%strKey%'orU_Infolike'%strKe

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

8、。好了，不耽误大家时间了，赶快去试一试