Tout d'abord, la classe ASP (VBScript) est composée d'événements et de méthodes (ils sont membres d'une classe). et vendre.
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 l'utilisation de la propriété GET, de la propriété LET et de 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 lire la partie bleue à l'intérieur, jetons un coup d'œil à un exemple ci-dessous
<Script Language = VBScript Runat = Server>
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 = Siyuan
Straversion = 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 terminée <br>
Sub-Sub
'// ----------------------------------------------- -------------------------------------------------- ------------------------------ ---------------- //
'// ---- Cette méthode renvoie une information de version
Public Sub Information () ()
Response.Write <br> codage par <a href = 'mailto: [e-mail protégé]'> maxid_zen </a> </ a>.
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
</cript>
<%
'// ------- Ceci est un exemple d'utilisation de cette classe
Dim Onenew-Class
Set OneNewClass = new MyClass
Response.Write Auteur: & onenewClass.Author & <br>
Version Response.Write: & OneNewClass.version & <br>
Onenewclass.setExapMle = Ceci est un exemple de classe simple
Réponse.Write User personnalisé: & onenewclass.exapmle & <br>
Onenewclass.information
Set OneNewClass = Rien
%>