Object-oriented classes _asp class class in ASP

Copy Code code as follows:

<%
Class MyClass
Dim var ' Public variable must use Dim
Private VAR2 ' proprietary variable does not need

Sub sub1
Response.Write Var2
End Sub

Private Sub Sub2
Response.Write var
End Sub

Sub SetVar (v)
Var2=v
End Sub
End Class
Set cls = new MyClass ' produces object with set
Cls. SetVar ("ASD")
Cls.var = 1
Cls.sub1 ' encapsulation is stronger, will not prompt without permissions, directly say does not support properties or methods
%>