下面的代码是直接在页面上的，因为我有抄下来，和页面合并，很难理解。因为这个文件是很久以前写的。现在让自己看不懂~哈哈哈！！！因为电脑的最后准备暂时退出，所以努力学习。我写的就是把代码贴出来哦…
-以后我有时间处理sql语句asp文件拷贝。
根据搜索条件动态生成SQL语句的用户进入vbs文件。
子节目（数字）
昏暗的STR
选择的病例数
案例1
从作者开始搜索
Window.document.all（秀）.innerHTML = str
案例2
逐词搜索
Window.document.all（秀）.innerHTML = str
案例3
根据开始短语搜索
Window.document.all（秀）.innerHTML = str
案例4
根据逻辑开始搜索
Window.document.all（秀）.innerHTML = str
案例5
根据组合逻辑搜索
Window.document.all（秀）.innerHTML = str
最后选择
端子
----------------------------------------------全局变量
昏暗的A7
-------------------------------------------------------
功能checkhaha（哈哈）
文本=替换（修剪（哈哈，搜索值），，
如果文本，那么
警告（抱歉）。请输入搜索关键字
哈哈，搜索。
Haha.search.focus（）
退出功能
最后如果
搜索值=文本
哈哈。要查找的字符串，值= gettext（文字，哈哈）
Haha.submit（）
端功能
函数gettext（文字，哈哈）
暗条
昏暗的研究
昏暗的天空
如果haha.radiobutton.checked然后介绍作者*************************************如果提交
来电秀（1）
gettext =姓名文本
退出功能
最后如果
*********************************************************************
设置注册表= new RegExp
reg.ignorecase =真
Reg，全局=真的
注册表=
RES = reg.test（文本）
如果*********************************************************关键词不包含单词搜索空间
如果不是那么的话
电话节目（2）
gettext =（标题+文章）文本%
退出功能
最后如果
********************************************************************************************
注册模式=砂| SOR
RES = reg.test（文本）
如果水库然后*************************************************检查逻辑表达正确的SQL语句，返回，否则返回false，根据短语搜索
天空=检查（注册表，文本）
如果天空=假然后**************************************如果逻辑是不正确的短语搜索
gettext =娃哈哈（REG、文本）
别人**************************************************提交搜索逻辑
gettext =天空
最后如果
别人****************************************************无或短语搜索关键词
gettext =娃哈哈（REG、文本）
最后如果
端功能
功能娃哈哈（REG，文本）的*****************************************短语搜索
昏暗的后
昏暗的所有
朦胧的喜欢
昏暗的OR
=
所有=
喜欢=或喜欢（标题+文章）
注册表。
集重= reg.execute（文本）
为了每一个我
喜欢我的人
所有=所有我A7
下一个
电话节目（3）
娃哈哈=中（第三，4）
端功能
功能检查（REG2，text2）
昏暗的重
朦胧的我
暗血脑屏障
昏暗的TRU
暗淡的身体
昏暗的RE2
昏暗的有
昏暗的STR
昏暗的str1
昏暗的A1
昏暗的A2
昏暗的A3
昏暗的A4
类似于的标题（文章）
str1 = %。
TRU =真
BBB =真
reg2.asp模式=^ （。+ ）的（和|或）
Re = reg2.test（译文）
reg2.asp模式= S（和|或）的（。+ ）
有= reg2.test（中）
如果你和有那么***********************************如果整个组合逻辑，或SQL语句
^ （REG2。模式=（的 ）（博尔 B | 乐队 B）（ * S）（和|或）（）（ * （的）博尔 B | 乐队 B）（的 ） $）
集RE1 = reg2.execute（中）
如果身体countcheck = false。
退出功能
最后如果
集RE2 =身体（0）
如果2。submatches countcheck = false。
退出功能
最后如果
A1 = re2.submatches（0）
A2 = re2.submatches（2）
A3 = re2.submatches（4）
A4 = re2.submatches（6）
检查= （stra1str1 re2.submatches stra2str1 （1）_）
re2.submatches（3）（stra3str1 re2.submatches（5）stra4str1
电话节目（5）
退出功能
最后如果
没有括号的前面或者SQL语句如果再然后**********************************************
^ （REG2。模式=（的 ）（博尔 B | 乐队 B）（的 ））（和|或）（1）
集RE1 = reg2.execute（中）
如果身体countcheck = false。
退出功能
最后如果
集RE2 =身体（0）
如果2。submatches countcheck = false。
退出功能
最后如果
A1 = re2.submatches（0）
A2 = re2.submatches（2）
A3 = re2.submatches（4）
检查= （STR A1 str1的re2.submatches（1）STR A2 str1 re2.submatches）（3）（STR A3 str1的）
电话节目（5）
退出功能
最后如果
在前面的如果有那么**********************************************没有反SQL语句括号
reg2.asp模式= （1）（和|或）/（（的 ）（博尔 B | 乐队 B）（的 ） $）
集RE1 = reg2.execute（中）
如果身体countcheck = false。
退出功能
最后如果
集RE2 =身体（0）
如果2。submatches countcheck = false。
退出功能
最后如果
A1 = re2.submatches（0）
A2 = re2.submatches（2）
A3 = re2.submatches（4）
检查= （stra1str1 re2.submatches）（1）（stra2str1 re2.submatches（3）stra3str1
电话节目（5）
退出功能
最后如果
昏暗的SSS
昏暗的CCC
昏暗的AAA
SSS =（喜欢（标题+文章）
N1 = 0
reg2.asp模式= （的 ）。
集重= reg2.execute（译文）
昏暗的a143
a143 = re.count-1
如果re.item（a143）= 和或re.item（a143）= 或
检查= false
退出功能
最后如果
为了每一个我
如果真的那么
如果我和或，那么
TRU = false
AAA级
其他的
BBB = false
退出
最后如果
其他的
如果i = 或i 或然后
TRU =真
AAA级I
其他的
BBB = false
退出
最后如果
最后如果
下一个
如果不是BBB的话
检查= false
其他的
检查= AAA
电话节目（4）
最后如果
端功能
