一个ASP创建动态对象的工厂类(类似PHP的stdClas(5)
m_objRegExp.Pattern = "^[a-z][a-z0-9]*$"
m_strName = "AnonymousObject"
m_objProperties.Add "ClassName_", _
Array(m_strName, PROPERTY_ACCESS_READONLY)
End Sub
Private Sub Class_Terminate()
Set m_objRegExp = Nothing
If IsObject(m_objProperties) Then
m_objProperties.RemoveAll
End If
Set m_objProperties = Nothing
End Sub
Public Sub setClassName(strName)
If Not m_objRegExp.Test(strName) Then
' Skipped Invalid Class Name
' Raise
Exit Sub
End If
m_strName = strName
m_objProperties("ClassName_") = _
Array(m_strName, PROPERTY_ACCESS_READONLY)
End Sub
Public Sub add(key, value, access)
If Not m_objRegExp.Test(key) Then
' Skipped Invalid key
' Raise
Exit Sub
End If
If key = "hasattr_" Then key = "hasattr__"
If key = "ClassName_" Then key = "ClassName__"
'Response.Write key
m_objProperties.Add key, Array(value, access)
End Sub
Public Sub setValue(key, value, access)
If m_objProperties.Exists(key) Then
m_objProperties.Item(key)(0) = value
m_objProperties.Item(key)(1) = access
Else
add key,value,access
End If
End Sub
Private Function getReadOnlyCode(strKey)
内容版权声明:除非注明,否则皆为本站原创文章。