Empfohlen: ASP 3.0 Erweiterte Programmierung (38) 8.3.3 Verwenden des Verbindungszustands zum Speichern von Verbindungszeichenfolgen in Anwendungsvariablen ist ein häufiger Trick und ist ebenso effektiv wie die Verwendung einer enthaltenen Datei. Sie können beispielsweise den folgenden Code zur global.asa -Datei hinzufügen: sub application_onstart () strconn = "
Unten finden Sie die Urlindex -Tabelle in der Bibliothek: Die Felder der URL- und Schlüsselwörter wurden jeweils indexiert.
| URL -Text (Index: mit (ohne Duplikation)) Titeltext Beschreibung Text Zusammenfassungstext Schlüsselwörter Text (Index: mit (ohne Duplikation)) |
doQuery.asp
| <html> <kopf> <titels> Einfache Suchmaschine </title> </head> <Body bgcolor =#ffffff marginwidth = 0 marginHeight = 0 Linksmargin = 0 Topmargin = 0> <Formmethode = post action = doQuery.asp? Act = Search> Abfrage: <Eingabe type = text name = queryString> <br> <Eingabe type = value = surven> </Form> </Center> <% dunkler Akt ACT = Anfrage (ACT) if (act = suche) dann QueryString = request.form (queryString) Querywords = split (queryString) Strindent = 'Wenn die Suche leer ist, kehren Sie zurück Wenn queryString = dann Antwort.Redirect (default.asp) Ende wenn Sitzung.Timeout = 2 If isObject (Session (SITESEARCH_CONN)) dann Setzen Sie Conn = Session (SITESEARCH_CONN) Anders Setzen Sie conn = server.createObject (adodb.Connection) Conn.open Driver = {Microsoft Access Treiber (*.mdb)}; dbq = & server.mappath (Datenbank/SiteSearch.mdb) ,, Setzen Sie Session (SiteSearch_Conn) Ende wenn 'Abfrageanweisung sql = select * aus [urlindex] wo 'Suchbeschreibung Feld SQL = SQL & ([Beschreibung] wie ' % & Querywords (0) & %' 'zuerst Für i = lBound (Querywords) 1 bis Ubound (Querywords) Wenn Querywords (i) <> und ucase (Querywords (i)) <> oder und ucase (Querywords (i)) <> und dann Wenn ucase (Querywords (i-1)) = oder dann SQL = SQL & oder [Beschreibung] wie ' % & Querywords (i) & %' Anders SQL = SQL & und [Beschreibung] wie ' % & Querywords (i) & %' Ende wenn Ende wenn Nächste 'Suchen Sie nach Schlüsselwörtern Feld SQL = SQL &) oder ([Schlüsselwörter] wie ' % & Querywords (0) & %' Für i = lBound (Querywords) 1 bis Ubound (Querywords) Wenn Querywords (i) <> und ucase (Querywords (i)) <> oder und ucase (Querywords (i)) <> und dann Wenn ucase (Querywords (i-1)) = oder dann SQL = SQL & oder [Schlüsselwörter] wie ' % & Querywords (i) & %' Anders SQL = SQL & und [Keywords] wie ' % & Querywords (i) & %' Ende wenn Ende wenn Nächste 'Suchen Sie nach Titelfeldern SQL = SQL &) oder ([Titel] wie ' % & Querywords (0) & %' Für i = lBound (Querywords) 1 bis Ubound (Querywords) Wenn Querywords (i) <> und ucase (Querywords (i)) <> oder und ucase (Querywords (i)) <> und dann Wenn ucase (Querywords (i-1)) = oder dann SQL = SQL & oder [Titel] wie ' % & Querywords (i) & %' Anders SQL = SQL & und [Titel] wie ' % & Querywords (i) & %' Ende wenn Ende wenn Nächste 'Suche nach zusammenfassenden Feldern SQL = SQL &) oder ([Zusammenfassung] wie ' % & Querywords (0) & %' Für i = lBound (Querywords) 1 bis Ubound (Querywords) Wenn Querywords (i) <> und ucase (Querywords (i)) <> oder und ucase (Querywords (i)) <> und dann Wenn ucase (Querywords (i-1)) = oder dann SQL = SQL & oder [Zusammenfassung] wie ' % & Querywords (i) & %' Anders SQL = SQL & und [Zusammenfassung] wie ' % & Querywords (i) & %' Ende wenn Ende wenn Nächste SQL = SQL &) '' Setzen Sie rs = server.createObject (adodb.Recordset) Rs.open SQL, Conn, 3, 3 Response.write <br> <b> Sie suchen nach: </b> & queryString Antwort.Write <br> <b> Suche nach Schlüsselwörtern: </b> Für i = lBound (Querywords) bis Ubound (Querywords) Antwort.Write <br> & Strindent & i &: & Querywords (i) Nächste 'Drucken Sie die SQL -Zeichenfolge aus Response.write <br> <b> SQL Anweisung: </b> & sql 'Drucken Sie die Ergebnisse aus Response.write <br> <b> Ergebnis: </b> <ul> Bei der nächsten Fehleraufnahme als nächstes rs.movefirst Tun, während nicht Rs.Eof Response.write <br> & <a href = 'openPage.asp? Indexurl = & rs.fields (URL) .Value &'> & rs.fields (Titel) & </a> - - Antwort.Write Rs.Fields (Beschreibung) & <br> Response.write <font size = 2> url: & rs.fields (url) & </font> Antwort. Rs.Movenext Schleife Response.write </ul> Ende wenn %> </Body> </Html> |
Share: ASP Tipp Beispiel: Über das Programm für Betriebsformulare Das Folgende ist der referenzierte Inhalt: Einfügen von Forminhalten in die Datenbank mit ASP. <% ' - lader.asp -' - Version 1.5.2