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