Baru-baru ini, saya memilah kode ASP/VBScript dan menemukan bahwa kerangka kerja MVC yang diimplementasikan ASP di masa lalu adalah produk yang setengah jadi, dan efisiensi juga menjadi masalah. Namun, saya menemukan bahwa ada beberapa kode yang saya tulis di dalamnya, dan saya merasa bahwa saya bisa membawanya untuk bertemu orang, jadi saya menulis artikel ini hari ini untuk merekamnya.
Dikatakan sebagai ASP, tetapi tidak ada hubungannya dengan VBScript. Bahasa VBScript diwarisi dari Visual Basic. Fleksibilitas sintaks VB tidak lagi memuaskan. Sebagai subset, VBS dapat dibayangkan. Microsoft telah memperkenalkan teknologi canggih seperti refleksi shenma dan introspeksi di .net. Sebagai teknologi yang ditinggalkan, tidak ada harapan bahwa Microsoft dapat memberikan dukungan, sehingga pemrogram yang keras kepala dan konservatif hanya dapat memeras otak mereka untuk meniru dan menerapkan beberapa fungsi serupa.
Yah, saya akui bahwa untuk waktu yang lama saya telah menjadi salah satu sekolah yang keras kepala dan konservatif. Hari ini saya memperkenalkan salah satu fungsi, secara dinamis membuat objek properti, dan objek atribut disebut ini, yaitu, objek yang dibuat secara dinamis hanya berisi properti (properti).
Kode implementasi diposting di bawah ini untuk referensi Anda:
Salinan kode adalah sebagai berikut:
'
'Asp/vbscript generator objek dinamis
'Penulis: Wangye
'Untuk informasi lebih lanjut, silakan kunjungi
'
'Kode ini didistribusikan di bawah lisensi BSD
'
Const property_access_readonly = 1
Const property_access_writeonly = -1
Const property_access_all = 0
Kelas DynamicObject
Private M_OBJProperties
Private m_strname
Private sub class_initialize ()
Set M_OBJProperties = CreateObject ("Scripting.Dictionary")
m_strname = "AnonymousObject"
Akhir sub
Private Sub Class_Terminate ()
Jika tidak isObject (m_objproperties) maka
m_objproperties.removeall
Akhiri jika
Atur m_objproperties = tidak ada
Akhir sub
Sub SetClassName publik (strname)
m_strname = strname
Akhir sub
Sub tambahan publik (kunci, nilai, akses)
m_objproperties.add kunci, array (nilai, akses)
Akhir sub
Sub -setValue publik (kunci, nilai, akses)
Jika m_objproperties.exists (kunci) lalu
m_objproperties.item (key) (0) = nilai
m_objproperties.item (key) (1) = akses
Kalau tidak
Tambahkan Kunci, Nilai, Akses
Akhiri jika
Akhir sub
Fungsi pribadi getReadOnlycode (strkey)
Redup strprivatename, strpublicgetName