ASP智能搜索的实现(2)

            Set RST=Server.CreateObject("ADODB.RecordSet")
            StrSQL=AutoKey(S_Key)  '此处使用自定义函数 AutoKey()，该函
数为实现智能搜索的核心
            RST.Open StrSQL,CNN,3,2  '得到搜索后的记录

            If RST.BOF And RST.EOF Then
    %>
                <font color="#FF0000">未找到任何结果！！！</font> 
    <%
                Else
    %>
                    搜索名称为“<font color="#FF0000"><%= S_Key %
></font>”的项，共找到 <font color="#FF0000"><%= RST.RecordCount %
></font> 项：<p>
    <%
                    While Not RST.EOF   '遍历整个记录集，显示搜索到的信
息并设置链接
    %>
                        <!-- 此处可设为你所需要的链接目标 -->
                        <font style="font: 12pt 宋体"><a 
href="info.asp?ID=<%= RST("ID") %>" target="_blank"><%= RST("U_Name") 
%></a></font><br>  
                        <!-- 显示部分详细内容 -->
                        <font style="font: 9pt 宋体"><%= Left(RST
("U_Info"),150) %></font><p>  
    <%
                        RST.MoveNext
                    Wend
                    RST.Close