ASP中的面向?qū)ο箢?/h1>
更新時間:2008年11月22日 19:10:28 作者:
大二給公司做的報表系統(tǒng)現(xiàn)在我打算重新修改優(yōu)化一下,用的是ASP,用面向?qū)ο缶偷糜蓄?,還好VBS 支持
復(fù)制代碼 代碼如下:
<%
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'封裝性比較強(qiáng),不會提示沒有權(quán)限,直接說不支持屬性或方法
%>
相關(guān)文章
最新評論
復(fù)制代碼 代碼如下:
<%
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'封裝性比較強(qiáng),不會提示沒有權(quán)限,直接說不支持屬性或方法
%>