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