Теперь я планирую перемодифицировать и оптимизировать систему отчетов, которую я построил для своей компании на втором курсе. Она использует ASP. Чтобы использовать объектно-ориентированную систему, вам нужны классы. К счастью, VBS ее поддерживает.
Скопируйте код следующим образом:<%
class MyClass
Dim var 'Общедоступные переменные должны использовать Dim
Private var2' Частные переменные не требуют
ответаSub sub1.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'Чтобы сгенерировать объект, используйте set
cls.SetVar(asd)
cls.var = 1
cls.sub1' имеет строгую инкапсуляцию и не будет сообщать об отсутствии разрешения. Он прямо скажет, что атрибуты или методы не поддерживаются
%>.