newasp中main类(70)

                strTemp = Right(str, Len(str) - InStr(str, start) + 1)
                strTemp = Left(strTemp, InStr(strTemp, last) + Len(last) - 1)
            End Select
        Else
            strTemp = ""
        End If
        CutFixContent = strTemp
    End Function
    Private Function CorrectPattern(ByVal str)
        str = Replace(str, "\", "\\")
        str = Replace(str, "~", "\~")
        str = Replace(str, "!", "\!")
        str = Replace(str, "@", "\@")
        str = Replace(str, "#", "\#")
        str = Replace(str, "%", "\%")
        str = Replace(str, "^", "\^")
        str = Replace(str, "&", "\&")
        str = Replace(str, "*", "\*")
        str = Replace(str, "(", "\(")
        str = Replace(str, ")", "\)")
        str = Replace(str, "-", "\-")
        str = Replace(str, "+", "\+")
        str = Replace(str, "[", "\[")
        str = Replace(str, "]", "\]")
        str = Replace(str, "<", "\<")
        str = Replace(str, ">", "\>")
        str = Replace(str, ".", "\.")
        str = Replace(str, "/", "\/")
        str = Replace(str, "?", "\?")
        str = Replace(str, "=", "\=")