Программирование в IIS


Пример 1.12


'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

' ChairID - read only

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Property Get ChairID() As String

ChairID = Trim(m_sID)

End Property

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'GetChairState

'serializes object state into XML DOM

'to look like this

'

'in: nothing

'out: returns DOMDocument30 object filled

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Function GetChairState() As DOMDocument30

On Error GoTo Sub_Error_Handler

Const ERROR_MESSAGE_INFO = "GetChairState"

Const CHAIR_ELEMENT = "Chair"

Const CHAIR_ID_ATTRIBUTE = "ID"

Const CHAIR_COLOR_ATTRIBUTE = "Color"

Dim xmlChair As MSXML2.DOMDocument30

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'note : Constructing the XML using

'string concatenation and using the

'XML object to validate is another

'strategy often times used.

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'refresh the object

OpenChair Me.ChairID

'build XML document

Set xmlChair = New DOMDocument30

'create the element for Chair

Set xmlChair.documentElement = _

xmlChair.createElement(CHAIR_ELEMENT)

'add the Chair attributes

xmlChair.documentElement.setAttribute _

(CHAIR_ID_ATTRIBUTE), ChairID

xmlChair.documentElement.setAttribute

(CHAIR_COLOR_ATTRIBUTE), color

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sub_Exit_Done:

'return object

Set GetChairState = xmlChair

On Error Resume Next

'destroy objects

Set xmlChair = Nothing

Exit Function

Sub_Error_Handler:

ProcessErr " Failure serializing chair into XML. "

End Function




- Начало -  - Назад -  - Вперед -