比较不错的asp单表单字段多条件查询(2)

        Loop
End IF        


SearshSQL=MySql

end function

Function SqlEncode(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
end function
%>
<%
sql=SearshSQL("article","coments","萝卜＋白菜　狗熊") ＋"order by..(排序)"
Set rs=Server.Createobject("ADODB.RECORDSET")
rs.Open sql,conn,1,1
if not rs.eof then

下面的自己写