Empfohlen: DateiSystemObject Beispielcode In dem in diesem Abschnitt beschriebenen Beispielcode werden Beispiele im realen Leben bereitgestellt, um viele der im Dateisystem-System-Objektmuster verfügbaren Funktionen zu veranschaulichen. Dieser Code zeigt alle Funktionen, wie Objektmuster zusammen verwendet werden und wie sie effektiv in Ihrem eigenen Code verwendet werden können
Erstellen Sie zunächst eine Zugriffsdatenbank. In der Bibliothek befindet sich eine Urlindex -Tabelle, in der die Felder der URL- und Schlüsselwörter wie folgt indiziert sind:
| Das Folgende ist der zitierte Inhalt: URL -Text (Index: mit (ohne Duplikation)) Titeltext Beschreibung Text Zusammenfassungstext Schlüsselwörter Text (Index: mit (ohne Duplikation)) |
Programmdatei doQuery.asp, Code:
| Das Folgende ist der zitierte Inhalt: <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> |
Teilen: So erstellen Sie eine Anmeldungsüberprüfungsseite Benutzeranmeldungsüberprüfungsskript, chkpwd.asp. Folgendes ist der referenzierte Inhalt: % '========= Benutzeranmeldung Überprüfungskript ======' Wenn das übergebene Objekt noch nicht definiert ist, ist es als falsch definiert, und zeigt an, dass es keine gibt, dass es kein