用ASP实现搜索引擎的功能是一件很方便的事可是如何实现类似的智能搜索呢？比如当在搜索条件框内输入“中国人民”时自动从中提取“中国”“人民”等关键字并在数据库内进行搜索看完本文后你就可以发现这个功能实现起来竟然是如此的简单
第一步我们要建立一个名为db_samplemdb的数据库（本文以Access数据库为例）并在其中建立表T_Sample表 T_Sample包括如下字段
ID 自动编号
U_Name 文本
U_Info 备注
第二步我们开始设计搜索页面Searchasp该页面包括一个表单（Frm_Search）表单内包括一个文本框和一个提交按钮并将表单的method属性设为“get” action属性设为“Searchasp"即提交给网页自身代码如下
以下是代码片段
＜! Searchasp ＞
＜form name="frm_Search" method="get" action="Searchasp"＞
请输入关键字
＜input type="text" name="key" size=""＞
＜input type="submit" value="搜索"＞
＜/form＞
下面就进入了实现智能搜索的关键部分
首先建立数据库连接在Searchasp的开始处加入如下代码
以下是代码片段
＜%
Dim strProviderCNN
strProvider="Provider=MicrosoftJetOLEDB;Data Source="
strProvider=strProvider & ServerMapPath("") & "datadb_Samplemdb" 假设数据库存放在主页根目录下的data目录下
Set CNN = ServerCreateObject("ADODBconnection")
CNNOpen strProvider 打开数据库连接
%＞
接下来判断 ASP页所接收到的数据并在数据库中进行搜索
以下是代码片段
＜font color="#FF"＞未找到任何结果！！！＜/font＞
＜%
Else
%＞
搜索名称为“＜font color="#FF"＞＜%= S_Key %＞＜/font＞”的项共找到 ＜font color="#FF"＞＜%= RSTRecordCount %＞＜/font＞ 项＜p＞
＜%
While Not RSTEOF 遍历整个记录集显示搜索到的信息并设置链接
%＞
＜! 此处可设为你所需要的链接目标 ＞
＜font style="font: pt 宋体"＞＜a href="infoasp?ID=＜%= RST("ID") %＞" target="_blank"＞＜%= RST("U_Name") %＞＜/a＞＜/font＞
＜! 显示部分详细内容 ＞
＜font style="font: pt 宋体"＞＜%= Left(RST("U_Info")) %＞＜/font＞＜p＞
＜%
RSTMoveNext
Wend
RSTClose
Set RST=Nothing
End If
End If
%＞
在上面的代码中有一个自定义函数 AutoKey 该函数是实现智能搜索的核心所在代码如下
以下是代码片段
＜%
Function AutoKey(strKey)
CONST lngSubKey=
Dim lngLenKey strNew strNew i strSubKey
’检测字符串的合法性若不合法则转到出错页出错页你可以根据需要进行设定
if InStr(strKey"=")＜＞ or InStr(strKey"`")＜＞ or InStr(strKey"")＜＞ or InStr(strKey" ")＜＞ or InStr(strKey"")＜＞ or InStr(strKey"")＜＞ or InStr(strKeychr())＜＞ or InStr(strKey"")＜＞ or InStr(strKey"")＜＞ or InStr(strKey"＜")＜＞ or InStr(strKey"＞")＜＞ then
ResponseRedirect "errorhtm"
End If
lngLenKey=Len(strKey)
Select Case lngLenKey
Case 若为空串转到出错页
ResponseRedirect "errorhtm"
Case 若长度为则不设任何值
strNew=""
strNew=""
’Case Else 若长度大于则从字符串首字符开始循环取长度为的子字符串作为查询条件
For i= To lngLenKey(lngSubKey)
strSubKey=Mid(strKeyilngSubKey)
strNew=strNew & " or U_Name like %" & strSubKey & "%"
strNew=strNew & " or U_Info like %" & strSubKey & "%"
Next
End Select
’得到完整的SQL语句
AutoKey="Select * from T_Sample where U_Name like %" & strKey & "% or U_Info like %" & strKey & "%" & strNew & strNew
End Function
%＞
要实现智能搜索其核心就是将搜索关键字进行自动分组在此处我们使用了循环取长度为的子串的方法为什么不将子串长度定为或其他呢？这是因为若子串长度小于即为时会失去将关键字分组的功能而若子串长度大于则会丢失一些词组大家可以将 CONST lngSubKey=改为其他数字试一试孰优孰劣自见分晓
最后别忘了将数据连接关闭以释放资源
以下是代码片段
＜%
CNNClose
Set CNN=Nothing
%＞
至此这个
