一个ASP创建动态对象的工厂类（类似PHP的stdClas(8)
"Else : getattr_ = defaultValue : End If : " & _
"End Function : "
parse = parse & init & "End Sub : " & _
hasstmt & pstr & "End Class"
End Function
Public Function getObject()
'Response.Write parse
Call Execute(parse)
Set getObject = Eval("New " & m_strName)
End Function
Public Sub invokeObject(ByRef obj)
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
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
内容版权声明：除非注明，否则皆为本站原创文章。