Récemment, j'ai trié le code ASP / VBScript et j'ai constaté qu'un framework MVC implémenté par ASP dans le passé était un produit semi-finis et que l'efficacité était également un problème. Cependant, j'ai constaté qu'il y avait des codes que j'y ai écrits, et j'ai senti que je pouvais le retirer pour rencontrer des gens, alors j'ai écrit cet article aujourd'hui pour l'enregistrer.
On dit que cela est ASP, mais cela n'a rien à voir avec VBScript. La langue VBScript est héritée de Visual Basic. La flexibilité de syntaxe de VB n'est plus satisfaisante. En tant que sous-ensemble, VBS peut être imaginé. Microsoft a introduit des technologies avancées telles que la réflexion Shenma et l'introspection dans .NET. En tant que technologie abandonnée, on ne s'attend pas à ce que Microsoft puisse fournir un support, de sorte que les programmeurs obstinés et conservateurs ne peuvent que raculer leur cerveau pour imiter et implémenter certaines fonctions similaires.
Eh bien, j'avoue que depuis longtemps, j'ai été l'une des écoles obstinées et conservatrices. Aujourd'hui, je présente l'une des fonctions, créant dynamiquement un objet de propriété, et l'objet d'attribut est appelé ceci, c'est-à-dire que les objets créés dynamiquement ne contiennent que des propriétés (propriétés).
Le code d'implémentation est publié ci-dessous pour votre référence:
La copie de code est la suivante:
'
'Générateur d'objets dynamiques ASP / VBScript
'Auteur: Wangye
'Pour plus d'informations, veuillez visiter
'
'Ce code est distribué sous la licence BSD
'
Const Property_Access_readonly = 1
Const Property_Access_WriteOnly = -1
Const Property_Access_all = 0
Classe dynamicobject
M_objproperties privées
M_Strname privé
Private Sub class_Initialize ()
Définir m_objproperties = createObject ("scripting.dictionary")
m_strname = "anonymousobject"
Sub-Sub
Private Sub class_termiate ()
Si ce n'est pas IsObject (m_objproperties) alors
m_objproperties.removeall
Terminer si
Définir m_objproperties = rien
Sub-Sub
Public Sub SetClassName (Strname)
m_strname = strname
Sub-Sub
Public subd add (clé, valeur, accès)
m_objproperties.add key, array (valeur, accès)
Sub-Sub
Public Sub SetValue (clé, valeur, accès)
Si m_objproperties.exists (clé) alors
m_objproperties.item (clé) (0) = valeur
m_objproperties.item (clé) (1) = accès
Autre
Ajouter la clé, la valeur, l'accès
Terminer si
Sub-Sub
Fonction privée getreadonlycode (STRKEY)
Dim strprivatename, strpublicgetname