实现支持逻辑搜索/单词搜索/词组搜索+支持OR/A(7)

日期：2020-05-13 栏目：程序人生 浏览：次

                check = False
            Else
                With objNode2
                    a1    = .submatches(0)
                    a2    = .submatches(2)
                    a3    = .submatches(4)
                    check = "(" & str & a1 & str1 & ") " & .submatches(1) & " (" & str & a2 & str1 & " " &_
                            .submatches(3) & " " & str & a3 & str1 & ")"
                    intStart = 5
                End With
            End If
        Else
            check = ORAND()
        End If
    End Function

End Class

-------------------------注意-----------------------------
替换好的字符串并不是完整的SQL语句.只是生成SQL语句的WHERE关键字后面的表达式.发送到ASP程序的时候.你可以在前面加上
"select id,标题,name,TableName from SearchAll where "
这样类似的SQL语句
-------------------------VBScript例子-----------------------------
    Dim objROOT1
    Set objROOT1 = new CreateQueryString
    objROOT1.QueryString = strText '====传入要替换的字符串
    objROOT1.strField = "要查询的字段名字" '===如果不设置.默认值是"(标题+文章)"
    strText = objROOT1()  '=========得到替换好的SQL语句
    If (objQueryString.intStart = 4) Then