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

            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))

               '将整个字符串按引号分隔成三段