实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CLASS!

r1 & " " &_
.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
Call Msgbox("启动按逻辑搜索")
End If
Set objROOT1 = Nothing