2 年目に会社用に構築したレポート システムを再修正して最適化する予定です。オブジェクト指向を使用するには、幸いにも VBS がサポートされています。
次のようにコードをコピーします。<%
class MyClass
Dim var 'パブリック変数は Dim Private var2 を使用する必要があります
' プライベート変数はSub sub1 の
応答を必要としません
。response.writevar2
End Sub
Private Sub sub2
response.write var
End Sub
Sub SetVar(v)
var2= v
End Sub
終了クラス
Set cls = new MyClass' オブジェクトを生成するには、set
cls.SetVar(asd)
cls.var = 1
を使用します。cls.sub1 は強力なカプセル化を備えており、権限がないことを示すプロンプトは表示されず、属性またはメソッドがサポートされていないことが直接示されます。
%>