您的位置：首页 → 网页设计 → ASP实例 → 实例演练ASP+XML编程3

实例演练ASP+XML编程3

时间：2004/11/7 3:02:00来源：本站整理作者：蓝点我要评论(0)

　　四、操作Xml数据的Cls_Person类说明（clsPerson.asp）

Cls_Person类用来完成与联系人信息相关的各种操作，包括添加、修改和删除等等，它使用VBScript编写。Cls_Person包括Id、Name、Nick、Mobile、Tel、Email、QQ和Company属性，对应于XML文件中的Person节点。Cls_Person包括GetInfoFromXml、AddToXml、EditToXml和DeleteFormXml四个主要方法，分别完成获取信息，添加信息，修改信息和删除信息四个功能。

Cls_Person的具体实现如下，






'***************************************************
' 说明：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(objXmlDoc)
　Dim objNodeList
　Dim I


　ClearError


　If objXmlDoc 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 = objXmlDoc.getElementsByTagName("Person")
　If objNodeList.length - m_intId ＞= 0 Then
　　On Error Resume Next
　　m_strName = objNodeList(I).selectSingleNode("Name").Text
　　m_strNick = objNodeList(I).selectSingleNode("Nick").Text
　　m_strMobile = objNodeList(I).selectSingleNode("Mobile").Text
　　m_strTel = objNodeList(I).selectSingleNode("Tel").Text
　　m_strEmail = objNodeList(I).selectSingleNode("Email").Text
　　m_strQQ = objNodeList(I).selectSingleNode("QQ").Text
　　m_strCompany = objNodeList(I).selectSingleNode("Company").Text
　　GetInfoFromXml = True
　Else
　　GetInfoFromXml = False
　　AddErr "获取联系信息发生错误"
　　Set objNodeList = Nothing
　　Exit Function
　End If
　Set objNodeList = Nothing
End Function


' 添加信息到XML文件中
' 需要首先设置好要填充的属性
Public Function AddToXml(objXmlDoc)
　Dim objPerson, objNode


　ClearError


　If objXmlDoc Is Nothing Then
　　AddToXml = False
　　AddErr "Dom对象为空值"
　　Exit Function
　End If


　' 创建Person节点
　Set objPerson = objXmlDoc.createElement("Person")
　objXmlDoc.documentElement.appendChild objPerson


　' 创建各个子节点
　'-----------------------------------------------------
　Set objNode = objXmlDoc.createElement("Name")
　objNode.Text = m_strName
　objPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Nick")
　objNode.Text = m_strNick
　objPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Mobile")
　objNode.Text = m_strMobile
　objPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Tel")
　objNode.Text = m_strTel
　objPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Email")
　objNode.Text = m_strEmail
　objPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("QQ")
　objNode.Text = m_strQQ
　objPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Company")
　objNode.Text = m_strCompany
　objPerson.appendChild objNode
　'-----------------------------------------------------


　Set objNode = Nothing
　Set objPerson = Nothing


　 On Error Resume Next
　objXmlDoc.save Server.MapPath(C_XMLFILE) '保存XML文件
　If Err.Number = 0 Then
　　AddToXml = True
　Else
　　AddToXml = False
　　AddErr Err.Description
　End If
End Function


' 从XML文件中删除数据
' 需要首先设置Id
Public Function DeleteFromXml(objXmlDoc)
　Dim objNodeList, objNode


　ClearError


　If objXmlDoc Is Nothing Then
　　DeleteFromXml = False
　　AddErr "Dom对象为空值"
　　Exit Function
　End If


　If CStr(m_intId) = "-1" Then
　　DeleteFromXml = False
　　AddErr "未正确设置联系人对象的ID属性"
　　Exit Function
　End If


　Set objNodeList = objXmlDoc.getElementsByTagName("Person")
　If objNodeList.length - m_intId ＜ 0 Then
　　DeleteFromXml = False
　　AddErr "未找到相应的联系人"
　　Set objNodeList = Nothing
　　Exit Function
　End If


　On Error Resume Next
　Set objNode = objXmlDoc.documentElement.removeChild(objNodeList(intId-1))
　If objNode Is Nothing Then
　　DeleteFromXml = False
　　AddErr "删除联系人失败"
　　Set objNodeList = Nothing
　　Exit Function
　Else
　　objXmlDoc.save Server.MapPath(C_XMLFILE)
　End If
　Set objNode = Nothing
　Set objNodeList = Nothing


　If Err.Number = 0 Then
　　DeleteFromXml = True
　Else
　　DeleteFromXml = False
　　AddErr Err.Description
　End If
End Function


' 修改XML文件中的数据
' 需要首先设置好Id
Public Function EditToXml(objXmlDoc)
　Dim objPersonList, objOldPerson, objNewPerson, objNode


　ClearError


　If objXmlDoc Is Nothing Then
　　EditToXml = False
　　AddErr "Dom对象为空值"
　　Exit Function
　End If


　If CStr(m_intId) = "-1" Then
　　EditToXml = False
　　AddErr "未正确设置联系人对象的ID属性"
　　Exit Function
　End If


　Set objPersonList = objXmlDoc.getElementsByTagName("Person")
　If objPersonList.length - m_intId ＜ 0 Then
　　DeleteFromXml = False
　　AddErr "未找到相应的联系人"
　　Set objPersonList = Nothing
　　Exit Function
　End If


　Set objOldPerson = objPersonList(m_intId-1) ' 要修改的旧节点


　Set objNewPerson = objXmlDoc.createElement("Person") ' 用来替换旧节点的新节点
　Set objNode = objXmlDoc.createElement("Name")
　objNode.Text = m_strName
　objNewPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Nick")
　objNode.Text = m_strNick
　objNewPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Mobile")
　objNode.Text = m_strMobile
　objNewPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Tel")
　objNode.Text = m_strTel
　objNewPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Email")
　objNode.Text = m_strEmail
　objNewPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("QQ")
　objNode.Text = m_strQQ
　objNewPerson.appendChild objNode


　Set objNode = objXmlDoc.createElement("Company")
　objNode.Text = m_strCompany
　objNewPerson.appendChild objNode


　On Error Resume Next
　' 进行替换
　Set objNode = objXmlDoc.documentElement.replaceChild(objNewPerson, objOldPerson)
　If objNode Is Nothing Then
　EditToXml = False
　AddErr "修改联系人失败"
　Set objOldPerosn = Nothing
　Set objNewPerson = Nothing
　Set objPersonList = Nothing
　Exit Function
Else
　objXmlDoc.save Server.MapPath(C_XMLFILE)
End If


Set objOldPerson = Nothing
Set objNewPerson = Nothing
Set objPersonList = Nothing


If Err.Number = 0 Then
　EditToXml = True
Else
　EditToXml = False
　AddErr Err.Description
End If
End Function


End Class

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码