Je prévois maintenant de re-modifier et d'optimiser le système de rapports que j'ai construit pour mon entreprise au cours de ma deuxième année. Il utilise ASP. Pour utiliser l'orientation objet, vous avez besoin de classes. Heureusement, VBS le prend en charge.
Copiez le code comme suit :<%
class MyClass
Dim var 'Les variables publiques doivent utiliser Dim
Private var2' Les variables privées ne nécessitent pas
de Sub sub1
réponse.write var2
End Sub
Private Sub sub2
réponse.write var
End Sub
Sub SetVar(v)
var2= v
End Sub
end class
Set cls = new MyClass'Pour générer un objet, utilisez set
cls.SetVar(asd)
cls.var = 1
cls.sub1' a une encapsulation forte et n'indiquera pas qu'il n'y a pas d'autorisation. Il indiquera directement que les attributs ou les méthodes ne sont pas pris en charge
%>.