Erstens besteht die ASP -Klasse aus Ereignissen und Methoden (sie sind Mitglieder der Kompositionskategorie).
Im Klassenblock werden die Mitglieder von der entsprechenden Erklärung als private (private Mitglieder, die nur in der Klasse aufgerufen werden) oder in der Klasse (öffentliche Mitglieder) innen und außerhalb der Klasse angerufen werden) deklariert werden. Das deklarierte als privat wird nur im Klassenblock sichtbar. Es wird erklärt, dass die Öffentlichkeit nicht nur im Klassenblock sichtbar ist, sondern auch für Code als Klassenblöcke sichtbar ist. Der Verzug ist öffentlich, der nicht privat oder öffentlich verwendet wurde, um festzustellen. Der Prozess der Deklaration im Klassenblock als Öffentlichkeit wird zu einer Klassenmethode. Öffentliche Variablen werden die Attribute der Klasse sowie die Attribute der Eigenschaft Get, Eigentum und Eigenschaft. Die Standardattribute und -methoden der Klasse sind in den Standard -Schlüsselwörtern in ihrer Anweisung angegeben.
Bitte beobachten Sie das obige Teil geduldig, schauen wir uns ein Beispiel unten an:
| Das Folgende ist das Codefragment: <% '// ------------------------------------------- ------------------------------------------ ----- ------------------ // Klasse Myclass '// ---- Deklaration (Deklaration ist Definition) Die internen (privaten]) Variablen der MyClass-Klasse Privat Strauthor Private Stremsion Privates Strexample '// ------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --- --------------- // '// ---- class_initialize () ist ein Initialisierungsereignis der Klasse. Der Bildschirm im Mitglied. Private sub class_initialize () Strauthor = "Coldstone" Strversion = "1.0" Response.write "<br> Myclass begann <br>" "" Ende sub '// ---- class_terate () ist ein Endveranstalter der Klasse. Klasse ist vorbei Private sub class_terate () Response.write "<br> Myclass ist vorbei <br>" "" Ende sub '// ------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------ ---------------- // '// ---- Diese Methode gibt eine Urheberrechtsinformationen zurück Öffentliche sub Information () () Antwort.Write "<br> Codierung durch <a href = 'mailto: [email protected]'> coldstone </a> @ <a href = 'http: //www.flash8.net'>. <br> " Ende sub '// ------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------- ------------------------------------ ------ ---------- // '// ---- Das Attribut der festen Klasse ist dieses Attribut, um Benutzern zuzulassen Öffentliches Eigentum let setExapmle (Byval Strvar) strexapmle = strvar Beenden Sie Eigentum '// ------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------- ------------------------------------ ------ ---------- // '// ----- Definieren Sie die Attribute der Klasse, dieses Attribut soll eine Versionsnummer zurückgeben Öffentliche Eigenschaft erhalten Version Version = Strversion Beenden Sie Eigentum '// ---- Öffentliches Eigentum bekommen Autor Autor = Strauthor Beenden Sie Eigentum '// ----- Definieren Sie die Attribute der Klasse, dieses Attribut soll eine Versionsnummer zurückgeben Öffentliches Eigentum bekommen Exapmle Exapmle = strexapmle Beenden Sie Eigentum Endklasse %> <% '// ------- Dies ist ein Beispiel für die Verwendung dieser Klasse Dunkelnde OneNewClass Setzen Sie OneNewClass = New Myclass Antwort.Write "Autor:" & OneNewClass.author & "<br>" Antwort.Write "Version:" & OneNewClass.version & "<br>" OneNewClass.setexapmle = "Dies ist ein einfaches Beispiel" Response.write "Benutzer benutzerdefiniert:" & OneNewClass.exapmle & "<br>" OneNewClass.information OneNewClass setzen = nichts %> |