Empfohlen: Einige ASP -Codes, die es wert sind, gesammelt zu werden Einige ASP -Codes, die es wert sind, einige ASP -Codes zu sammeln, die es wert sind
Um ordnungsgemäß verwenden zu können, müssen sie in eine virtuelle Anwendung auf dem Server platziert werden, und die bereitgestellte globale.aa -Datei muss im Stammverzeichnis der Anwendung platziert werden. Der einfachste Weg ist es, die global.asa -Datei in das Stammverzeichnis der Standardwebsite (standardmäßig C:/inetpub/wwwroot) zu stecken.
Benennen Sie jede vorhandene global.asa -Datei um, um die Datei später wiederherzustellen.
1. Zeigen Sie den Inhalt der Anwendungssammlung an
Das ASPCounter -Objekt ist ein Mitglied der staticObjects -Sammlung (definiert durch das Element <objekt>), aber der Rest (vom Server eingerichtet.CreateObject) sind Mitglieder der Inhaltsersammlung.
Sie können die Werte in diesen Sammlungen mit der global.asa -Beispiel -Webseite sehen, die zuvor gesehen wurde:
Das Folgende ist der zitierte Inhalt: ＜!- Erklären Sie die Instanz der ASPCounter-Komponente mit Anwendungs-Level-Bereich //-＞ ＜ Objekt -ID = ASPCounter Runat = Server Scope = Applicatoin Progid = mswc.counter ＞ ＜/Objekt ＞ ... ... ＜ script language = vbScript Runat = Server ＞ Sub application_onstart () 'Erstellen Sie eine Instanz einer ADO-Verbindung mit Anwendungsebene auf Bewerbungsebene Setzen Sie die Anwendung (adoconnection) = server.createObject (adodb.Connection) Dim VarArray (3) 'Erstellen Sie ein Variante -Array und füllen Sie es vararray (0) = Dies ist a VarArray (1) = Variante -Array varArray (2) = in der gespeichert in der VarArray (3) = Anwendungsobjekt Anwendung (variante_array) = vararray 'Speichern Sie es in der Anwendung Anwendung (start_time) = cstr (jetzt) 'Speichern Sie das Datum/die Uhrzeit als Zeichenfolge Anwendung (Visit_Count) = 0 'Setzen Sie die Zählervariable auf Null Ende sub ... ... ＜/script ＞ |
(1) Code zum Durchqueren der Inhaltskollektion
Um die Inhaltskollektion zu durchqueren, kann für jede ... nächste Struktur verwendet werden. Jedes Element im Satz kann eine einfache Variable, ein Variantenarray oder eine Referenz auf ein Objekt sein. Da für jeden Wertstyp eine unterschiedliche Verarbeitung erforderlich ist, muss jeder Typ überprüft werden, um seinen Typ zu bestimmen.
Diese Arbeit kann mit der Vartype -Funktion in VBScript erfolgen. Hier werden ISObject und Isarray -Funktionen stattdessen verwendet:
Das Folgende ist der zitierte Inhalt: Für jedes Objitem in application.Contents Wenn isObject (application.Contents (objitem)) dann Antwort.Write -Objektreferenz: '& Objitem &' Elseif isarray (application.contents (objitem)) dann Antwort.Write Array: '& Objitem &' Inhalt sind: Vararray = application.Contents (objitem) 'Hinweis: Das Folgende funktioniert nur mit einem eindimensionalen Array Für Intloop = 0 bis Ubound (Vararray) Antwort.Write Index (& intloop &) = & _ Vararray (intloop) & Nächste Anders Antwort.Write Variable: '& Objitem &' = _ & Application.Contents (objitem) & Ende wenn Nächste |
Beachten Sie, wie das Programm das Array aus dem Anwendungsobjekt abruft. Weisen Sie es einer lokalen Variablen mit der folgenden Anweisung zu:
vararray = application.Contents (objitem)
Verwenden Sie die Ubound -Funktion, um die Größe des Arrays (Anzahl der Elemente) herauszufinden, und dieser Wert kann als Beendungsbedingung des Traverses verwendet werden:
Für Intloop = 0 Ubound (Vararray)
Dieses Beispiel ist ein eindimensionales Array und zeigt nur den Inhalt eines solchen Arrays an. Der Code kann nach Bedarf bearbeitet werden, um mehrdimensionale Arrays zu verarbeiten, beispielsweise:
Das Folgende ist der zitierte Inhalt: Für Intloop = 0 bis Ubound (Vararray) Intnumberofdimensions = Ubound (Vararray, 1) Für intDimension = 0 bis intnumberofdimensions Antwort.Write Index (& intloop &) = _ & vararray (intloop, intDimension) Nächste Antwort.Write Nächste |
(2) Code, um die staticObjects -Sammlung zu durchqueren
Die staticObjects -Sammlung enthält alle Objektreferenzen, die mithilfe von <objekt> Elementen in global.asa deklariert wurden. Da jeder Eintrag eine Objektvariable ist, können Sie einen einfacheren Code verwenden, um dieses Array zu durchqueren. Wir geben den Namen des Objekts aus (ursprüngliche Definition im ID -Attribut):
Das Folgende ist der zitierte Inhalt: Für jedes Objitem in application.staticObjects Wenn isObject (application.staticObjects (objitem)) dann Antwort.Write ＜ Objekt ＞ Element: ID = '& Objitem &' Ende wenn Nächste |
Aktien: Gemeinsame Syntax von 11 Datenbanken in der ASP -Programmierung In diesem Artikel wird hauptsächlich die gemeinsame Syntax für ASP -Verbindungen in 11 Datenbanken vorgestellt. Weitere Informationen finden Sie unter Folgendes: 1. DSN-LEST-Verbindungsmethode der Zugriffsdatenbank: Folgendes ist der referenzierte Inhalt: Setzen Sie adocon = server.createObject (adodb.Connection) adoconn.opendriver = {Microsoft Access-Treiber (*. Mdb)}; Dbq = _ server.mappath
2 Seiten in der vorherigen Seite der vorherigen Seite 12 nächste Seite