用途:文章表内文章关键字查询
查询格式:百度google百度好还是google好百度＋google（也可不输入条件全部查询）
<>
<%
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
下面的自己写
【比较不错的asp单表单字段多条件查询】相关文章：
★ ASP语法注释
★ 不用模板，只用ASP+FSO生成静态HTML页的一个方法
★ 对象标记具有无效的 'MSWC.MyInfo' ProgID