More Good ASP Single Form field multiple conditions Query _ application Skills

Purpose: Article table key word query
Query format: Baidu Google Baidu good or Google good Baidu +google (also can not enter the conditions of all inquiries)


<!--#include file= "conn.asp"-->
<%
Function searshsql (tname,lname,str) ' tname-table name lname-column name str-query characters
If Trim (STR) = "" Then
Mysql= "SELECT * from" &tname
Else
Str=sqlencode (STR) ' preprocessing query string
Arrstr=split (Str, "") ' after the string is separated by a space
Umax=ubound (ARRSTR) ' partition of the upper dimensions of the array to determine the number of keywords divided into
If umax>0 Then ' keywords in the processing of multiple spaces, starting from the 2nd dimension
For I=1 to Umax
STRTEMP=ARRSTR (i)
If Trim (strtemp) = "" "Then strtemp="/~~~~~/"' divided elements into empty special characters instead
Sql=sql & "Or" & Lname & "Like '%" & strtemp & "%"
Next
End If

Mysql= "Select * from" & Tname & "where" & Lname & "Like '%" &arrstr (0) & "%" &sql

Todo
J=instr (1,mysql, "%/~~~~~/%", 1)
If j=0 Then
Exit do
End If
Mysql=replace (MYSQL, "Or" &Lname& "Like '%/~~~~~/% '", "")
Loop
End IF


Searshsql=mysql

End Function

Function Sqlencode (STR) ' format string
Str=replace (str, "", "") "first replace the left and right full-width spaces with a half corner space
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", "radish + cabbage Bear") + "ORDER by". (sort) "
Set rs=server.createobject ("ADODB. RECORDSET ")
Rs. Open sql,conn,1,1
If not rs.eof then

Write the following yourself