实例演练ASP+XML编程比较全的了第1/2页(5)

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