结合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