Tout d'abord, la classe ASP est composée d'événements et de méthodes (ce sont des membres de la catégorie de composition).
Dans le bloc de classe, les membres sont déclarés par la déclaration correspondante en tant que private (membres privés, ne peuvent être appelés que dans la classe) ou le public (les membres publics, peuvent être appelés à l'intérieur et à l'extérieur de la classe). Le déclaré comme privé ne sera visible que dans le bloc de classe. Il est déclaré que le public est non seulement visible à l'intérieur du bloc de classe, mais également visible par du code autre que les blocs de classe. La valeur par défaut est un public qui n'a pas utilisé privé ou public pour être clairement énoncé. Le processus d'être déclaré dans le bloc de classe en tant que public deviendra une méthode de classe. Les variables publiques deviendront les attributs de la classe, ainsi que les attributs de la propriété GET, LET et la propriété. Les attributs et méthodes par défaut de la classe sont spécifiés dans les mots clés par défaut dans leur instruction.
Veuillez regarder la partie ci-dessus patiemment, regardons un exemple ci-dessous:
| Ce qui suit est le fragment de code: <% '// ----------------------------------------------- ---------------------------------------------- ---- ----------------- // Classe myclass '// ---- Déclaration (Déclaration est de définition) Les variables internes (privées [privées]) de la classe MyClass Strathor privé Straversion privée Strexample privé '// ----------------------------------------------- -------------------------------------------------- -------------------------------------------------- --- --------------- // '// ---- class_initialize () est un événement d'initialisation de la classe. l'écran dans le membre. Private Sub class_Initialize () strathor = "Coldstone" stravition = "1.0" Réponse.WRITE "<br> MyClass a commencé <br>" "" Sub-Sub '// ---- class_terminate () est un événement final de la classe. La classe est terminée. Private Sub class_termiate () Response.Write "<br> MyClass est sur <br>" "" Sub-Sub '// ----------------------------------------------- -------------------------------------------------- ------------------------------ ---------------- // '// ---- Cette méthode renvoie des informations sur le droit d'auteur Public Sub Information () () Response.write "<br> codage par <a href = 'Mailto: [email protected]'> Coldstone </a> @ <a href = 'http: //www.flash8.net'>>. <br> " Sub-Sub '// ----------------------------------------------- -------------------------------------------------- -------------------------------------------- ------ ---------- // '// ---- L'attribut de la classe fixe, cet attribut est de permettre aux utilisateurs Propriété publique Let SetExapmle (Byval Strvar) strexapmle = strvar Propriété finale '// ----------------------------------------------- -------------------------------------------------- -------------------------------------------- ------ ---------- // '// ---- Définir les attributs de la classe, cet attribut doit renvoyer un numéro de version Propriété publique Obtenez la version Version = strursion Propriété finale '// ---- Définissez les attributs de la classe, cet attribut est le numéro d'auteur renvoyé à cette classe Propriété publique Get Author Auteur = strathor Propriété finale '// ---- Définir les attributs de la classe, cet attribut doit renvoyer un numéro de version La propriété publique obtient un exapmle Exapmle = strexapmle Propriété finale Classe finale %> <% '// ------- Ceci est un exemple d'utilisation de cette classe Dim Onenew-Class Set OneNewClass = new MyClass Response.Write "Auteur:" & onenewclass.Author & "<br>" Response.Write "Version:" & onenewclass.version & "<br>" Onenewclass.sexapmle = "Ceci est un exemple simple" Response.Write "User Custom:" & onenewclass.exapmle & "<br>" Onenewclass.information Set OneNewClass = Rien %> |