ʵÀýÑÝÁ·ASP+XML±à³Ì(3)

***************************************************
˵Ã÷£ºPersonÀà
×÷Õߣºgwd 2002-11-06
ÒýÓãºpub/constpub.asp
***************************************************

Class Cls_Person

Private m_intId Id£¬¶ÔÓ¦Person½ÚµãÔÚPersons¼¯ºÏÖеÄλÖÃ
Private m_strName ÐÕÃû
Private m_strNick Ó¢ÎÄÃû
Private m_strMobile ÊÖ»ú
Private m_strTel µç»°
Private m_strEmail µç×ÓÓʼþ
Private m_strQQ QQºÅ
Private m_strCompany ËùÔÚ¹«Ë¾
Private m_strError ³ö´íÐÅÏ¢

Àà³õʼ»¯
Private Sub Class_Initialize()
¡¡m_strError = ""
¡¡m_intId = -1
End Sub

ÀàÊÍ·Å
Private Sub Class_Terminate()
¡¡m_strError = ""
End Sub

-----¶Áд¸÷¸öÊôÐÔ---------------------------

Public Property Get Id
¡¡Id = m_intId
End Property

Public Property Let Id(intId)
¡¡m_intId = intId
End Property

Public Property Get Name
Name = m_strName
End Property

Public Property Let Name(strName)
¡¡m_strName = strName
End Property

Public Property Get Nick
¡¡Nick = m_strNick
End Property

Public Property Let Nick(strNick)
¡¡m_strNick = strNick
End Property

Public Property Get Mobile
¡¡Mobile = m_strMobile
End Property

Public Property Let Mobile(strMobile)
¡¡m_strMobile = strMobile
End Property

Public Property Get Tel
¡¡Tel = m_strTel
End Property

Public Property Let Tel(strTel)
¡¡m_strTel = strTel
End Property

Public Property Get Email
¡¡Email = m_strEmail
End Property

Public Property Let Email(strEmail)
¡¡m_strEmail = strEmail
End Property

Public Property Get QQ
¡¡QQ = m_strQQ
End Property

Public Property Let QQ(strQQ)
¡¡m_strQQ = strQQ
End Property

Public Property Get Company
¡¡Company = m_strCompany
End Property

Public Property Let Company(strCompany)
¡¡m_strCompany = strCompany
End Property

-----------------------------------------------

»ñÈ¡´íÎóÐÅÏ¢
Public Function GetLastError()
¡¡GetLastError = m_strError
End Function

˽Óз½·¨£¬Ìí¼Ó´íÎóÐÅÏ¢
Private Sub AddErr(strEcho)
¡¡m_strError = m_strError + "£¼Div CLASS=""alert""£¾" & strEcho & "£¼/Div£¾"
End Sub

Çå³ý´íÎóÐÅÏ¢
Public Function ClearError()
¡¡m_strError = ""
End Function

´Óxml(±ê×¼»¯Ô½À´Ô½½üÁË)ÖжÁÈ¡Ö¸¶¨½ÚµãµÄÊý¾Ý£¬²¢Ìî³ä¸÷¸öÊôÐÔ
ÐèÒªÊ×ÏÈÉèÖÃId
Public Function GetInfoFromxml(±ê×¼»¯Ô½À´Ô½½üÁË)(objxml(±ê×¼»¯Ô½À´Ô½½üÁË)Doc)
¡¡Dim objNodeList
¡¡Dim I

¡¡ClearError

¡¡If objxml(±ê×¼»¯Ô½À´Ô½½üÁË)Doc Is Nothing Then
¡¡¡¡GetInfoFromxml(±ê×¼»¯Ô½À´Ô½½üÁË) = False
¡¡¡¡AddErr "Dom¶ÔÏóΪ¿ÕÖµ"
¡¡¡¡Exit Function
¡¡End If

¡¡If CStr(m_intId) = "-1" Then
¡¡¡¡GetInfoFromxml(±ê×¼»¯Ô½À´Ô½½üÁË) = False
¡¡¡¡AddErr "δÕýÈ·ÉèÖÃÁªÏµÈ˶ÔÏóµÄIDÊôÐÔ"
¡¡¡¡Exit Function
¡¡Else
¡¡¡¡I = m_intId - 1 Òª¶ÁÈ¡µÃ½ÚµãλÖÃ
¡¡End If

¡¡ Ñ¡Ôñ²¢¶ÁÈ¡½ÚµãÐÅÏ¢£¬¸³Óè¸÷¸öÊôÐÔ
¡¡Set objNodeList = objxml(±ê×¼»¯Ô½À´Ô½½üÁË)Doc.getElementsByTagName("Person")
¡¡If objNodeList.length - m_intId £¾= 0 The