一个ASP创建动态对象的工厂类（类似PHP的stdClass）
最近整理ASP/VBScript代码，发现过去的一个ASP实现的MVC框架，可惜是个半成品，效率也成问题，不过发现里面有些我写的代码，感觉还稍稍可以拿出来见人，于是今天作此文以记之。
说是ASP，其实和VBScript也脱不了干系，VBScript语言传承于VisualBasic，VB的语法灵活度已经不尽如人意了，VBS作为其子集可想而知。神马反射、自省等先进的技术，微软在.NET中才引入。作为被抛弃的技术，也不奢望微软能够提供支持，于是顽固守旧的程序员只有绞尽脑汁的去模仿实现一些类似的功能。
好吧，我承认很长一段时间我就是顽固守旧派中的一员，今天介绍的就是其中的一项功能，动态创建一个属性对象，属性对象姑且这么称呼，也就是说动态创建的对象只包含属性(Properties)。
下面贴出实现代码供大家参考：
'
'ASP/VBScriptDynamicObjectGenerator
'Author:WangYe
'Formoreinformationpleasevisit
'
'ThiscodeisdistributedundertheBSDlicense
'
ConstPROPERTY_ACCESS_READONLY=1
ConstPROPERTY_ACCESS_WRITEONLY=-1
ConstPROPERTY_ACCESS_ALL=0
ClassDynamicObject
Privatem_objProperties
Privatem_strName
PrivateSubClass_Initialize()
Setm_objProperties=CreateObject("Scripting.Dictionary")
m_strName="AnonymousObject"
EndSub
PrivateSubClass_Terminate()
IfNotIsObject(m_objProperties)Then
m_objProperties.RemoveAll
EndIf
Setm_objProperties=Nothing
EndSub
PublicSubsetClassName(strName)
m_strName=strName
EndSub
PublicSubadd(key,value,access)
m_objProperties.Addkey,Array(value,access)
EndSub
PublicSubsetValue(key,value,access)
Ifm_objProperties.Exists(key)Then
m_objProperties.Item(key)(0)=value
m_objProperties.Item(key)(1)=access
Else
addkey,value,access
EndIf
EndSub
PrivateFunctiongetReadOnlyCode(strKey)
DimstrPrivateName,strPublicGetName
strPrivateName="m_var"&strKey
strPublicGetName="get"&strKey
getReadOnlyCode=_
"PublicFunction"&strPublicGetName&"():"&_
strPublicGetName&"="&strPrivateName&":"&_
"EndFunction:PublicPropertyGet"&strKey&_
":"&strKey&"="&strPrivateName&":EndProperty:"
EndFunction
PrivateFunctiongetWriteOnlyCode(strKey)
Dimpstr
DimstrPrivateName,strPublicSetName,strParamName
strPrivateName="m_var"&strKey
strPublicSetName="set"&strKey
strParamName="param"&strKey
getWriteOnlyCode=_
"PublicSub"&strPublicSetName&"("&strParamName&"):"&_
strPrivateName&"="&strParamName&":"&_
"EndSub:PublicPropertyLet"&strKey&"("&strParamName&")"&_
":"&strPrivateName&"="&strParamName&":EndProperty:"
EndFunction
PrivateFunctionparse()
Dimi,Keys,Items
Keys=m_objProperties.Keys
Items=m_objProperties.Items
Diminit,pstr
init=""
pstr=""
parse="Class"&m_strName&":"&_
"PrivateSubClass_Initialize():"
DimstrPrivateName
Fori=0Tom_objProperties.Count-1
strPrivateName="m_var"&Keys(i)
init=init&strPrivateName&"="""&_
Replace(CStr(Items(i)(0)),"""","""""")&""":"
pstr=pstr&"Private"&strPrivateName&":"
IfCInt(Items(i)(1))>0Then'ReadOnly
pstr=pstr&getReadOnlyCode(Keys(i))
ElseIfCInt(Items(i)(1))<0Then'WriteOnly
pstr=pstr&getWriteOnlyCode(Keys(i))
Else'AccessAll
pstr=pstr&getReadOnlyCode(Keys(i))&_
getWriteOnlyCode(Keys(i))
EndIf
Next
parse=parse&init&"EndSub:"& pstr&"EndClass"
EndFunction
PublicFunctiongetObject()
CallExecute(parse)
SetgetObject=Eval("New"&m_strName)
EndFunction
PublicSubinvokeObject(ByRefobj)
CallExecute(parse)
Setobj=Eval("New"&m_strName)
EndSub
EndClass
对于属性对象分别提供了Property直接访问模式和set或者get函数访问模式，当然我还提供了三种权限控制，在add方法中使用，分别是PROPERTY_ACCESS_READONLY（属性只读）、PROPERTY_ACCESS_WRITEONLY（属性只写）和PROPERTY_ACCESS_ALL（属性读写），你可以像下面这样使用（一个例子）：
DimDynObj
SetDynObj=NewDynamicObject
DynObj.add"Name","WangYe",PROPERTY_ACCESS_READONLY
DynObj.add"HomePage","http://jb51.net",PROPERTY_ACCESS_READONLY
DynObj.add"Job","Programmer",PROPERTY_ACCESS_ALL
'
'如果没有setClassName，
'新创建的对象将会自动命名为AnonymousObject
'但是如果创建多个对象，就必须指定名称
'否则就可能引起对象名重复的异常
DynObj.setClassName"User"
DimUser
SetUser=DynObj.GetObject()
'或者DynObj.invokeObjectUser
Response.WriteUser.Name
'Response.WriteUser.getName()
Response.WriteUser.HomePage
'Response.WriteUser.getHomePage()
Response.WriteUser.Job
'Response.WriteUser.getJob()
'改变属性值 User.Job="Engineer" 'User.setJob"Engineer"
Response.WriteUser.getJob() SetUser=Nothing SetDynObj=Nothing