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