用途:文章表内文章关键字查询
查询格式:百度google　　百度好还是google好　百度＋google　（也可不输入条件全部查询）


<!--#includefile="conn.asp"-->
<%
FunctionSearshSQL(Tname,Lname,Str)'Tname-表名　Lname-列名　Str－查询的字符
IfTrim(Str)=""then
MySql="Select*From"&Tname
Else
Str=SqlEncode(Str)'预处理查询字符串
ArrStr=split(Str,"")'用空格分割处理后字符串
Umax=Ubound(ArrStr)'分割后数组上维,确定分割成关键词的个数
IfUmax>0Then'关键词中多个空格的处理,从第2维开始处理
Fori=1toUmax
StrTemp=ArrStr(i)
IfTrim(StrTemp)=""ThenStrTemp="/~~~~~/"'分割成的元素为空用特殊字符代替
Sql=Sql&"Or"&Lname&"like'%"&StrTemp&"%'"
Next
EndIf

MySql="Select*From"&Tname&"where"&Lname&"like'%"&ArrStr(0)&"%'"&Sql

Do
j=InStr(1,MySql,"%/~~~~~/%",1)
Ifj=0Then
ExitDo
EndIf
MySql=Replace(MySql,"Or"&Lname&"like'%/~~~~~/%'","")
Loop
EndIF


SearshSQL=MySql

endfunction

FunctionSqlEncode(Str)'格式化字符串
str=replace(str,"　","")'先把左右的全角空格替换成半角空格
str=trim(str)
str=replace(str,"[","")
str=replace(str,"';","")
str=replace(str,"'","")
str=replace(str,"_","")
str=replace(str,"%","")
str=replace(str,"+","")
str=replace(str,"　","")
sqlencode=str
endfunction
%>
<%
sql=SearshSQL("article","coments","萝卜＋白菜　狗熊")＋"orderby..(排序)"
Setrs=Server.Createobject("ADODB.RECORDSET")
rs.Opensql,conn,1,1
ifnotrs.eofthen

下面的自己写