Sekarang saya berencana untuk memodifikasi ulang dan mengoptimalkan sistem laporan yang saya buat untuk perusahaan saya di tahun kedua saya. Sistem ini menggunakan ASP. Untuk menggunakan berorientasi objek, Anda memerlukan kelas.
Salin kode sebagai berikut:<%
class MyClass
Dim var 'Variabel publik harus menggunakan Dim
Private var2' Variabel privat tidak memerlukan
Sub sub1
respon.write var2
End Sub
Private Sub sub2
respon.write var
End Sub
Sub SetVar(v)
var2= v
Akhir Sub
akhir kelas
Set cls = new MyClass'Untuk menghasilkan objek, gunakan set
cls.SetVar(asd)
cls.var = 1
cls.sub1' memiliki enkapsulasi yang kuat dan tidak akan menanyakan bahwa tidak ada izin. Ia akan langsung mengatakan bahwa atribut atau metode tidak didukung
%>