Erstellen Sie zuerst eine Zugriffsdatenbank.
| Das Folgende ist der Referenzinhalt: URL -Text (Index: Es gibt keine Duplikation)) Titeltext Text beschreiben Zusammenfassungstext Schlüsselwörter Text (Index: Dort (keine Duplikation)) |
Programmdatei doQuery.asp, Code:
| Das Folgende ist der Referenzinhalt: <html> <kopf> <titels> Einfache Suchmaschine </title> </head> <Bodybgcolor =#ffffffffffMarginwidth = 0marginHeight = 0 Linksmargin = 0topmargin = 0> <FormMethod = postaction = doQuery.asp? Abfrage: <InputType = TextName = QueryString> <br> <InputType = subledValue = Subjekt> </Form> </Center> <% dimakt ACT = Anfrage (ACT) if (act = suche) dann QueryString = request.form (queryString) Querywords = split (queryString) Strindent = 'Wenn die Suche leer ist, kehren Sie zurück IfQueryString = dann Antwort.Redirect (default.asp) Endif Sitzung.Timeout = 2 IfisObject (Sitzung (sitsearch_conn) dann) dann) SetConn = session (SiteSearch_conn) Anders SetConn = server.createObject (adodb.Connection) Conn.opendriver = {MicrosoftAccessDriver (*. Mdb)}; SetSession (sitsearch_conn) = conn Endif 'Abfrageanweisung sql = select*aus [urlindex] wo 'Suchen Sie das Feld Beschreibung SQL = SQL & ([Beschreibung] wie '%& Querywords (0) &%' zuerst Fei = lBound (Querywords)+1Toubund (Querywords) IfQuerywords (i) <> aanza (Querywords (i)) <> orangefarbene Wörter (i)) Ifucase (Querywords (i-1)) = orthen SQL = SQL & oder [Beschreibung] wie '%& Querywords (i) &%' Anders SQL = SQL & und [Beschreibung] wie '%& Querywords (i) &%' Endif Endif Nächste 'Suchschlüsselwörter Feld SQL = SQL &) oder ([Schlüsselwörter] wie '%& Querywords (0) &%' Fei = lBound (Querywords)+1Toubund (Querywords) IfQuerywords (i) <> aanza (Querywords (i)) <> orangefarbene Wörter (i)) Ifucase (Querywords (i-1)) = orthen SQL = SQL & oder [Schlüsselwörter] wie '%& Querywords (i) &%' Anders SQL = SQL & und [Keywords] wie '%& Querywords (i) &%' Endif Endif Nächste 'Suchtitelfeld SQL = SQL &) oder ([Titel] wie '%& Querywords (0) &%' Fei = lBound (Querywords)+1Toubund (Querywords) IfQuerywords (i) <> aanza (Querywords (i)) <> orangefarbene Wörter (i)) Ifucase (Querywords (i-1)) = orthen SQL = SQL & oder [Titel] wie '%& Querywords (i) &%' Anders SQL = SQL & und [Titel] wie '%& Querywords (i) &%' Endif Endif Nächste 'Suchzusammenfassung Feld SQL = SQL &) oder ([Zusammenfassung] wie '%& Querywords (0) &%' Fei = lBound (Querywords)+1Toubund (Querywords) IfQuerywords (i) <> aanza (Querywords (i)) <> orangefarbene Wörter (i)) Ifucase (Querywords (i-1)) = orthen SQL = SQL & oder [Zusammenfassung] wie '%& Querywords (i) &%' Anders SQL = SQL & und [Zusammenfassung] wie '%& Querywords (i) &%' Endif Endif Nächste SQL = SQL &) '' SetRs = server.createObject (adodb.oldset) Rs.opensql, Conn, 3,3 Response.write <br> <b> Was Sie gesucht haben, ist: </b> & queryString Response.write <br> <b> Suchschlüsselwörter: </b> Fei = lBound (Querywords) toubnsnd (Querywords) Antwort.Write <br> & Strindent & i &: & Querywords (i) Nächste 'PRINTHESQLSTRING Response.write <br> <b> SQL Anweisung: </b> & sql 'Printheresults Response.write <br> <b> Ergebnis: </b> <ul> Onerrersumenext rs.movefired Dowhilenotrs.eof Response.write <br> & <Ahref = 'openPage.asp? Response.writers.fields (Beschreibung) & <br> Response.write <fontSize = 2> URL: & rs.fields (URL) & </font> Antwort.Write <hrsize = 1Width = 200Align = links> Rs.Movenext Schleife Response.write </ul> Endif %> </Body> </Html> |