asp類的定義和使用方法

ASP中類的定義和使用方法
< % 
'定義一個類
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

'使用MyClass類
Set cls = new MyClass '產生對象用set 
cls.SetVar("asd") 
cls.var = 1 
cls.sub1 '封裝性比較強，不會提示沒有權限，直接說不支持屬性或方法 
% >