<% class MyClass Dim var '公共變量必須使用Dim Private var2'私有變量不需要
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'產(chǎn)生對象用set cls.SetVar("asd") cls.var = 1 cls.sub1'封裝性比較強,不會提示沒有權(quán)限,直接說不支持屬性或方法 %>