Kürzlich habe ich den ASP/VBSCript-Code ausgeklärt und festgestellt, dass ein ASP in der Vergangenheit ein MVC-Framework implementiert hat, und Effizienz war ebenfalls ein Problem. Ich stellte jedoch fest, dass es einige Codes gab, die ich darin geschrieben habe, und ich hatte das Gefühl, dass ich es herausnehmen konnte, um Leute zu treffen, also schrieb ich diesen Artikel heute, um ihn aufzuzeichnen.
Es soll ASP sein, aber es hat nichts mit VBScript zu tun. Die VBScript -Sprache wird von Visual Basic geerbt. Die Syntaxflexibilität von VB ist nicht mehr zufriedenstellend. Als Teilmenge kann VBS vorgestellt werden. Microsoft hat fortschrittliche Technologien wie Shenma Reflection und Introspektion in .NET eingeführt. Als verlassene Technologie gibt es keine Erwartung, dass Microsoft Unterstützung bieten kann. Daher können die hartnäckigen und konservativen Programmierer nur ihr Gehirn streichen, um einige ähnliche Funktionen zu imitieren und umzusetzen.
Nun, ich gebe zu, dass ich lange Zeit eine der hartnäckigen und konservativen Schulen war. Heute stelle ich eine der Funktionen ein und erstelle dynamisch ein Eigenschaftsobjekt, und das Attributobjekt wird als die dynamisch erstellten Objekte nur als Eigenschaften (Eigenschaften) enthalten.
Der Implementierungscode wird unten als Referenz veröffentlicht:
Die Codekopie lautet wie folgt:
''
'ASP/VBScript Dynamic Objektgenerator
'Autor: Wangye
Für weitere Informationen besuchen Sie bitte
''
'Dieser Code wird unter der BSD -Lizenz verteilt
''
Const Property_access_readonly = 1
Const properation_access_writeonly = -1
Const properation_access_all = 0
KlassendynamicObject
Private m_objproperties
Privater m_strname
Private sub class_initialize ()
Setzen Sie m_objproperties = createObject ("scripting.Dictionary")
m_strname = "anonymousObject"
Ende sub
Private sub class_terate ()
Wenn nicht isObject (m_objproperties) dann
m_objproperties.removeall
Ende wenn
Setzen Sie m_objproperties = nichts
Ende sub
Public Sub SetClassName (Strname)
m_strname = strname
Ende sub
Öffentlicher Sub -Add (Schlüssel, Wert, Zugriff)
m_objproperties.addschlüssel, Array (Wert, Zugriff)
Ende sub
Öffentliches Sub -SetValue (Schlüssel, Wert, Zugriff)
Wenn m_objproperties.exists (Schlüssel) dann
m_objproperties.Item (Schlüssel) (0) = Wert
m_objproperties.Item (Schlüssel) (1) = Zugriff
Anders
Taste, Wert, Zugriff hinzufügen
Ende wenn
Ende sub
Private Funktion getReadonlycode (Strkey)
Dim StrPrivatename, StrpublicgetName