<%
If Request.Form("submit")<>"" Then
    Dim database,conn,connstr
    database = "example.mdb"            
    Set conn=server.createobject("ADODB.Connection")        connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)
    conn.Open connstr                        keywords = Request.Form("key")                    If Trim(keywords) = "" Then
    　　Response.Write "<script>alert('请输入查询搜索关　　　　　　　　　　　　　　　　　　　　　　　　字！');history.back();</script>"
    Response.End
    End If
    keywords = Replace(keywords,"，"," ")                 keywords = Replace(keywords,","," ")            
    keywords = Trim(keywords)                    sql = ""                         
    keywordarray = Split(keywords)                    max = UBound(keywordarray)                    If max = 0　 Then                         　　sql = sql&"content like '%"&keywordarray(0)&"%'"'
　　　　　Else                        　　　　　　　　　For i = 0 to max                     　　　　If i = 0 Then                        　　　　　　sql = sql&"(content like '%"&keywordarray(i)&"%' and "
    　　　　ElseIf i = max Then                        sql = sql&" content like '%"&keywordarray(i)&"%')"
    　　　　Else                            sql = sql&" content like '%"&keywordarray(i)&"%' and "
    　　　　End If
    　　　Next
    End If
    Set rs = Server.CreateObject("ADODB.RecordSet")            sql = "Select * from example where "&sql&""
    rs.Open sql,conn,1,3                        If rs.EOF and rs.BOF Then                    　　Response.Write("<script>alert('没有包含关键字的记录')　　　　　　　　　</script>")
        Response.End
    Else                                                        Do While Not rs.EOF                    id = rs("id")
%>
    <%=rs("id")%>&nbsp;&nbsp;<%=rs("content")%>
    <br>
<%
　　　　rs.MoveNext
　　　　Loop
    End If
End If
%>


上述代码运行后　不能显示查询结果。不知道是哪里出错了