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 '封装性比较强，不会提示没有权限，直接说不支持属性或方法
% >