Call Execute(parse)
Set obj = Eval("New " & m_strName)
End Sub
End Class
需要注意的几个新特性：
1. 增加了类名和属性名验证措施，防止畸形的类名或者属性名导致动态生成的代码出现语法错误。不过处理的方式是直接忽略，本来想Raise异常的，但考虑到VBS对异常处理不是很好的，所以采取忽略策略：
' 有效的类名或属性名必须以字母开头
Dim DynObj
Set DynObj = New DynamicObject
DynObj.setClassName "1User" ' 此句将被忽略，因为类名不能以数字开始
' 下面这句也会被忽略，因为属性名不能以特殊符号开始
DynObj.add "%Name", "WangYe", PROPERTY_ACCESS_READONLY
Set DynObj = Nothing
2. 对于动态对象增加了hasattr_方法，该属性用于检测此对象是否支持相应的属性，可以在访问一个属性前先确定该对象是否支持此属性：
Dim DynObj
Set DynObj = New DynamicObject
DynObj.add "Name", "WangYe", PROPERTY_ACCESS_READONLY
Response.Write DynObj.hasattr_("Name") ' True
Response.Write DynObj.hasattr_("Favor") ' False
Set DynObj = Nothing
3. 对于动态对象增加了getattr_方法，此方法可以安全的获取指定的属性值，避免因为对象不存在属性值导致出错。方法原型为getattr_(ByVal propertyName, ByVal defaultValue)，参数propertyName指定属性的名字，defaultValue是当指定属性不存在是可以返回的默认值，比如下面代码：
Dim DynObj
Set DynObj = New DynamicObject
DynObj.add "Name", "WangYe", PROPERTY_ACCESS_READONLY
Response.Write DynObj.getattr_("Name", "N/A") ' WangYe
Response.Write DynObj.getattr_("Favor", "N/A") ' N/A
Set DynObj = Nothing
4. 动态对象的类名可以通过ClassName_属性或者getClassName_()方法获取。
2012年11月12日更新
修复双引号导致构造类错误或导致执行任意代码的Bug。
