Недавно я разобрался с кодом ASP/VBScript и обнаружил, что внедрение ASP в прошлом была полуфабрикативным продуктом, и эффективность также была проблемой. Тем не менее, я обнаружил, что в нем были некоторые коды, и я чувствовал, что могу взять его на встречу с людьми, поэтому я написал эту статью сегодня, чтобы записать ее.
Говорят, что это ASP, но это не имеет ничего общего с VBScript. Язык VBScript унаследован от Visual Basic. Гибкость синтаксиса VB больше не является удовлетворительной. В качестве подмножества можно представить VBS. Microsoft представила передовые технологии, такие как Shenma Reflection и Interoscection в .NET. В качестве заброшенной технологии нет никаких ожиданий, что Microsoft может оказать поддержку, поэтому упрямые и консервативные программисты могут только накапливать свои мозги, чтобы имитировать и реализовать некоторые подобные функции.
Ну, я признаю, что в течение долгого времени я был одной из упрямых и консервативных школ. Сегодня я представляю одну из функций, динамически создавая объект свойства, и объект атрибута называется этим, то есть объекты, созданные динамически, содержат только свойства (свойства).
Код реализации размещен ниже для вашей ссылки:
Кода -копия выглядит следующим образом:
'
'Generator Dynamic объектов ASP/VBScript
Автор: Вангье
'Для получения дополнительной информации, пожалуйста, посетите
'
'Этот код распределен по лицензии BSD
'
Const property_access_readonly = 1
Const property_access_writeonly = -1
Const property_access_all = 0
Класс DynamicObject
Приватный m_objproperties
Приватный m_strname
Private sub class_initialize ()
Установить m_objproperties = createObject ("scripting.dictionary")
m_strname = "anonymousObject"
Конец суб
Private sub class_terminate ()
Если нет isobject (m_objproperties), тогда
m_objproperties.removeall
Конец, если
Установить m_objproperties = ничего
Конец суб
Public SublClassName (StrName)
m_strname = strname
Конец суб
Public Sub Add (ключ, значение, доступ)
m_objproperties.add Ключ, массив (значение, доступ)
Конец суб
Public subtValue (ключ, значение, доступ)
Если m_objproperties.exists (key) then
m_objproperties.item (key) (0) = значение
m_objproperties.item (key) (1) = доступ
Еще
Добавить ключ, значение, доступ
Конец, если
Конец суб
Частная функция getReadonlycode (strkey)
Dim StrPrivateName, strpublicgetName