Recentemente, resolvi o código ASP/VBScript e descobri que uma estrutura MVC implementada no ASP no passado era um produto semi-acabado, e a eficiência também era um problema. No entanto, descobri que havia alguns códigos que escrevi nele, e senti que poderia levá -lo para conhecer pessoas, então escrevi este artigo hoje para gravá -lo.
Diz -se que é ASP, mas não tem nada a ver com o VBScript. A linguagem VBScript é herdada do Visual Basic. A flexibilidade da sintaxe do VB não é mais satisfatória. Como um subconjunto, os VBs podem ser imaginados. A Microsoft introduziu tecnologias avançadas, como reflexão de Shenma e introspecção no .NET. Como uma tecnologia abandonada, não há expectativa de que a Microsoft possa fornecer suporte; portanto, os programadores teimosos e conservadores só podem acumular seus cérebros para imitar e implementar algumas funções semelhantes.
Bem, admito que há muito tempo sou uma das escolas teimosas e conservadoras. Hoje estou introduzindo uma das funções, criando dinamicamente um objeto de propriedade, e o objeto de atributo é chamado isso, ou seja, os objetos criados dinamicamente contêm apenas propriedades (propriedades).
O código de implementação está publicado abaixo para sua referência:
A cópia do código é a seguinte:
'
'ASP/VBScript Dynamic Object Gerator
Autor: Wangye
'Para mais informações, visite
'
'Este código é distribuído sob a licença BSD
'
Const Property_access_readonly = 1
Const Property_access_writeonly = -1
Const Property_Access_all = 0
Classe DynamicoBject
M_objproperties privados
M_strname privado
Sub -classe privado_initialize ()
Set m_objproperties = createObject ("script.dictionary")
m_strname = "anonymousObject"
Final sub
Sub -classe particular ()
Se não o isobject (m_objproperties) então
M_OBJPROPERTIES.REMOVEALL
Final se
Defina m_objproperties = nada
Final sub
Public Sub SetclassName (strname)
m_strname = strname
Final sub
Public Sub Add (chave, valor, acesso)
M_OBJPROPERTIES.Add Key, Array (valor, acesso)
Final sub
Public Sub SetValue (chave, valor, acesso)
Se m_objproperties.exists (chave) então
m_objproperties.item (key) (0) = value
m_objProperties.item (key) (1) = Access
Outro
Adicione chave, valor, acesso
Final se
Final sub
Função privada getReadonLyCode (strkey)
Dim strprivatename, strpublicgetName