CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章结合asp和存储过程做的搜索程序由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

比较复杂，可以支持多种逻辑符，包括 + - and or 空格等，并且根据需要随便增加。可以根据条件选择在那个表中搜索，对速度也做了优化，可以说是很快的。当然因为是以前写的，存在不少毛病。存储过程中用到几乎所有sql server的特性，如光标（记录集分页）等。好了，不吹了，自己看程序吧。  asp 函数  。

复制代码代码如下

  function AnalyseKeyword(a_strSource)        dim m_strDest , m_intLoop         dim m_intBeginPos , m_intEndPos        dim m_strHead , m_strMiddle , m_strTail        m_strDest = a_strSource        '------------------------------处理空格------------------------------------------------------        '首先去掉头尾空格        m_strDest = ltrim(rtrim(m_strDest))        '将& , " and " 等替换成 +、 -、空格        m_strDest = replace(m_strDest , "&" , "+")        m_strDest = replace(m_strDest , " AND " , "+")        m_strDest = replace(m_strDest , " OR " , chr(32))        m_strDest = replace(m_strDest , " NOT " , "-")          '初始化变量，以使下面的循环进行        m_intBeginPos = 1        do while m_intBeginPos <> 0           m_intBeginPos = instr(m_strDest ,chr(32))           if m_intBeginPos <> 0 then               '如果找到空格              m_strHead = rtrim(ltrim(left ( m_strDest , m_intBeginPos )))              call print("[AnalyseKeyword()]:处理空格m_strHead = " + m_strHead)               m_strTail = rtrim(ltrim(right (m_strDest , len(m_strDest) - m_intBeginPos)))              call print("[AnalyseKeyword()]:处理空格m_strTail = " + m_strTail)               m_strDest = m_strHead + "*" + m_strTail           else              exit do           end if        loop                        m_strDest = replace (m_strDest , "*" , chr(32))            call print("[AnalyseKeyword()]:处理空格完毕后m_strDest = " + m_strDest)         '-------------------------------空格处理完毕-------------------------------------------------        '-------------------处理单双引号-----------------------------------------------------        '首先将单引号替换为双引号        m_strDest = replace ( m_strDest , chr(39) , chr(34))              '置一个初值以使循环进行        m_intBeginPos = 1        m_intEndPos   =1        m_strHead = ""        m_strTail = ""        do while m_intBeginPos <> 0 and m_intEndPos <> 0           '如果发现双引号，则记下开始位置,查找下一个双引号           m_intBeginPos = instr(m_strDest , chr(34))           if m_intBeginPos <> 0 then          '如果找到第一个引号              call print("[AnalyseKeyword()]:第一个引号出现的位置：" + cstr(m_intBeginPos))              m_intEndPos = instr(m_intBeginPos + 1 , m_strDest ,chr(34))              if m_intEndPos <> 0 then         '如果找到第二个引号                 call print("[AnalyseKeyword()]:第二个引号出现的位置：" + cstr(m_intEndPos))                 '将整个字符串按引号分隔成三段                 call print ("[AnalyseKeyword()]:处理引号m_strDest = " + m_strDest)                 m_strHead   = left(m_strDest , m_intBeginPos - 1)                 call print ("[AnalyseKeyword()]:处理引号m_strHead = " + m_strHead)                 m_strMiddle = mid(m_strDest , m_intBeginPos + 1 , m_intEndPos - m_intBeginPos - 1)                 call print ("[AnalyseKeyword()]:处理引号m_strMiddle = " + m_strMiddle)                 m_strTail   = right(m_strDest , len(m_strDest) - m_intEndPos)                  call print ("[AnalyseKeyword()]:m_strTail = " + m_strTail)                 '如果在引号中有+号则作为字符处理，暂时替换成其他字符                 m_strMiddle = replace(m_strMiddle , "+" , "|")                 m_strDest = m_strHead + replace(rtrim(ltrim(m_strMiddle)) , chr(32) , "#") + m_strTail                                else                 exit do                end if           else              exit do              end if              loop        m_strDest = replace(m_strDest , chr(34) , "+")        call print ("[AnalyseKeyword()]:处理引号完毕后m_strDest = " + m_strDest)        '-------------------------------引号处理完毕-------------------------------------------------        '-------------------------------处理多个加号及加号两边的空格问题-----------------------------                '处理多个加号的问题，遇到多个加号则认为是字符串，而不是逻辑符        m_strDest = replace (m_strDest , "+++" ,"|||")        m_strDest = replace (m_strDest , "++" , "||")        call print ("[AnalyseKeyword()]:处理多个减号完毕后m_strDest = '" + m_strDest + "'")        '处理加号两边的空格        m_strDest = replace(m_strDest , " +" , "+")        m_strDest = replace(m_strDest , "+ " , "+")        m_strDest = replace(m_strDest , " + " , "+")        call print ("[AnalyseKeyword()]:处理减号两边的空格完毕后m_strDest = '" + m_strDest + "'")        '-------------------------------处理加号完毕-----------------------------        '-------------------------------处理多个减号及减号两边的空格问题-----------------------------                '处理多个减号的问题，遇到多个减号则认为是字符串，而不是逻辑符        m_strDest = replace (m_strDest , "---" ,"~~~")        m_strDest = replace (m_strDest , "--" , "~~")        call print ("[AnalyseKeyword()]:处理多个减号完毕后m_strDest = '" + m_strDest + "'")        '处理减号两边的空格        m_strDest = replace(m_strDest , " -" , "-")        m_strDest = replace(m_strDest , "- " , "-")        m_strDest = replace(m_strDest , " - " , "-")        call print ("[AnalyseKeyword()]:处理加号两边的空格完毕后m_strDest = '" + m_strDest + "'")        '-------------------------------处理减号完毕-----------------------------        '------------------------------处理字符串两头的加减号问题-----------------        if len(m_strDest) >= 3 then           m_strHead = left(m_strDest , 1)           m_strMiddle = mid(m_strDest , 2 , len(m_strDest) - 2)           m_strTail = right(m_strDest , 1)           if m_strHead = "+" or m_strHead = "-" then              m_strHead = ""           end if           if m_strTail = "+" or m_strTail = "-" then              m_strTail = ""             end if           m_strDest = m_strHead + m_strMiddle + m_strTail        end if           '----------------------------处理完毕-------------------------------------        m_strDest = replace(m_strDest , "--" , "~~")        m_strDest = replace(m_strDest , "++" , "||")        m_strDest = replace(m_strDest , chr(32) , "@")        AnalyseKeyword = m_strDest        call print ("[AnalyseKeyword()]:全部处理完毕后m_strDest = '" + m_strDest + "'")     end function       %>    存储过程  /*********************************************************************/  /* proc name :    Up_ParseWordSearch                                 */  /*                                                                   */  /* Description:   关键字搜索                                         */  /*                                                                   */  /* parameters:    @a_strCategoryID   分类id                          */  /*                @a_intPosition     调用的位置                      */  /*                @a_strParseWord    搜索关键字                      */  /*                @a_intRowCount     限定最多取得记录数              */  /*                                                                   */  /* date:          2000/6/28                                          */  /*                                                                   */  /* author:        Liuyunpeng                                         */  /*                                                                   */  /* history:                                                          */  /*********************************************************************/  if exists (select * from sysobjects where id = object_id("up_ParseWordSearch"))     drop proc up_ParseWordSearch  go  create proc up_ParseWordSearch @a_strParseword varchar(255) ,                                 @a_strCategoryID varchar(255) ,                                 @a_intPosition   tinyint  ,                                 @a_intRowCount   int     as        declare @m_strSqlCondition  varchar(255)       --Sql语句的条件部分        declare @m_strSqlSelect     varchar(255)       --Sql语句的选择部分        declare @m_strSqlCategory   varchar(100)       --sql语句的分类部分        /*根据调用位置决定sql的选择部分*/        select @m_strSqlSelect                = case                      when @a_intPosition = 4 then                  --商品库                           "select ProductID , 'Title' = ProductName , 'Description' = left(Description , 100) "                          + " from Product where "                      when @a_intPosition = 5 then                  --商业机会库                           "select ID , Title ,'Description' = left(convert(varchar,content) , 100) "                         + " from BusinessChance where "                     when @a_intPosition = 6 then                   --公司库                           "select CompanyID , 'Title' = CompanyName , 'Description' =left(Description , 100) "                         + " from Company where "                 end        /*根据分类ID决定sql的分类部分*/        select @m_strSqlCategory                = case                     when @a_strCategoryID <> "0" then " CategoryID like '" + @a_strCategoryID + "%' and "                     else ""                 end        /*根据调用位置决定sql的条件部分*/        select @m_strSqlCondition               = case                     when @a_intPosition = 4                   --商品                          then  "(ProductName like '%" + @a_strParseWord + "%'"                              + " or Description like '%" + @a_strParseWord + "%'"                              + " or ProducerName like '%" + @a_strParseWord + "%') "                     when @a_intPosition = 5                   --商业机会                            then  "(Title like '%" + @a_strParseWord + "%'"                              + " or Keyword like '%" + @a_strParseWord + "%') "                     when @a_intPosition = 6                          then  "(CompanyName like '%" + @a_strParseWord + "%'"                              + " or Description  '%" + @a_strParseWord + "%') "                 end                 set rowcount @a_intRowCount                              exec (@m_strSqlSelect + @m_strSqlCategory + @m_strSqlCondition)        set rowcount 0  go     。

最后此篇关于结合asp和存储过程做的搜索程序的文章就讲到这里了,如果你想了解更多关于结合asp和存储过程做的搜索程序的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。