Jetzt habe ich vor, das Berichtssystem, das ich in meinem zweiten Jahr für mein Unternehmen erstellt habe, neu zu modifizieren und zu optimieren. Um objektorientiert zu arbeiten, sind Klassen erforderlich.
Kopieren Sie den Code wie folgt:<%
class MyClass
Dim var 'Öffentliche Variablen müssen Dim
Private var2 verwenden' Private Variablen erfordern kein
Sub sub1
Response.write var2
End Sub
Private Sub sub2
Response.write var
End Sub
Sub SetVar(v)
var2= v
End Sub
Endklasse
Set cls = new MyClass'Um ein Objekt zu generieren, verwenden Sie set
cls.SetVar(asd)
cls.var = 1
cls.sub1‘ verfügt über eine starke Kapselung und weist nicht darauf hin, dass keine Berechtigung vorliegt. Es wird direkt angezeigt, dass Attribute oder Methoden nicht unterstützt werden
%>