Agora pretendo modificar e otimizar o sistema de relatórios que construí para minha empresa no segundo ano. Ele usa ASP. Para usar orientado a objetos, você precisa de classes.
Copie o código da seguinte forma:<%
class MyClass
Dim var 'Variáveis públicas devem usar Dim
Private var2' Variáveis privadas não requerem
Sub sub1
resposta.write var2
End Sub
Private Sub sub2
resposta.write var
End Sub
Sub SetVar(v)
var2= v
End Sub
end class
Set cls = new MyClass'Para gerar um objeto, use set
cls.SetVar(asd)
cls.var = 1
cls.sub1' possui encapsulamento forte e não avisará que não há permissão. Ele dirá diretamente que atributos ou métodos não são suportados
%>.