结合asp和存储过程做的搜索程序(5)

      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:   关键字搜索                                         */