如何使ASP实现搜索关键字高亮(2)_ASP教程

推荐：解析ASP检查网站链接是否正常的函数
% FunctionurlChk(sUrl) onerrorresumenext SetxmlHttp=Server.CreateObject(Microsoft.XMLHTTP) xmlHttp.openGET,sUrl,false xmlHttp.send ifxmlHttp.Status200then urlChk=false else urlChk=true endif EndFunction sUrl=http://www.code-123.com ifu

    在上面的代码中，有一个自定义函数 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 %>

    至此，这个智能搜索引擎已经完成了。你还可以将其继续完善，比如添加分页、突出显示等功能。

分享：ASP教程之asp制作常见flash新闻图片轮换代码
这是一个正常的网页文件 html head metahttp-equiv=Content-Typecontent=text/html;charset=gb2312/ title 新闻图片轮换 /title /head body !--#Includefile=diaoyong.asp-- /body /html 任何网页只要调用下面这个文件（diaoyong.asp）就可以了，所用f